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