3 #include "kerngen/pilot.h"
5 CERN PROGLIB# FCHTAK .VERSION KERNFOR 4.31 911111
8 copy a Fortran character string
9 to allocated memory zero-terminated,
10 return the memory pointer
14 #include "kerngen/fortchar.h"
15 char *fchtak(ftext,lgtext)
16 #if defined(CERNLIB_QMCRY)
19 #if !defined(CERNLIB_QMCRY)
31 ptalc = (char*)malloc (nalc);
32 if (ptalc == NULL) goto exit;
33 #if defined(CERNLIB_QMCRY)
34 utext = _fcdtocp(ftext);
36 #if !defined(CERNLIB_QMCRY)
42 for (jcol = 0; jcol < ntx; jcol++) *ptuse++ = *utext++;
47 /*> END <----------------------------------------------------------*/