c
c  Conformation traits
      Parameter(ntr=25,no=25,nog=((no+1)*no/2),nymj=4000,
     x nam=2000000,nhys=100000,nage=30,nrec=1000000,nped=6000000,
     x nmis=30,ntrp=(((ntr+1)*ntr)/2),nop=nog)

      Common /BIGR/obs(nrec,no),bii(nam),adiag(nam),symj(nymj,no),
     x sanm(nam,no),shys(nhys,no),sage(nage,no),sape(nam,no),
     x Gi(nog),Hi(nog),Pi(nog),Ri(nog),ric(nmis,nog),ccn,ccd,ccc

      Common /BIGIN/an(nrec),sir(nam),dam(nam),jped(nam),itdr(nam),
     x iprog(nam),hys(nrec),bage(nrec),kymj(nrec),
     x kcod(nrec),cpa(nped),cpc(nped),cps(nped),cpd(nped),
     x phys(nrec),panm(nrec),page(nrec),pymj(nrec),
     x rcod(nmis,no),mam,mped,mrec,itest,bayes

      real*8 obs,bii,adiag,Gi,Hi,Pi,Ri,ric,sanm,shys,sage,symj,
     x sape,ccn,ccd,ccc

      integer an,sir,dam,jped,itdr,iprog,hys,bage,kymj,
     x mcod,cpa,cpc,cps,cpd,phys,panm,page,pymj,rcod,mam,mped,
     x mrec,itest,bayes