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