X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2FCOMMON.FFIELD;h=44aa937b3fdfa67637b055534e579b6e6180c0fb;hb=d24fd92f8762d3b48a94c699ef90e0ab37d3c204;hp=d7d8cde250385a67c343cb67e79e746dfb4233c4;hpb=478a9d9a1c99eb3f4bc4ca676ff3162bdd01d633;p=unres.git diff --git a/source/unres/src_MD-M/COMMON.FFIELD b/source/unres/src_MD-M/COMMON.FFIELD index d7d8cde..44aa937 100644 --- a/source/unres/src_MD-M/COMMON.FFIELD +++ b/source/unres/src_MD-M/COMMON.FFIELD @@ -3,10 +3,14 @@ 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----------------------------------------------------------------------- - 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)