X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Fxdrfpdb%2Fsrc-M%2Frescode.f;h=efa6c5c55c43aa8ac0d60d13b6b6761dd199efad;hb=8240250d17b6fe7bc28f03d503d5f9c6ad935297;hp=1fff9ecfa7b4c0763d2b044592f7fde5f22743af;hpb=a45ce81aae2c857c30b821e39e45a7a08356de4d;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