adding ebend_nucl to UCGM+some further reading

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

diff --git a/source/unres/math.f90 b/source/unres/math.f90
index 03d12cf..798f90f 100644 (file)
--- a/source/unres/math.f90
+++ b/source/unres/math.f90
@@ -817,7 +817,7 @@
 
       do ij=1,2                                                                 
       do i=2,nres-1                                                             
-        if (itype(i).ne.10) then                                                
+        if (itype(i,1).ne.10) then                                                
           igall=igall+1                                                         
           if (mask_side(i).eq.1) then                                           
             ig=ig+1