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.

RADDEG radiants to degrees conversion factor (180/π);<br />

CLIGHT light velocity in cm s −1 ;<br />

BIG arbitrary large number;<br />

EMASS electron mass in GeV c −2 ;<br />

EMMU muon mass in GeV c −2 ;<br />

PMASS proton mass in GeV c −2 ;<br />

AVO Avogadro’s number ×10 −24 .<br />

+SEQ /GCONSP/<br />

Basic constants<br />

These parameters are in SINGLE PRECISION on 64 bits machines.<br />

*<br />

*<br />

DOUBLE PRECISION PI,TWOPI,PIBY2,DEGRAD,RADDEG,CLIGHT,BIG,EMASS<br />

DOUBLE PRECISION EMMU,PMASS,AVO<br />

PARAMETER (PI=3.14159265358979324D0)<br />

PARAMETER (TWOPI=6.28318530717958648D0)<br />

PARAMETER (PIBY2=1.57079632679489662D0)<br />

PARAMETER (DEGRAD=0.0174532925199432958D0)<br />

PARAMETER (RADDEG=57.2957795130823209D0)<br />

PARAMETER (CLIGHT=29979245800.D0)<br />

PARAMETER (BIG=10000000000.D0)<br />

PARAMETER (EMASS=0.0005109990615D0)<br />

PARAMETER (EMMU=0.105658387D0)<br />

PARAMETER (PMASS=0.9382723128D0)<br />

PARAMETER (AVO=0.60221367D0)<br />

+SEQ /GCOPTI/<br />

Control of geometry optimisation<br />

C<br />

COMMON/GCOPTI/ IOPTIM<br />

IOPTIM<br />

Optimisation flag<br />

-1 no optimisation at all; GSORD calls disabled;<br />

0 no optimisation; only user calls to GSORD kept;<br />

1 all non-GSORDered volumes are ordered along the best axis;<br />

2 all volumes are ordered along the best axis.<br />

+SEQ /GCPARA/<br />

Control of parametrized energy deposition<br />

C<br />

C<br />

INTEGER BITPHI, BITTET, BITPOT<br />

LOGICAL SYMPHI, SYMTEU, SYMTED<br />

PARAMETER (LSTACK = 5000)<br />

BITPOT is for Phi.Or.Tet<br />

ZZZZ010 – 14 431

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

Saved successfully!

Ooh no, something went wrong!