X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Funres%2Fio_config.F90;h=c9fe7719717924f875d4c4c6f9d4a5a7ee53167f;hb=59735b24a86ad80ac3115b6d36daf54254eac51f;hp=5ddca110bd6e9ca24b551f44401d33828b34ec06;hpb=d2088a7676356c745c2cff79ca5a7c2c6025e19c;p=unres4.git

diff --git a/source/unres/io_config.F90 b/source/unres/io_config.F90
index 5ddca11..c9fe771 100644
--- a/source/unres/io_config.F90
+++ b/source/unres/io_config.F90
@@ -3800,7 +3800,7 @@
           endif
           do j=1,3
 !            c(j,1)=c(j,2)-1.9d0*e2(j)
-             c(j,i)=c(j,i-1)+1.9d0*(-e1(j)+e2(j))/sqrt(2.0d0)
+             c(j,1)=c(j,2)+1.9d0*(e1(j)-e2(j))/sqrt(2.0d0)
           enddo
         else
         do j=1,3