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

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1997/02/04 17:34:46  mclareni
   6 * Merge Winnt and 97a versions
   7 *
   8 * Revision 1.1.1.1.2.1  1997/01/21 11:29:45  mclareni
   9 * All mods for Winnt 96a on winnt branch
  10 *
  11 * Revision 1.1.1.1  1996/02/15 17:49:27  mclareni
  12 * Kernlib
  13 *
  14 *
  15 #include "kerngen/pilot.h"
  16 #if defined(CERNLIB_QMVAX)
  17 #include "vaxsys/systemf.F"
  18 #else
  19       INTEGER FUNCTION SYSTEMF (NAME)
  20 C
  21 C CERN PROGLIB# Z265    SYSTEMF         .VERSION KERNFOR  4.26  910313
  22 C ORIG. 22/02/91, JZ
  23 C Fortran interface routine to system
  24 C
  25       CHARACTER    NAME*(*)
  26       INTEGER      SYSTEI
  27
  28
  29       LGNAME  = LNBLNK (NAME)
  30       SYSTEMF = SYSTEI (NAME,LGNAME)
  31       RETURN
  32       END
  33 #endif