C calculations and defines weights of various energy terms.
C 12/1/95 wcorr added
C-----------------------------------------------------------------------
- integer n_ene_comp,rescale_mode
+ integer n_ene_comp,rescale_mode,ipot
+ double precision wsc,wscp,welec,wbond,wstrain,wtor,wtor_d,wang,
+ & wscloc,wcorr,wcorr4,wcorr5,wcorr6,wsccor,wel_loc,wturn3,wturn4,
+ & wturn6,wvdwpp,weights,wliptran,wsaxs,temp0,
+ & scal14,cutoff_corr,delt_corr,r0_corr
common /ffield/ wsc,wscp,welec,wbond,wstrain,wtor,wtor_d,wang,
& wscloc,wcorr,wcorr4,wcorr5,wcorr6,wsccor,wel_loc,wturn3,wturn4,
- & wturn6,wvdwpp,weights(n_ene),temp0,
+ & wturn6,wvdwpp,weights(n_ene),wliptran,wsaxs,temp0,
& scal14,cutoff_corr,delt_corr,r0_corr,ipot,n_ene_comp,
& rescale_mode
common /potentials/ potname(5)