MICROCERN/getenvf.F

   1 *
   2 * $Id$
   3 *
   4 #include "kerngen/pilot.h"
   5 #if defined(CERNLIB_QMVAX)
   6 #include "vaxsys/getenvf.F"
   7 #else
   8       SUBROUTINE GETENVF (NAME, TEXT)
   9 C
  10 C CERN PROGLIB# Z265    GETENVF         .VERSION KERNFOR  4.26  910313
  11 C ORIG. 22/02/91, JZ
  12 C Fortran interface routine to getenv
  13 C
  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