common/bondh/nbonh,ibh(maxbnh),jbh(maxbnh),icbh(maxbnh)
common/bonda/nbona,iba(maxbon),jba(maxbon),icba(maxbon)
common/theth/ntheth,ith(maxanh),jth(maxanh),kth(maxanh), &
      icth(maxanh)
common/theta/ntheta,ita(maxang),jta(maxang),kta(maxang), &
      icta(maxang)
common/dihedh/nphih,iph(maxdih),jph(maxdih),kph(maxdih), &
      lph(maxdih),icph(maxdih)
common/diheda/nphia,ipa(maxdia),jpa(maxdia),kpa(maxdia), &
      lpa(maxdia),icpa(maxdia)
common/nbterm/cut,nbuck,iblo(maxatom),inb(maxinb)
common/hbpar/asol(70),bsol(70),hbcut(70)
common/parms/rk(300),req(300),tk(450),teq(450),pk(250),pn(250), &
      phase(250),cn1(465),cn2(465),solty(30), &
      fk(450),fpk(450),qeq(450)