c
c	Increased mequi from 21 to 40 (SC, 30/01/03)
c	Increased mequi from 40 to 101 (SC, 22/03/10)
      parameter(mequi=101)
      parameter(mh2=2*mh)
      parameter(mh3=3*mh)
      parameter(mrmp=31,mamp=65)
      parameter(melm=12)
      parameter(mfila=310)
      parameter(mobs=mebp+mabp)
      parameter(ms=1800,mt=900,mcoil=27)
      parameter(mm1=24,mm2=48,mm3=128,msw=10,msx=12) 
c
      common/com1/
     1 amps(mcoil,ms),a1(mh,mh),a2(mh,mh),a3(mh,mh),a4(mh,mh),a7(mh,mh),
     2 azelb(mh),azelt(mh),a2ipzb(mh),a2ipzt(mh),a3ipzb(mh),a3ipzt(mh),
     3 a7t(mh,mh),aaa(mh,mh3),aphv(mh),aroft(mh),aipcor(mh),
     4 axx(mh,mh),axi(mh,mh),a2ipz(mh),a3ipz(mh),a4ipz(mh),area(mequi),
     4 axiv(mh,mh),axiw(mh,mh),aroftb(mh),a3ipz3(mh),a4ipz3(mh),
     5 ame(mh,mh),ami(mh,mh),amle(mh,mh),amli(mh,mh),azel(mh),
     5 aphvb(mh),aphvt(mh),azels(mh),a2ipzs(mh),a3ipzs(mh),a4ipzs(mh),
     6 bzeroe(mequi),betai(mequi),bzpoft(mh),bzmoft(mh),
     7 beezep(mh),beezem(mh),beeoft(mh,mh),beetwo(mh),
     8 b1(mh,mh),b2(mh,mh),b3(mh,mh),b4(mh,mh),b5(mh,mh),b6(mh,mh),
     9 b3a(mh,mh),b4a(mh,mh),b5a(mh,mh),beezepb(mh),beezemb(mh),
     9 b7(mh,mh),bee(mequi,mh),beem(mh),gcurr(mequi,mh),currm(mh),
     9 gcurr_t(mh),bee_t(mh),flux_t(mh)
      common/com2/
     1 beearp(mh),beearm(mh),brpoft(mh),brmoft(mh),beexx(mh),
     2 bzpoftb(mh),bzmoftb(mh),brpoftb(mh),brmoftb(mh),
     2 coth(mh),cappab(mequi),dexf(mh),
     3 coe(mrmp,mamp,melm),dddd(mh),dp(mh),diamag(mequi),
     4 delpsib(mh),delpsit(mh),dpsoftb(mh),dpsoftt(mh),
     5 delpsi(mh),dpsoft(mh),beearpb(mh),beearmb(mh),
     6 ddd(mh),dex(mh,mh),dep(mh,mh),dfludt(mh),eee(mh),
     7 ep(mh),eli(mequi),elss(mh,mh),elplas(mequi),
     8 elpvone(mh),elpvtwo(mh),elponeb(mh),elptwob(mh)  
      common/com3/
     1 fluxoft(mh,mh),fluxtwo(mh),fluxxx(mh),
     3 flux(mequi,mh),flxa(mh),flxd(mh),gx(mh,mh),gp(mh,mh),
     5 gamma(mh),gbtwo(mh,8),gxf(mh),
     7 hvf(mfila),isvf(mh),isvl(mh),itype(mh),kgroup(mfila),
     9 nopt(mm1),placur(mequi),polcur(mh,mcoil) 
      common/com4/
     1 prlen(mh),qedge(mequi),qzeroe(mequi),rliaa(mabp),
     2 rvf(mfila),rlim(mequi,mebp),rlia(mequi,mabp),ropt(mm1),
     3 rbroe(mequi,mbro),rbzoe(mequi,mbzo),r(mrmp),resis(mh),
     4 raxb(mh),raxt(mh),rze(mequi),shvsec(mequi),
     5 sith(mh),sss(mh3),thbee(mh),tvf(mfila),
     6 tim(mequi),v4(mh),v5(mh),v6(mh),v7(mh),v10(mh),
     7 tevol(ms),timeqe(mequi),
     8 v11(mh),v12(mh),vecone(mh),vectwo(mh),volts(mcoil,ms),
     9 vvv(mh),v1(mh),v2(mh),
     9 v4b(mh),v4t(mh),v5b(mh),v5t(mh),v6b(mh),v6t(mh)  
      common/com5/
     1 wvf(mfila),www(mh),rbee(mh),rflu(mh),
     2 xfob(mobs),xbxob(mbro),xbzob(mbzo),xel(melm),xxx(mh),
     3 zvf(mfila),zbee(mh),zflu(mh),zax(mequi),zlim(mequi,mebp),
     4 zbroe(mequi,mbro),zbzoe(mequi,mbzo),z(mamp),
     4 zaxb(mh),zaxt(mh),zopt(mm1),
     5 zel(melm),zfob(mobs),zbxob(mbro),zecorrt(mh),
     6 zbzob(mbzo),zecorb(mequi),zecort(mequi),zecorrb(mh),
     7 zlia(mequi,mabp),zliaa(mabp),zeoft(mh),zeoftb(mh)   
c
      common/com6/
     1  aaasw(mm1,mm3,msw),amlsw(mm1,mm2,msw),
     2  g1sw(mm1,mm1,msx),g2sw(mm1,mm1,msx),g3sw(mm1,mm1,msx),
     2  aipoft(mh),bzeroft(mh),ohcur(mh),efcur(mt,17),
     5  toh(mt),efvolt(mt,18),
     8  arref(mt),zeref(mt),arrefb(mt),
     9  efwave(mt,24),zerefb(mt),zerefm(mt),cayref(mt)  
c
      common/com7/
     1 aph,arone,artwo,aroneb,artwob,aipone,aiptwo,
     1 bzpone,bzptwo,bzmone,bzmtwo,brpone,brptwo,brmone,
     1 brmtwo,bzponeb,bzptwob,bzmoneb,bzmtwob,brponeb,brptwob,
     1 brmoneb,brmtwob,bphbacq,bzmean,
     1 dxel,dzel,deltat,deltat1,deltat2,deltat5,entwo,filfac,
     1 it,ipra,iprml,ipreps,iprvol,iprx,iprmea,ilimre,iplatop, 
     1 iiout,itmax,jmax,kmax,
     1 mmax,midplan,moh1,moh2,moh3,moh4,moh5,moh6,moh7,moh8,
     1 moh9,moh10,mu1,mu2,mu3,mu4,mu5,mu6,mu7,mu8,midplad,midout,
     1 midplab,midplat,midoutb,midoutt
c
      common/com8/
     1 nprob,nloop,nmatrx,nsw,noht,
     1 ntoft,ngroup,nfob,nbxob,nbzob,nfoo,nob,nob1,nob2,
     1 nob3,ngroup1,nshap,noh,nshap1,nshaoh,nshafa,nip,nipm1,nip1,
     1 nip10,nip11,nflat,nflat1,nend,ntoftm1,nra,nca,nrg,ncg,nrm,ncm,
     1 oh1,oh2,oh3,oh4,oh5,oh6,oh7,oh8,oh9,oh10,omal,opal,ompsq,ompsq2,
     1 ompsq3,rhocu,rhovv,tpi,tone,ttwo,usdi,uc1r,uc2r,uc3r,
     1 ve1,ve2,ve3,ve4,ve5,ve6,ve7,ve8,ve9,ve10,vescur,vloop,
     1 zeone,zetwo,zeoneb,zetwob,zectwob,zectwot
