7 INTEGER,
PARAMETER ::
nmax=2000
11 REAL,
DIMENSION(:,:,:),
ALLOCATABLE ::
ai 12 INTEGER,
DIMENSION(:,:),
ALLOCATABLE ::
ns 13 REAL,
DIMENSION(:,:,:),
ALLOCATABLE ::
zs 14 REAL,
DIMENSION(:,:,:,:),
ALLOCATABLE::
xs real, dimension(:,:,:), allocatable ai
integer, parameter nordmax
real, dimension(:,:,:,:), allocatable xs
real, dimension(:,:,:), allocatable zs
integer, dimension(180), parameter nmax
integer, parameter nsdmax
integer, dimension(:,:), allocatable ns