1 double precision nu,nutemp,Ptab,sigma2
2 integer natlik,natlike,numnat,natdim,natliktemp
3 logical caonly,sconly,print_refstr,rmscomp
5 & Ptab(maxstr_proc,maxT,maxprot),
7 & nu(maxdimnat,maxnatlike,maxstr,maxprot),
8 & nutemp(maxdimnat,maxnatlike),numnat(maxnatlike,maxprot),
9 & natlike(maxprot),natlik,natliktemp(maxnatlike),
10 & natdim(maxnatlike,maxprot),
12 & caonly(maxprot),sconly(maxprot),