MINICERN/packlib/kernlib/kerngen/tcgen/hpxgs/ffsize.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:57  mclareni
   6 * Kernlib
   7 *
   8 *
   9       SUBROUTINE FFSIZE (LUN,NWREC,JREC,ISTAT)
  10 C
  11 C CERN PROGLIB#         FFSIZE          .VERSION KERNHPX  1.01  920304
  12 C ORIG.  01/02/91  JZ
  13 C
  14 C-    Get the size of a disk file connected to Fortran unit LUN
  15
  16
  17       LUNPTR = FNUM (LUN)
  18       IF (LUNPTR.EQ.0)             GO TO 91
  19
  20       CALL CFSIZE (LUNPTR,0,NWREC,JREC,ISTAT)
  21       RETURN
  22
  23    91 ISTAT = -7
  24       JREC  = 0
  25       RETURN
  26       END