c  Increased mh from 60 to 120 (SC, 22/03/10)
      parameter(mh=120)
      parameter(mcog=60)
      parameter(mbro=5,mbzo=5)
      parameter(mabp=25)
      parameter(mebp=20)      
c
      common/com21/
     1 aipdel,aipgain(6),aipipz,alpha,amagic,boost,bzmzero,bzpzero,
     1 brmzerb,brmzero,brpzerb,brpzero,bzmzerb,bzpzerb,
     1 curfac,delipz,deltar,diohdt(mh),
     1 dpsfac,dpszero,egain,emgain,f36same,
     1 fastm,fgain,flattop,gain,gainext(17),gainr,gainvz,gainvze,
     1 gainz,gainze,gapin,gapout,ggain,hgain,hpla,ierat,ievolv,
     1 if36fb,ifour,ikriz,ilarg,imeas,inova,iohfb,ipr16,iprcinc,
     1 ipripz,
     1 iprmax,iscale,iscramb,istop,iwrida,ixdr,mei,mvloop(8),
     1 ncosei,nelz,npsi,nr,nruns,ntmax,numeq,nvvel,nz,nzaxel,
     1 nzaxre,ohback,ohcorr,ohgain,ohsame,ohsami,psifac,rampt,
     1 relovo,ri,ro,rshift1,rshift2,rshift3,timefac,toft(mh),
     1 uc1,uc2,uc3,
     1 veback,vscal,wpla,wscal,xip,xop,zeecorr,zlp,zshift(3),zu,
     1 zup
c     
      common/com22/
     1 botlim,bzero,capaj,cappa1,cappa2,delta1,delta2,dissi,
     1 eftlim,ell1,ell2,emm1,emm2,hlamd1,hlamd2,iansha,
     1 itamax,ivsec,ibro,ibzo,
     1 ilia,ilie,isaddl,neqtcv,nfast,omega,placex,placu1,placu2,
     1 ppal,ppfac,psirat,qzero,ritlim,rmajo1,rmajo2,rmino1,
     1 rmino2,strki,testa,timeeq,toplim,ttfac1,ttfac2,vsec,
     1 weitam,weitex,zmajo1,zmajo2,zeecorb,zeecort
c
      common/com23/ 
     1 icoilon(mcog),rbro(mbro),rbzo(mbzo),
     1 rlia1(mabp),rlia2(mabp),rlim1(mebp),rlim2(mebp),
     1 zbro(mbro),zbzo(mbzo),zlia1(mabp),zlia2(mabp),
     1 zlim1(mebp),zlim2(mebp)
