MINICERN/packlib/kernlib/kerngen/ccgen/vaxsys/systemf.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:29  mclareni
   6 * Kernlib
   7 *
   8 *
   9       INTEGER FUNCTION SYSTEMF (NAME)
  10 C
  11 C CERN PROGLIB# Z265    SYSTEMF         .VERSION KERNVAX  2.46  940913
  12 C ORIG. 06/03/91, JZ,  mod. march 94, JS
  13 C Fortran interface routine to system
  14 C
  15       CHARACTER    NAME*(*)
  16       INCLUDE      '($SSDEF)'
  17
  18       LGN   = LNBLNK (NAME)
  19       ISTAT = LIB$SPAWN (NAME(1:LGN))
  20       IF(ISTAT.EQ.SS$_NORMAL) ISTAT = 0
  21       SYSTEMF = ISTAT
  22       RETURN
  23       END