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
13 #include "kerngen/fortchar.h"
14 char *fchtak(ftext,lgtext)
15 #if defined(CERNLIB_QMCRY)
18 #if !defined(CERNLIB_QMCRY)
30 ptalc = malloc (nalc);
31 if (ptalc == NULL) goto exit;
32 #if defined(CERNLIB_QMCRY)
33 utext = _fcdtocp(ftext);
35 #if !defined(CERNLIB_QMCRY)
41 for (jcol = 0; jcol < ntx; jcol++) *ptuse++ = *utext++;
46 /*> END <----------------------------------------------------------*/