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

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