Warning, /include/higz/higed.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1996/02/14 13:10:13 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_HIGZ_HIGED_INC
0010 #define CERNLIB_HIGZ_HIGED_INC
0011 *
0012 *
0013 * higed.inc
0014 *
0015 *CMZ : 1.18/00 23/04/93 17.27.57 by O.Couet
0016 *-- Author :
0017 COMMON /HIGED/ XPM(2,3),YPM(2,3),ICUMEN(3),ICUCHO(3),NBU(3)
0018 +,NBITEM(3),ISOF,ICPLCI,ICLN,ICFACI,ICFAIS,ICFASI,ICBOCI,ICBOIS
0019 +,ICBOSI,ICBOBO,ICFBCI,ICFBIS,ICFBSI,ICFBBO,ICPMCI,ICMK,RCMKSC
0020 +,RCSTAN,RCSTSI,ICSTPA,RCSTSH,ICSTCI,RCTXAN,RCTXSI,ICTXFT,ICTXPR
0021 +,ICTXCI,ICTXAH,ICTXAV,RCBOF,RCBWD,ICHILN,ICHIPC,ICHIFC,ICHIFI
0022 +,ICHIFS,RCARSI,ICARLC,ICARFC,ICARFI,ICARFS,ICARLN,RCAXTS,RCAXLS
0023 +,RCAXLO,RCAXW1,RCAXW2,ICAXND,ICAXLN,ICAXLC,ICAXLF,ICAXLP,ICACFI
0024 +,ICACFS,ICACBO,ICACLC,ICACFC,RCLWSC,X(100),Y(100)
0025 +,IXSTEP,IYSTEP,IXFACT,IYFACT,ICPBST,ICPFST,RCDZPV
0026 CHARACTER*32 TITLE(3)
0027 CHARACTER*20 CHUSKE(20,3)
0028 CHARACTER*32 CHITEM(20,3)
0029 CHARACTER*80 CHDEF(20)
0030 CHARACTER*32 CHOPST,CHOPAX,CHOPHI,CHOPPV
0031 CHARACTER*80 CCST,CCTX
0032 CHARACTER*80 CHFAC,CHPLC,CHTXC,CHPMC,CHFAIS,CHHIFC,CHHIPC,CHARFC
0033 + ,CHARLC,CHARFI,CHBOC,CHBOIS,CHFBC,CHFBIS,CHSTC,CHHIIS
0034 + ,CHAXLC,CHACIS,CHACLC,CHACFC
0035 CHARACTER*8 CHDOAR,CHBOBO,CHFBBO,CHAFL,CHACBO
0036 CHARACTER*80 EDIPIC
0037 COMMON /HIGEDC/ TITLE,CHUSKE,CHITEM,CHDEF,CHOPST,CHOPAX,CHOPHI
0038 +,CCST,CCTX,CHFAC,CHPLC,CHTXC,CHPMC,CHFAIS,CHHIFC,CHHIPC,CHARFC
0039 +,CHARLC,CHARFI,CHBOC,CHBOIS,CHFBC,CHFBIS,CHSTC,CHHIIS,CHAXLC
0040 +,CHACIS,CHACLC,CHACFC,CHDOAR,CHBOBO,CHFBBO,CHAFL,CHACBO,EDIPIC
0041 +,CHOPPV
0042
0043
0044 #endif
