integer iscode,indpdb,outpdb,outmol2,icomparfunc,pdbint,
     & symetr,shield_mode,tor_mode
      logical refstr,pdbref,punch_dist,print_rms,verbose,out_newe,
     & unres_pdb,geom_and_wham_weights,with_dihed_constr,
     & with_theta_constr,energy_dec
      common /cntrl/ iscode,indpdb,refstr,pdbref,outpdb,outmol2,
     & punch_dist,print_rms,verbose,out_newe,icomparfunc,pdbint,
     & unres_pdb,geom_and_wham_weights,with_dihed_constr,
     & with_theta_constr,energy_dec,symetr,shield_mode,tor_mode