MINICERN/packlib/zebra/fq/fzlimi.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:13  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10       SUBROUTINE FZLIMI (LUNPAR,ALIMIP)
  11
  12 C-    SET END-OF-TAPE LIMIT
  13
  14 #include "zebra/zunit.inc"
  15 #include "zebra/mqsys.inc"
  16 #include "zebra/eqlqf.inc"
  17 #include "zebra/fzcf.inc"
  18 C--------------    End CDE                             --------------
  19       DIMENSION    LUNPAR(9), ALIMIP(9)
  20
  21
  22       LUN     = LUNPAR(1)
  23       ALIMIT  = ALIMIP(1)
  24
  25       CALL FZLOC (LUN,0)
  26       IF (LQFF.EQ.0)               GO TO 99
  27
  28       IF   (ALIMIT)          21, 24, 31
  29    21  Q(KQSP+LQFF+39) = 0.
  30       IQ(KQSP+LQFF+37) = 0
  31       IQ(KQSP+LQFF+38) = 0
  32 #if defined(CERNLIB_QPRINT)
  33       IF (LOGLVF.GE.0)
  34      +WRITE (IQLOG,9022) LUN
  35  9022 FORMAT ('0FZLIMI.  File at LUN=',I3,' has no output limit.')
  36 #endif
  37       GO TO 99
  38
  39    24 ALIMIT = REAL (IQ(KQSP+LQFF+20)) / 1000000.
  40       ALIMIT = ALIMIT + REAL (IQ(KQSP+LQFF+19)) + Q(KQSP+LQFF+39)
  41       GO TO 34
  42
  43    31  Q(KQSP+LQFF+39) = ALIMIT
  44    34 NUM1 = ALIMIT
  45       FRAC = ALIMIT - REAL(NUM1)
  46       NUM2 = 1000000. * FRAC
  47       IQ(KQSP+LQFF+37) = NUM1
  48       IQ(KQSP+LQFF+38) = NUM2
  49
  50 #if defined(CERNLIB_QPRINT)
  51       IF (LOGLVF.GE.0)
  52      +WRITE (IQLOG,9036) LUN,NUM1,NUM2
  53  9036 FORMAT ('0FZLIMI.  Output limit for file at LUN=',I3,
  54      F' IS',I7,' Mwords +',I6,' Words.')
  55 #endif
  56    99 RETURN
  57       END
  58 *      ==================================================
  59 #include "zebra/qcardl.inc"