common /help/ order, 
     $ ord2, 
     $ ni_bin, 
     $ nj_bin, 
     $ gmqgm1, 
     $ nxstep, 
     $ width, 
     $ gmm1in, 
     $ nystep, 
     $ gm1, 
     $ twelvi, 
     $ pi8inv, 
     $ ca, 
     $ pi, 
     $ dcoef(20), 
     $ pdmb, 
     $ bdif, 
     $ gamma, 
     $ alcon, 
     $ rusvis, 
     $ evmax, 
     $ ggm1in, 
     $ alpha, 
     $ gamm1, 
     $ ggm1, 
     $ fcoef(20), 
     $ betmax, 
     $ beta, 
     $ gp1, 
     $ gm1inv, 
     $ cainv, 
     $ gminv, 
     $ drop(20), 
     $ pi4inv, 
     $ pi4, 
     $ crnt
      integer order 
      integer ord2 
      integer ni_bin 
      integer nj_bin 
      real gmqgm1 
      real nxstep 
      real width 
      real gmm1in 
      real nystep 
      real gm1 
      real twelvi 
      real pi8inv 
      real ca 
      real pi 
      real dcoef 
      real pdmb 
      real bdif 
      real gamma 
      real alcon 
      real rusvis 
      real evmax 
      real ggm1in 
      real alpha 
      real gamm1 
      real ggm1 
      real fcoef 
      real betmax 
      real beta 
      real gp1 
      real gm1inv 
      real cainv 
      real gminv 
      real drop 
      real pi4inv 
      real pi4 
      real crnt