1 double precision nu,nutemp,Ptab,sigma2,sigmaang2,sigmaside2
2 integer natlik,natlike,numnat,natdim,natliktemp
3 logical caonly,sconly,print_refstr,rmscomp,anglecomp,sidecomp
5 & Ptab(maxstr_proc,maxT,maxprot),
6 & sigma2(maxprot),sigmaang2(maxprot),sigmaside2(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),
13 & rmscomp(maxprot),anglecomp(maxprot),sidecomp(maxprot)