small bugfix in readpdb

diff --git a/source/unres/io_config.F90 b/source/unres/io_config.F90
index 5ddca11..3384326 100644 (file)
--- 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