1. Adding the new histograms TPC z vertex correlation in order
[u/mrichter/AliRoot.git] / MICROCERN / getenvf.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
fe4da5cc 4#include "kerngen/pilot.h"
5#if defined(CERNLIB_QMVAX)
6#include "vaxsys/getenvf.F"
7#else
8 SUBROUTINE GETENVF (NAME, TEXT)
9C
10C CERN PROGLIB# Z265 GETENVF .VERSION KERNFOR 4.26 910313
11C ORIG. 22/02/91, JZ
12C Fortran interface routine to getenv
13C
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