double precision nu,nutemp,Ptab,sigma2
      integer natlik,natlike,numnat,natdim,natliktemp
      logical caonly,sconly,print_refstr,rmscomp
      common /compar/ 
     &  Ptab(maxstr_proc,maxT,maxprot),
     &  sigma2(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)