double precision nu,nutemp,Ptab,sigma2,sigmaang2,sigmaside2
      integer natlik,natlike,numnat,natdim,natliktemp
      logical caonly,sconly,print_refstr,rmscomp,anglecomp,sidecomp
      common /compar/ 
     &  Ptab(maxstr_proc,maxT,maxprot),
     &  sigma2(maxprot),sigmaang2(maxprot),sigmaside2(maxprot),
     &  nu(maxdimnat,maxnatlike,maxstr,maxprot),
     &  nutemp(maxdimnat,maxnatlike),numnat(maxnatlike,maxprot),
     &  natlike(maxprot),natlik,natliktemp(maxnatlike),
     &  natdim(maxnatlike,maxprot),
     &  print_refstr,
     &  caonly(maxprot),sconly(maxprot),
     &  rmscomp(maxprot),anglecomp(maxprot),sidecomp(maxprot)