#include "kerngen/pilot.h"#include "kerngen/fortranc.h"#include <stdio.h>#include <stdlib.h>#include "kerngen/fortchar.h"Go to the source code of this file.
Functions | |
| void type_of_call | geteni_ (char *fname, char *ftext, int *lgtext, int *lgname) |
|
||||||||||||||||||||
|
Definition at line 41 of file geteni.c. References fchput(), fchtak(), and type_of_call. 00061 {
00062 char *ptname, *fchtak();
00063 char *pttext, *getenv();
00064 int fchput();
00065
00066 pttext = NULL;
00067 ptname = fchtak(fname,*lgname);
00068 if (ptname == NULL) goto out;
00069 pttext = getenv (ptname);
00070 free(ptname);
00071
00072 out: *lgtext = fchput (pttext,ftext,*lgtext);
00073 return;
00074 }
|
1.3.9.1