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

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

NRGET<br />

NRSAVE<br />

LRGET,LRSAVE<br />

RZTAGS<br />

number of data structures declared on data record RGET;<br />

number of data structures declared on data record RSAV;<br />

corresponding user lists of items;<br />

key names (argument of RZMAKE).<br />

+SEQ /GCSCAL/<br />

Scan geometry ZEBRA pointers<br />

*<br />

PARAMETER(MXSLNK=100)<br />

COMMON/GCSCAL/ ISLINK(MXSLNK)<br />

EQUIVALENCE (LSLAST,ISLINK(MXSLNK))<br />

EQUIVALENCE (LSCAN ,ISLINK(1)),(LSTEMP,ISLINK(2))<br />

EQUIVALENCE (LSPARA,ISLINK(3)),(LSERAY,ISLINK(4))<br />

LSCAN<br />

LSTEMP<br />

LSPARA<br />

LSERAY<br />

LSLAST<br />

+SEQ /GCSCAN/<br />

Scan geometry control parameters<br />

*<br />

PARAMETER (MSLIST=32,MAXMDT=3)<br />

COMMON/GCSCAN/SCANFL,NPHI,PHIMIN,PHIMAX,NTETA,TETMIN,TETMAX,<br />

+ MODTET,IPHIMI,IPHIMA,IPHI1,IPHIL,NSLMAX,<br />

+ NSLIST,ISLIST(MSLIST),VSCAN(3),FACTX0,FACTL,<br />

+ FACTR,IPHI,ITETA,ISCUR,SX0,SABS,TETMID(MAXMDT),<br />

+ TETMAD(MAXMDT)<br />

+ ,SX0S,SX0T,SABSS,SABST,FACTSF<br />

+ ,DLTPHI,DLTETA,DPHIM1,DTETM1<br />

+ ,FCX0M1,FCLLM1,FCRRM1<br />

LOGICAL SCANFL<br />

COMMON/GCSCAC/SFIN,SFOUT<br />

CHARACTER*80 SFIN,SFOUT<br />

MSLIST dimension of ISLIST array (32);<br />

MAXMDT number of θ division types (3);<br />

SCANFL<br />

SCAN flag (.FALSE., SCAN, STURN);<br />

.TRUE.<br />

.FALSE.<br />

creation of SCAN geometry, geantinos will be tracked;<br />

normal tracking;<br />

NPHI<br />

PHIMIN<br />

PHIMAX<br />

number of φ divisions (90, SCAN, PHI);<br />

minimum φ in degrees (0 ◦ , SCAN, PHI);<br />

maximum φ in degrees (360 ◦ , SCAN, PHI);<br />

436 ZZZZ010 – 19

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

Saved successfully!

Ooh no, something went wrong!