In stand-allone mode, pass stack to entries.
[u/mrichter/AliRoot.git] / MICROCERN / getenvf.F
1 *
2 * $Id$
3 *
4 #include "kerngen/pilot.h"
5 #if defined(CERNLIB_QMVAX)
6 #include "vaxsys/getenvf.F"
7 #else
8       SUBROUTINE GETENVF (NAME, TEXT)
9 C
10 C CERN PROGLIB# Z265    GETENVF         .VERSION KERNFOR  4.26  910313
11 C ORIG. 22/02/91, JZ
12 C Fortran interface routine to getenv
13 C
14       COMMON /SLATE/ISL(40)
15       CHARACTER*(*)  NAME, TEXT
16
17       LGN = LNBLNK (NAME)
18       NTX = LEN(TEXT)
19       CALL GETENI (NAME,TEXT,NTX,LGN)
20       ISL(1) = NTX
21       RETURN
22       END
23 #endif