double precision betaT
      integer iscode,indpdb,outpdb,outmol2,iopt
      logical refstr,pdbref,punch_dist,print_dist,caonly,lside,
     & lprint_cart,lprint_int,from_cart,efree
      common /cntrl/ betaT,iscode,indpdb,refstr,pdbref,outpdb,outmol2,
     & punch_dist,print_dist,caonly,lside,lprint_cart,lprint_int,
     & from_cart,efree,iopt