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