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