c     * * * * * * g l o b a l  c o m m o n  s e c t i o n s * * * *
c
      real *8 obs(30)
      real *4 b(200),tmiss,xmiss(6,3),caseid(4)
     0integer *4 iblock,idic,igp,iobcd1,iobcd2,iocr,iofile,
     1           iofil2,iolp,ioscr1,ioscr2,ipage,isf,istr,
     2           lblpnt(3,6),line,linemx,ncard,ncases(200),ndic,ngp,
     3           noob,nsf,nvar,nvnew,nvold,wgtvar,wgtvrp,nsfold,mxmss,
     4           errct,mxerr,nsmax,mxvar,lhunkt,lhunkw,ishr,istrnp,
     5           mxrvar,isrl,litorg,
     6           nrval,nrvar,
     7           nvtrn,nvtrnp,varnum(6)
     0integer *2 nmiss(6),sfgrp(200),vfmt(30),
     1           stfmt,afmt,nbcd2
     0logical    qchang,qfatal,qfirst,qmiss(30),
     1           qopt(20),qoptsr(20),qpass2,qskeep(200),qstat(24),
     2           qsw(20),qvkeep(6)
      character  string*80, formt*80, tabchr*1, varnam(30)*8,
     1 sfdic(200)*8
      common/cmn1/ b,tmiss,caseid,
     1             iblock,idic,igp,iobcd1,iobcd2,iocr,
     2             iofile,iofil2,iolp,ioscr1,ioscr2,ipage,isf,istr,
     3             line,linemx,ncard,ncases,ndic,ngp,noob,nsf,nvar,
     4             nvnew,nvold,wgtvar,wgtvrp,nsfold,mxmss,errct,mxerr,
     5             nsmax,mxvar,lhunkt,lhunkw,ishr,istrnp,mxrvar,isrl,
     6             litorg,nrval,nrvar,
     8             nvtrn,nvtrnp,varnum,
     9             stfmt,afmt,nbcd2,
     a             qchang,qfatal,qfirst,qmiss,qopt,qoptsr,
     b             qpass2,qskeep,qstat,qsw,qvkeep
      common/cmn2/ lblpnt,sfgrp,vfmt
      common/cmn3/ obs,xmiss,nmiss
      common/cmn4/ string,formt,tabchr,varnam,sfdic
c
c     * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *