22.05.2014 Views

CERN Program Library Long Writeup W5013 - CERNLIB ...

CERN Program Library Long Writeup W5013 - CERNLIB ...

CERN Program Library Long Writeup W5013 - CERNLIB ...

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

IDEVT current user event number (1, RUNG);<br />

IEORUN flag to terminate run if non-zero;<br />

IEOTRI flag to abort current event if non-zero;<br />

IEVENT current event sequence number (1);<br />

ISWIT user flags, the first three are used by GDEBUG to select the debug output (0, SWIT);<br />

IFINIT internal initialisation flags;<br />

NEVENT number of events to be processed (10000000, TRIG);<br />

NRNDM initial seeds for the random number generator. If NRNDM(2)=0 the sequence number NRNDM(1)<br />

is taken from a predefined set of 215 independent sequences. Otherwise the random number<br />

generator is initialised with the two seeds NRNDM(1), NRNDM(2) (9876, 54321);<br />

BATCH true if the job is running in batch; set by the GXINT interactive program;<br />

NOLOG true if no login kumac file is requested; set by the GXINT interactive program;<br />

+SEQ /GCGOBJ/<br />

CG package variables<br />

C<br />

C<br />

PARAMETER (NTRCG=1)<br />

PARAMETER (NWB=207,NWREV=100,NWS=1500)<br />

PARAMETER (C2TOC1=7.7, C3TOC1=2.,TVLIM=1296.)<br />

COMMON /GCGOBJ/IST,IFCG,ILCG,NTCUR,NFILT,NTNEX,KCGST<br />

+ ,NCGVOL,IVFUN,IVCLOS,IFACST,NCLAS1,NCLAS2,NCLAS3<br />

COMMON /CGBLIM/IHOLE,CGXMIN,CGXMAX,CGYMIN,CGYMAX,CGZMIN,CGZMAX<br />

NTRCG<br />

NWB<br />

NWREV<br />

NWS<br />

C2TOC1<br />

C3TOC1<br />

TVLIM<br />

IST<br />

IFCG<br />

ILCG<br />

NTCUR<br />

NFILT<br />

NTNEX<br />

KCGST<br />

NCGVOL<br />

IVFUN<br />

IVCLOS<br />

IFACST<br />

422 ZZZZ010 – 5

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!