added source code
[unres.git] / source / unres / src_CSA / COMMON.FFIELD
1 C-----------------------------------------------------------------------
2 C The following COMMON block selects the type of the force field used in
3 C calculations and defines weights of various energy terms.
4 C 12/1/95 wcorr added
5 C-----------------------------------------------------------------------
6       integer n_ene_comp,rescale_mode
7       common /ffield/ wsc,wscp,welec,wbond,wstrain,wtor,wtor_d,wang,
8      &  wscloc,wcorr,wcorr4,wcorr5,wcorr6,wsccor,wel_loc,wturn3,wturn4,
9      &  wturn6,wvdwpp,wsct,weights(n_ene),temp0,
10      &  wdfa_dist,wdfa_tor,wdfa_nei,wdfa_beta,
11      &  scal14,cutoff_corr,delt_corr,r0_corr,ipot,n_ene_comp,
12      &  rescale_mode
13       common /potentials/ potname(5)
14       character*3 potname
15 C-----------------------------------------------------------------------
16 C wlong,welec,wtor,wang,wscloc are the weight of the energy terms 
17 C corresponding to side-chain, electrostatic, torsional, valence-angle,
18 C and local side-chain terms.
19 C
20 C IPOT determines which SC...SC interaction potential will be used:
21 C 1 - LJ:  2n-n Lennard-Jones
22 C 2 - LJK: 2n-n Kihara type (shifted Lennard-Jones) 
23 C 3 - BP;  Berne-Pechukas (angular dependence)
24 C 4 - GB;  Gay-Berne (angular dependence)
25 C 5 - GBV; Gay-Berne-Vorobjev; angularly-dependent Kihara potential
26 C------------------------------------------------------------------------