correction in returnbox

[unres4.git] / source / unres / check_bond.f90

diff --git a/source/unres/check_bond.f90 b/source/unres/check_bond.f90
index dbb1d6c..7a743da 100644 (file)
--- a/source/unres/check_bond.f90
+++ b/source/unres/check_bond.f90
@@ -25,7 +25,7 @@
 !el local variables
        integer :: it,i
 
-       it=itype(2)
+       it=itype(2,1)
        do i=1,101
          vbld(nres+2)=0.5d0+0.05d0*(i-1)
          call chainbuild