2 ! common
for std atmosphere.
4 real*8 AlmostVacT ! thickness there
9 common /comstdatm/ ha, hb, hl, hm, hn, hc, t0,
11 ! -----------------------------------
! common for std atmosphere real *AlmostVacH ! almost vacuum height real *AlmostVacT ! thickness there hm
! common for std atmosphere real *AlmostVacH ! almost vacuum height real *AlmostVacT ! thickness there hb
block data cblkIncident data *Za1ry *HeightOfInj d3
! common for std atmosphere real *AlmostVacH ! almost vacuum height real *AlmostVacT ! thickness there hc
! common for std atmosphere real *AlmostVacH ! almost vacuum height real *AlmostVacT ! thickness there hl
! common for std atmosphere real *AlmostVacH ! almost vacuum height real *AlmostVacT ! thickness there parameter(AlmostVacH=101.d3, AlmostVacT=1.d-3) real *8 ha
*Zfirst p fm *Zfirst p Zfirst p Zfirst p *Zfirst p *Zfirst pos xyz Zfirst pos xyz *Zfirst pos *Zfirst pos Zfirst pos height
! common for std atmosphere real *AlmostVacH ! almost vacuum height real *AlmostVacT ! thickness there hmi
dE dx *! Nuc Int sampling table d
! common for std atmosphere real *AlmostVacH ! almost vacuum height real *AlmostVacT ! thickness there hlhmi common comstdatm ha
! common for std atmosphere real *AlmostVacH ! almost vacuum height real *AlmostVacT ! thickness there t0
! common for std atmosphere real *AlmostVacH ! almost vacuum height real *AlmostVacT ! thickness there hn