MINICERN/packlib/kernlib/kerngen/ccgen/setenvf.F.ori

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:26  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10       INTEGER FUNCTION SETENVF (NAME, TEXT)
  11 C
  12 C CERN PROGLIB# Z265    SETENVF         .VERSION KERNFOR  4.36  930602
  13 C ORIG. 22/02/91, JZ
  14 C Fortran interface routine to setenv (BSD) or putenv (SYS V)
  15 C
  16       CHARACTER*(*)  NAME, TEXT
  17       INTEGER        SETENI
  18
  19       LGNM = LNBLNK (NAME)
  20       LGTX = LNBLNK (TEXT)
  21       LGTX = MAX (1, LGTX)
  22       IF (LGNM.EQ.0)               GO TO 91
  23
  24       SETENVF = SETENI (NAME,TEXT,LGNM,LGTX)
  25       RETURN
  26
  27    91 SETENVF = -1
  28       END