5 * Revision 1.1.2.1 2002/07/11 17:15:24 alibrary
8 * Revision 1.1.1.1 1999/05/18 15:55:29 fca
11 * Revision 1.1.1.1 1996/02/15 17:49:40 mclareni
15 #include "kerngen/pilot.h"
17 CERN PROGLIB# FCHTAK .VERSION KERNFOR 4.31 911111
20 copy a Fortran character string
21 to allocated memory zero-terminated,
22 return the memory pointer
25 #include "kerngen/fortchar.h"
26 char *fchtak(ftext,lgtext)
27 #if defined(CERNLIB_QMCRY)
30 #if !defined(CERNLIB_QMCRY)
42 ptalc = malloc (nalc);
43 if (ptalc == NULL) goto exit;
44 #if defined(CERNLIB_QMCRY)
45 utext = _fcdtocp(ftext);
47 #if !defined(CERNLIB_QMCRY)
53 for (jcol = 0; jcol < ntx; jcol++) *ptuse++ = *utext++;
58 /*> END <----------------------------------------------------------*/