X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Funres%2Fsrc_CSA_DiL%2Freadrtns_csa.F;h=b910bfa11b5b01df08881c1af9854ef836e62a13;hb=2c3ffb37de4b6bb5742eb15de9138dd2de99f887;hp=17b2165cfa18c1d89b2ba66fdb4ff93790fac0ff;hpb=b17d5c6a31cc5a18e91ebc5c4892e4983081d200;p=unres.git

diff --git a/source/unres/src_CSA_DiL/readrtns_csa.F b/source/unres/src_CSA_DiL/readrtns_csa.F
index 17b2165..b910bfa 100644
--- a/source/unres/src_CSA_DiL/readrtns_csa.F
+++ b/source/unres/src_CSA_DiL/readrtns_csa.F
@@ -509,9 +509,9 @@ c      print '(20i4)',(itype(i),i=1,nres)
 #endif
           itel(i)=0
 #ifdef PROCOR
-        else if (itype(i+1).ne.20) then
+        else if (iabs(itype(i+1)).ne.20) then
 #else
-        else if (itype(i).ne.20) then
+        else if (iabs(itype(i)).ne.20) then
 #endif
 	  itel(i)=1
         else