debugging 5Dia

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

diff --git a/source/unres/CSA.f90 b/source/unres/CSA.f90
index 66b98ee..9e7dbfa 100644 (file)
--- a/source/unres/CSA.f90
+++ b/source/unres/CSA.f90
@@ -804,7 +804,7 @@
 ! Groups the ALPHAs and the BETAs
       do k=1,numch
        do j=2,nres-1
-        if(itype(j).ne.10) then
+        if(itype(j,1).ne.10) then
          indg=indg+1
          ngroup(indg)=2
          do i=1,ngroup(indg)
@@ -2038,7 +2038,7 @@
 #endif
           endif
           do j=jstart,jend
-            if (itype(j).eq.10) then
+            if (itype(j,1).eq.10) then
               iang=2
             else
               iang=4
@@ -2050,7 +2050,7 @@
           enddo
           if (ishift.gt.0) then
            do j=0,ishift-1
-            if (itype(jend+j).eq.10) then
+            if (itype(jend+j,1).eq.10) then
               iang=2
             else
               iang=4
@@ -2062,7 +2062,7 @@
            enddo
           else
            do j=0,-ishift-1
-            if (itype(jstart+j).eq.10) then
+            if (itype(jstart+j,1).eq.10) then
               iang=2
             else
               iang=4
@@ -2476,7 +2476,7 @@
 !          enddo
 !          call intout
           do j=jstart,jend
-            if (itype(j).eq.10) then
+            if (itype(j,1).eq.10) then
               iang=2
             else
               iang=4