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