Transition to NewIO
[u/mrichter/AliRoot.git] / MICROCERN / getenvf.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.2.4.1  2002/11/26 16:46:57  hristov
6 * Merging NewIO with v3-09-04
7 *
8 * Revision 1.2  2002/10/14 14:57:10  hristov
9 * Merging the VirtualMC branch to the main development branch (HEAD)
10 *
11 * Revision 1.1.2.1  2002/07/11 17:14:48  alibrary
12 * Adding MICROCERN
13 *
14 * Revision 1.1.1.1  1999/05/18 15:55:28  fca
15 * AliRoot sources
16 *
17 * Revision 1.1.1.1  1996/02/15 17:49:22  mclareni
18 * Kernlib
19 *
20 *
21 #include "kerngen/pilot.h"
22 #if defined(CERNLIB_QMVAX)
23 #include "vaxsys/getenvf.F"
24 #else
25       SUBROUTINE GETENVF (NAME, TEXT)
26 C
27 C CERN PROGLIB# Z265    GETENVF         .VERSION KERNFOR  4.26  910313
28 C ORIG. 22/02/91, JZ
29 C Fortran interface routine to getenv
30 C
31       COMMON /SLATE/ISL(40)
32       CHARACTER*(*)  NAME, TEXT
33
34       LGN = LNBLNK (NAME)
35       NTX = LEN(TEXT)
36       CALL GETENI (NAME,TEXT,NTX,LGN)
37       ISL(1) = NTX
38       RETURN
39       END
40 #endif