X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fenergy_p_new_barrier.F;h=e6f630d1303b8d4ab6a7acd72c817eda74d05333;hb=fbad69b401dd3265da402f76b365aa80f6a99135;hp=cbaadfbe8a46f394de092b39d7dadb240c747c20;hpb=845b24e5c8d81526cc47f5f95982661aa6eddcfa;p=unres.git

diff --git a/source/unres/src_MD-M/energy_p_new_barrier.F b/source/unres/src_MD-M/energy_p_new_barrier.F
index cbaadfb..e6f630d 100644
--- a/source/unres/src_MD-M/energy_p_new_barrier.F
+++ b/source/unres/src_MD-M/energy_p_new_barrier.F
@@ -10141,7 +10141,8 @@ C lipbufthick is thickenes of lipid buffore
          gliptranc(3,i-1)=gliptranc(3,i-1)+ssgradlip*pepliptran/2.0d0
 C         gliptranc(3,i-2)=gliptranc(3,i)+ssgradlip*pepliptran
 
-C         print *,"doing sccale for lower part"
+C        print *,"doing sccale for lower part"
+C         print *,i,sslip,fracinbuf,ssgradlip
         elseif (positi.gt.bufliptop) then
          fracinbuf=1.0d0-((bordliptop-positi)/lipbufthick)
          sslip=sscalelip(fracinbuf)
@@ -10151,6 +10152,7 @@ C         print *,"doing sccale for lower part"
          gliptranc(3,i-1)=gliptranc(3,i-1)+ssgradlip*pepliptran/2.0d0
 C         gliptranc(3,i-2)=gliptranc(3,i)+ssgradlip*pepliptran
 C          print *, "doing sscalefor top part"
+C         print *,i,sslip,fracinbuf,ssgradlip
         else
          eliptran=eliptran+pepliptran
 C         print *,"I am in true lipid"
@@ -10163,7 +10165,7 @@ C       print *, "nic nie bylo w lipidzie?"
 C now multiply all by the peptide group transfer factor
 C       eliptran=eliptran*pepliptran
 C now the same for side chains
-C       do i=1,1
+CV       do i=1,1
        do i=ilip_start,ilip_end
         if (itype(i).eq.ntyp1) cycle
         positi=(mod(c(3,i+nres),boxzsize))
@@ -10183,9 +10185,9 @@ C lipbufthick is thickenes of lipid buffore
          ssgradlip=-sscagradlip(fracinbuf)/lipbufthick
          eliptran=eliptran+sslip*liptranene(itype(i))
          gliptranx(3,i)=gliptranx(3,i)
-     &+ssgradlip*liptranene(itype(i))/2.0d0
+     &+ssgradlip*liptranene(itype(i))
          gliptranc(3,i-1)= gliptranc(3,i-1)
-     &+ssgradlip*liptranene(itype(i))/2.0d0
+     &+ssgradlip*liptranene(itype(i))
 C         print *,"doing sccale for lower part"
         elseif (positi.gt.bufliptop) then
          fracinbuf=1.0d0-
@@ -10194,9 +10196,9 @@ C         print *,"doing sccale for lower part"
          ssgradlip=sscagradlip(fracinbuf)/lipbufthick
          eliptran=eliptran+sslip*liptranene(itype(i))
          gliptranx(3,i)=gliptranx(3,i)
-     &+ssgradlip*liptranene(itype(i))/2.0d0
+     &+ssgradlip*liptranene(itype(i))
          gliptranc(3,i-1)= gliptranc(3,i-1)
-     &+ssgradlip*liptranene(itype(i))/2.0d0
+     &+ssgradlip*liptranene(itype(i))
 C          print *, "doing sscalefor top part",sslip,fracinbuf
         else
          eliptran=eliptran+liptranene(itype(i))