#include "kerngen/pilot.h"#include <stdio.h>#include "kerngen/fortchar.h"Go to the source code of this file.
Functions | |
| char * | fchtak (char *ftext, int lgtext) |
|
||||||||||||
|
Definition at line 25 of file fchtak.c. Referenced by cfopei_(), cfstati_(), and geteni_(). 00033 {
00034 char *malloc();
00035 char *ptalc, *ptuse;
00036 char *utext;
00037 int nalc;
00038 int ntx, jcol;
00039
00040 nalc = lgtext + 8;
00041 ptalc = malloc (nalc);
00042 if (ptalc == NULL) goto exit;
00043 #if defined(CERNLIB_QMCRY)
00044 utext = _fcdtocp(ftext);
00045 #endif
00046 #if !defined(CERNLIB_QMCRY)
00047 utext = ftext;
00048 #endif
00049
00050 ptuse = ptalc;
00051 ntx = lgtext;
00052 for (jcol = 0; jcol < ntx; jcol++) *ptuse++ = *utext++;
00053
00054 *ptuse = '\0';
00055 exit: return ptalc;
00056 }
|
1.3.9.1