Warning, /include/higz/golden.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:17 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_HIGZ_GOLDEN_INC
0010 #define CERNLIB_HIGZ_GOLDEN_INC
0011 *
0012 *
0013 * golden.inc
0014 *
0015 #if defined(CERNLIB_MSDOS)
0016 C--
0017 C-- PARAMETERS FOR SURFER META-FILE
0018 C
0019 INTEGER PA,MA,TR,PS,SC,SS,SP
0020 PARAMETER (NJOB = 7)
0021 PARAMETER (PA=1,MA=2,TR=3,PS=4,SC=5,SS=6,SP=7)
0022
0023 PARAMETER (LBUF=256)
0024 COMMON /GOLDEN/ LUNG(9), NREC, M_OPEN, BIMODE, BUFFER(LBUF/4)
0025 *, IPOINT, SYMFIL,COOR(4), LOCK, FRADEL
0026 LOGICAL BIMODE, M_OPEN, LOCK, FRADEL
0027 CHARACTER*80 SYMFIL
0028 CHARACTER*512 CHMBUF
0029 EQUIVALENCE (BUFFER,CHMBUF)
0030 #endif
0031
0032 #endif
