X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc%2Fenergy_p_new.F;h=af1476167eb2a8b5fa086b70879f12c5ff5f6ff1;hb=6afd4863682c2aea9d9b514beab6404c19164a57;hp=20c43f52e45330243d9b08534c08b8596e396cac;hpb=d5d23fd0abb6c6a3f4ea6b09b89ffbbfe5713236;p=unres.git diff --git a/source/cluster/wham/src/energy_p_new.F b/source/cluster/wham/src/energy_p_new.F index 20c43f5..af14761 100644 --- a/source/cluster/wham/src/energy_p_new.F +++ b/source/cluster/wham/src/energy_p_new.F @@ -4509,12 +4509,9 @@ c 3 = SC...Ca...Ca...SCi cosphi=dcos(j*tauangle(intertyp,i)) sinphi=dsin(j*tauangle(intertyp,i)) esccor=esccor+v1ij*cosphi+v2ij*sinphi -<<<<<<< HEAD -======= #ifdef DEBUG esccor_ii=esccor_ii+v1ij*cosphi+v2ij*sinphi #endif ->>>>>>> 3d6f9e7... Adam's changes to wham and cluster following previous commit gloci=gloci+j*(v2ij*cosphi-v1ij*sinphi) enddo gloc_sc(intertyp,i-3,icg)=gloc_sc(intertyp,i-3,icg)+wsccor*gloci