This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / ccgen / getenvf.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1996/02/15 17:49:22 mclareni
6* Kernlib
7*
8*
9#include "kerngen/pilot.h"
10#if defined(CERNLIB_QMVAX)
11#include "vaxsys/getenvf.F"
12#else
13 SUBROUTINE GETENVF (NAME, TEXT)
14C
15C CERN PROGLIB# Z265 GETENVF .VERSION KERNFOR 4.26 910313
16C ORIG. 22/02/91, JZ
17C Fortran interface routine to getenv
18C
19 COMMON /SLATE/ISL(40)
20 CHARACTER*(*) NAME, TEXT
21
22 LGN = LNBLNK (NAME)
23 NTX = LEN(TEXT)
24 CALL GETENI (NAME,TEXT,NTX,LGN)
25 ISL(1) = NTX
26 RETURN
27 END
28#endif