X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fxdrfpdb%2Fsrc-M%2Frescode.f;h=efa6c5c55c43aa8ac0d60d13b6b6761dd199efad;hb=2900dbb2e7e1c992d8603e52c0d080ee009318c2;hp=1fff9ecfa7b4c0763d2b044592f7fde5f22743af;hpb=0a0b19df2e0f4d0081a0df1b16ff63950010daa5;p=unres.git

diff --git a/source/xdrfpdb/src-M/rescode.f b/source/xdrfpdb/src-M/rescode.f
index 1fff9ec..efa6c5c 100644
--- a/source/xdrfpdb/src-M/rescode.f
+++ b/source/xdrfpdb/src-M/rescode.f
@@ -7,7 +7,7 @@
 
       if (ione.eq.0) then
 
-      do i=1,ntyp1
+      do i=-ntyp1,ntyp1
         if (ucase(nam).eq.restyp(i)) then
           rescode=i
           return
@@ -15,7 +15,7 @@
       enddo
       else
 
-      do i=1,ntyp1
+      do i=-ntyp1,ntyp1
         if (nam(1:1).eq.onelet(i)) then
           rescode=i
           return