3 #include "kerngen/pilot.h"
4 #include "kerngen/fortranc.h"
7 CERN PROGLIB# Z265 GETENI .VERSION KERNFOR 4.31 911111
9 Fortran interface routine to getenv
11 CALL GETENVF (NAME, TEXT*)
13 NAME the name of the environment variable,
14 TEXT returns its value
15 ISLATE(1) returns its length
19 #include "kerngen/fortchar.h"
20 #if defined(CERNLIB_QX_SC)
21 void type_of_call geteni_(fname, ftext, lgtext, lgname)
23 #if defined(CERNLIB_QXNO_SC)
24 void type_of_call geteni(fname, ftext, lgtext, lgname)
26 #if defined(CERNLIB_QXCAPT)
27 # ifdef CERNLIB_MSSTDCALL
28 void type_of_call GETENI(fname, len_fname, ftext, len_ftext, lgtext, lgname)
29 int len_fname, len_ftext;
31 void type_of_call GETENI(fname, ftext, lgtext, lgname)
34 #if defined(CERNLIB_QMCRY)
37 #if !defined(CERNLIB_QMCRY)
42 char *ptname, *fchtak(char*, int);
43 char *pttext, *getenv();
44 int fchput(char*, char*, int);
47 ptname = fchtak(fname,*lgname);
48 if (ptname == NULL) goto out;
49 pttext = getenv (ptname);
52 out: *lgtext = fchput (pttext,ftext,*lgtext);
55 /*> END <----------------------------------------------------------*/