*
* $Id: fausto.inc,v 1.1.1.1 1996/03/07 15:17:52 mclareni Exp $
*
* $Log: fausto.inc,v $
* Revision 1.1.1.1  1996/03/07 15:17:52  mclareni
* Fatmen
*
*
#ifndef CERNLIB_FATMEN_FAUSTO_INC
#define CERNLIB_FATMEN_FAUSTO_INC
*
*
* fausto.inc
*
      PARAMETER (KOHOLL=0)
      PARAMETER (KLHOLL=70)
 
      PARAMETER (KOREAL=KOHOLL+KLHOLL)
      PARAMETER (KLREAL=20)
 
      PARAMETER (KODATE=KOREAL+KLREAL)
      PARAMETER (KLDATE=10)
 
      PARAMETER (KOCMOD=KODATE+KLDATE)
      PARAMETER (KLCMOD=20)
 
      PARAMETER (KOFILE=KOCMOD+KLCMOD)
      PARAMETER (KLFILE=10)
 
      PARAMETER (KOTMS =KOFILE+KLFILE)
      PARAMETER (KLTMS =20)
 
      PARAMETER (KOCFAT=KOTMS +KLTMS )
      PARAMETER (KLCFAT=20)
 
      PARAMETER (KLINT = KLDATE+KLCMOD+KLFILE+KLTMS+KLCFAT)
*
*     Hollerith block
*
      PARAMETER (KFMSYS=KOHOLL+2)
      PARAMETER (KFMGRP=KOHOLL+7)
      PARAMETER (KFMTIT=KOHOLL+12)
      PARAMETER (KFMUSR=KOHOLL+31)
      PARAMETER (KFMHST=KOHOLL+41)
      PARAMETER (KFMTYP=KOHOLL+51)
      PARAMETER (KFMOS =KOHOLL+61)
*
*     MB counts
*
      PARAMETER (KFMMBR=KOREAL+1)
      PARAMETER (KFMMBW=KOREAL+2)
      PARAMETER (KFZMBR=KOREAL+3)
      PARAMETER (KFZMBW=KOREAL+4)
      PARAMETER (KFMMBC=KOREAL+5)
      PARAMETER (KFMMBN=KOREAL+6)
      PARAMETER (KFMMBQ=KOREAL+7)
*
*     Dates and times
*
      PARAMETER (KFMIDQ=KODATE+1)
      PARAMETER (KFMIDS=KODATE+2)
      PARAMETER (KFMIDE=KODATE+3)
*
*     Catalogue modifications
*
      PARAMETER (KFMADD=KOCMOD+1)
      PARAMETER (KFMADL=KOCMOD+2)
      PARAMETER (KFMADT=KOCMOD+3)
      PARAMETER (KFMMDR=KOCMOD+4)
      PARAMETER (KFMRDR=KOCMOD+5)
      PARAMETER (KFMRLN=KOCMOD+6)
      PARAMETER (KFMRTR=KOCMOD+7)
      PARAMETER (KFMRMF=KOCMOD+8)
      PARAMETER (KFMCPF=KOCMOD+9)
      PARAMETER (KFMMVF=KOCMOD+10)
      PARAMETER (KFMMOD=KOCMOD+11)
      PARAMETER (KFMTCH=KOCMOD+12)
*
*     File accesses (OPENs, CLOSEs, COPYs)
*
      PARAMETER (KFMOPN=KOFILE+1)
      PARAMETER (KFMCLS=KOFILE+2)
      PARAMETER (KFMCPY=KOFILE+3)
      PARAMETER (KFMCPQ=KOFILE+5)
      PARAMETER (KFMCPN=KOFILE+5)
*
*     SYSREQ and TMS operations
*
      PARAMETER (KFMSRQ=KOTMS+1)
      PARAMETER (KFMQVL=KOTMS+2)
      PARAMETER (KFMAVL=KOTMS+3)
      PARAMETER (KFMASP=KOTMS+4)
      PARAMETER (KFMPOL=KOTMS+5)
      PARAMETER (KFMLCK=KOTMS+6)
      PARAMETER (KFMULK=KOTMS+7)
      PARAMETER (KFMDTG=KOTMS+8)
      PARAMETER (KFMGTG=KOTMS+9)
      PARAMETER (KFMSTG=KOTMS+10)
*
*     Catalogue processing
*
      PARAMETER (KFMBNK=KOCFAT+1)
      PARAMETER (KFMGET=KOCFAT+2)
      PARAMETER (KFMGTK=KOCFAT+3)
      PARAMETER (KFMSHW=KOCFAT+4)
      PARAMETER (KFMSCN=KOCFAT+5)
      PARAMETER (KFMLOP=KOCFAT+6)
      PARAMETER (KFMLDR=KOCFAT+7)
      PARAMETER (KFMLFL=KOCFAT+8)
      PARAMETER (KFMSRT=KOCFAT+9)
      PARAMETER (KFMRNK=KOCFAT+10)
      PARAMETER (KFMSLK=KOCFAT+11)
      PARAMETER (KFMMTC=KOCFAT+12)
 

#endif
