C-----------------------------------------------------------------------
C The following COMMON block selects the type of the force field used in
C calculations and defines weights of various energy terms.
C 12/1/95 wcorr added
C-----------------------------------------------------------------------
      common /ffield/ wsc,wscp,welec,wstrain,wtor,wang,wscloc,wcorr,
     &    wcorr4,wcorr5,wcorr6,wel_loc,wturn,scal14,
     &    cutoff_corr,delt_corr,r0_corr,ipot
      common /potentials/ potname(5)
      character*3 potname
C-----------------------------------------------------------------------
C wlong,welec,wtor,wang,wscloc are the weight of the energy terms 
C corresponding to side-chain, electrostatic, torsional, valence-angle,
C and local side-chain terms.
C
C IPOT determines which SC...SC interaction potential will be used:
C 1 - LJ:  2n-n Lennard-Jones
C 2 - LJK: 2n-n Kihara type (shifted Lennard-Jones) 
C 3 - BP;  Berne-Pechukas (angular dependence)
C 4 - GB;  Gay-Berne (angular dependence)
C 5 - GBV; Gay-Berne-Vorobjev; angularly-dependent Kihara potential
C------------------------------------------------------------------------