doxy: MUON macros, refs, src links, no coll graph
[u/mrichter/AliRoot.git] / MICROCERN / fchtak.c
1 /* $Id$ */
2
3 #include "kerngen/pilot.h"
4 /*>    ROUTINE FCHTAK
5   CERN PROGLIB#         FCHTAK          .VERSION KERNFOR  4.31  911111
6   ORIG. 22/02/91, JZ
7
8       copy a Fortran character string
9       to allocated memory zero-terminated,
10       return the memory pointer
11 */
12 #include <stdio.h>
13 #include <stdlib.h>
14 #include "kerngen/fortchar.h"
15 char *fchtak(ftext,lgtext)
16 #if defined(CERNLIB_QMCRY)
17       _fcd  ftext;
18 #endif
19 #if !defined(CERNLIB_QMCRY)
20       char *ftext;
21 #endif
22       int  lgtext;
23 {
24   /*      char *malloc(); */
25       char *ptalc, *ptuse;
26       char *utext;
27       int  nalc;
28       int  ntx, jcol;
29
30       nalc  = lgtext + 8;
31       ptalc = (char*)malloc (nalc);
32       if (ptalc == NULL)     goto exit;
33 #if defined(CERNLIB_QMCRY)
34       utext = _fcdtocp(ftext);
35 #endif
36 #if !defined(CERNLIB_QMCRY)
37       utext = ftext;
38 #endif
39
40       ptuse = ptalc;
41       ntx   = lgtext;
42       for (jcol = 0; jcol < ntx; jcol++)  *ptuse++ = *utext++;
43
44       *ptuse = '\0';
45 exit: return  ptalc;
46 }
47 /*> END <----------------------------------------------------------*/