MINICERN/packlib/kernlib/kerngen/ccgencf/cfstat.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.3  1996/10/17 16:16:30  cernlib
   6 * Correct type of cfstati to be integer
   7 *
   8 * Revision 1.2  1996/10/17 09:23:15  cernlib
   9 * add back in accidentally deleted declaration lines
  10 *
  11 * Revision 1.1  1996/10/16 12:57:34  cernlib
  12 * Add cfstat. cfstati is used by cfstat. This uses rfio_stat if CERNLIB_SHIFT
  13 * is set.
  14 *
  15 * Kernlib
  16 *
  17 *
  18 #include "kerngen/pilot.h"
  19       INTEGER FUNCTION CFSTAT (NAME, INFO)
  20 C
  21 C CERN PROGLIB# Z310    CFSTAF
  22 C ORIG. 11-Oct-96; stolen from ccgen/statf.F; GF.
  23 C ORIG. 14/03/91, RDM
  24 C Fortran interface routine to stat
  25 C
  26 C        NAME   the name of the file of which information is required
  27 C     INFO(12)  buffer returning the information about "file"
  28 C
  29 C        A succesfull call returns 0. A failed call returns -1.
  30 C
  31       CHARACTER*(*)  NAME
  32       INTEGER        INFO(12), CFSTATI
  33
  34       LGN   = LNBLNK (NAME)
  35 #if !defined(CERNLIB_QMVAX)
  36       CFSTAT = CFSTATI (NAME, INFO, LGN)
  37 #else
  38       CFSTAT = CFSTATI (%REF(NAME), INFO, LGN)
  39 #endif
  40       RETURN
  41       END