8 REAL(rprec),
DIMENSION(nsd) ::
dshear
9 REAL(rprec),
DIMENSION(nsd) ::
dwell
10 REAL(rprec),
DIMENSION(nsd) ::
dcurr
11 REAL(rprec),
DIMENSION(nsd) ::
dmerc
12 REAL(rprec),
DIMENSION(nsd) ::
dgeod
real(rprec), dimension(nsd) dgeod
real(rprec), dimension(nsd) dmerc
real(rprec), dimension(nsd) dwell
real(rprec), dimension(nsd) dcurr
real(rprec), dimension(nsd) dshear
integer, parameter nsd
maximum number of radial nodes