---input:
nprmt= number of relevant parameters in temp storage
(integer*2)
sert = name of the observation series in temp storage
(character*4)
sitt = name(s) of the observing site(s) in temporary storage
(character*4)
prmt = array of parameters in temporary storage
(real*4)
lprmt= flags designating whether to adjust the parameters
(integer*2)
ndim = maximum number of parameters in prm/prmt
(integer*4)
ndims= number of site names to copy
(integer*4)
ndimp= number of sets of parameters in storage
(integer*4)
l    = index for copying to final storage
(integer*4)
npl  = current planet number for copying
(integer*4)

---output:
nprm = number of relevant parameters in final storage
(integer*2)
ser  = name of the observation series in final storage
(character*4)
site = name(s) of the observing site(s) in final storage
(character*4)
prm  = array of parameters in final storage
(real*4)
lprm = flags designating whether to adjust the parameters
(integer*2)