3 #include "kerngen/pilot.h"
5 CERN PROGLIB# FCHPUT .VERSION KERNFOR 4.31 911111
8 Copy a zero-terminated C character string
9 to a Fortran character string of length NTEXT,
10 return length and blank-fill
13 #include "kerngen/fortchar.h"
14 int fchput(pttext,ftext,lgtext)
16 #if defined(CERNLIB_QMCRY)
19 #if !defined(CERNLIB_QMCRY)
30 #if defined(CERNLIB_QMCRY)
31 utext = _fcdtocp(ftext);
33 #if !defined(CERNLIB_QMCRY)
36 if (pttext == NULL) goto out;
38 /*-- copy the text to the caller */
39 for (jcol = 0; jcol < limit; jcol++)
40 { if (*pttext == '\0') break;
45 for (; jcol < limit; jcol++) *utext++ = ' ';
48 /*> END <----------------------------------------------------------*/