MINICERN/packlib/zebra/rz/rzvcyc.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:27  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10       SUBROUTINE RZVCYC(LTAD)
  11 *
  12 ************************************************************************
  13 *
  14 *           Fills up the offset parameters of cycle information
  15 * Input:
  16 *   LTAD    Address of the top directory
  17 *
  18 * Called by RZFDIR,RZFILE,RZMAKE
  19 *
  20 *  Author  : S.Banerjee
  21 *  Written : 03.03.94
  22 *  Last mod:
  23 *
  24 ************************************************************************
  25 #include "zebra/rzcl.inc"
  26 #include "zebra/rzk.inc"
  27 #include "zebra/rzcycle.inc"
  28 *-----------------------------------------------------------------------
  29       IF (LTAD.EQ.0) GO TO 99
  30       IF (IQ(KQSP+LTAD+KRZVER).EQ.0) THEN
  31          KLCYCL = 4
  32          KPPCYC = 0
  33          KFRCYC = 2
  34          KSRCYC = 0
  35          KFLCYC = 1
  36          KORCYC = 2
  37          KCNCYC = 3
  38          KNWCYC = 3
  39          KKYCYC =-1
  40          KVSCYC = 0
  41       ELSE
  42          KLCYCL = 7
  43          KPPCYC = 0
  44          KFRCYC = 2
  45          KSRCYC = 5
  46          KFLCYC = 1
  47          KORCYC = 3
  48          KCNCYC = 3
  49          KNWCYC = 4
  50          KKYCYC = 6
  51          KVSCYC = 1
  52       ENDIF
  53   99  RETURN
  54       END