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.

C ESHELL - Shells potentials in eV !!!<br />

INTEGER LENGTH,MAXSHL<br />

PARAMETER (LENGTH= 1409)<br />

PARAMETER (MAXSHL=24)<br />

INTEGER NSHLST,N1ST,NSHLLS<br />

REAL ESHELL<br />

DIMENSION NSHLST(MAXSHL),N1ST(MAXELZ),NSHLLS(MAXELZ)<br />

DIMENSION ESHELL(LENGTH)<br />

COMMON /GCSHPT/NSHLST,N1ST,NSHLLS,ESHELL<br />

C<br />

+SEQ /GCPHPR/<br />

Probability of radiative decay mode<br />

C<br />

C<br />

Probability of radiative decay mode.<br />

COMMON /GCPHPR/ GFLUPR(4,MAXELZ)<br />

+SEQ /GCPHNR/<br />

Nonradiative decay mode for photoelectric effect<br />

C<br />

C<br />

INRFIN - nonradiative decay mode<br />

COMMON /GCPHNR/ IGNRFN(8,MAXELZ)<br />

+SEQ /GCPHRD/<br />

Radiative rates for photoelectric effect<br />

C<br />

C<br />

GRATE - radiative modes’ rates<br />

PARAMETER (KSHLS=6)<br />

PARAMETER (L1SHLS=8)<br />

PARAMETER (L2SHLS=7)<br />

PARAMETER (L3SHLS=8)<br />

PARAMETER (ISHLS=29)<br />

COMMON / GCPHRD / GPHRAT(ISHLS,MAXELZ),ISHLUS(24,4),ISHLTR(ISHLS)<br />

+SEQ /GCPHXS/<br />

Sandia parametrisation coefficients<br />

+KEEP,GCPHXS.<br />

PARAMETER (MAXPOW=4)<br />

PARAMETER (MAXINT=13)<br />

CHARACTER*6 CRNGUP<br />

COMMON /GCPXRN/ CRNGUP(MAXINT,MAXELZ)<br />

COMMON /GCPXCF/ COFS(MAXPOW,MAXINT,MAXELZ),GPOMIN(MAXELZ)<br />

C<br />

MAXPOW<br />

MAXINT<br />

maximum power of the variable E −1 in the parametrisation;<br />

maximum number of parametrisation intervals;<br />

ZZZZ010 – 32 449

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

Saved successfully!

Ooh no, something went wrong!