X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2FCSA.f90;h=9e7dbfa5667e3976b707955f8165183af855ebb1;hb=a5189f6bb38b0708d043a694919b39f8f4a820a6;hp=66b98eee45202915a03d6818c9c26d54f7675709;hpb=299e2c41124d3fa8adba7244716515a2cc160ed1;p=unres4.git

diff --git a/source/unres/CSA.f90 b/source/unres/CSA.f90
index 66b98ee..9e7dbfa 100644
--- 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