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

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:58  mclareni
   6 * Kernlib
   7 *
   8 *
   9       SUBROUTINE FFSIZE (LUN,NWREC,JREC,ISTAT)
  10
  11 C-    Get the size of a disk file connected to Fortran unit LUN
  12
  13       INTEGER      FSEEK, FTELL
  14
  15       ISTAT = FSEEK (LUN, 0, 2)
  16       IF (ISTAT.NE.0)              RETURN
  17
  18       NBYTES = FTELL (LUN)
  19       IF (NBYTES.LT.0)  THEN
  20           ISTAT = -NBYTES
  21           RETURN
  22         ENDIF
  23
  24       NWORDS = NBYTES / 4
  25       JREC   = NWORDS / NWREC
  26       RETURN
  27       END