3 *
Eecen2, ! squared of the ecentricity
6 * Minheight ! min
height without soil.
m 11 * Minheight = -500.
d0)
integer npitbl real *nx parameter(n=101, npitbl=46, nx=n-1) real *8 uconst
real(8), parameter, public m
! earth defining parameter real ! radius in m ! squared of the ecentricity ecen2 * Maxheight
! earth defining parameter real ! radius in m * Eecen2
block data cblkIncident data *Za1ry *HeightOfInj d3
! earth defining parameter real ! radius in m ! squared of the ecentricity * Eone_ecen2
block data cblkEvhnp ! currently usable models data RegMdls ad *special data *Cekaon d0
*Zfirst p fm *Zfirst p Zfirst p Zfirst p *Zfirst p *Zfirst pos xyz Zfirst pos xyz *Zfirst pos *Zfirst pos Zfirst pos height
! earth defining parameter real * Eradius
1.8.13