implicit real*8(a-h,o-z)
      parameter(mnp=150000)
      parameter(mne=300000)
      parameter(mnei=140)
      parameter(mnb=200) !max. # of bnd segments
      parameter(epsilon=1.0d-3) !used to check area ratio
      parameter(pi=3.1415926)

      common/conn1/xn(mnp),yn(mnp),ic1(mne,3),error0(mnp),itab(mnp)
      common/conn2/nsur_e(mnp),ic_e(mnp,mnei)
      common/conn3/nrsv(mnp),ibdf(mnp),irsve(mne),iskew(mne)
      common/bg/x0(mnp),y0(mnp),ic0(mne,3),ic4(mne,3),area0(mne)
      common/sm/nsur2(mnp),ic3(mnp,mnei)

      common/cst1/nn,nt,nn0,nt0,ierr_type
      common/cst2/cst_neg,xmin,xmax,ymin,ymax