Update master to aliroot
[u/mrichter/AliRoot.git] / MICROCERN / fchtak.c
... / ...
CommitLineData
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"
15char *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';
45exit: return ptalc;
46}
47/*> END <----------------------------------------------------------*/