X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Frescode.f;fp=source%2Funres%2Fsrc_MD-M%2Frescode.f;h=bc794895c99660b7d940d8167a063a57d3d8b8e7;hb=5b0e27e99ac1e61b8b155f3cc6351fac58c391ca;hp=2973ef9529f86eace91eee011b4595ca4317aa07;hpb=664d495e70d14eed4e97f7b8efd2e107dee2fd4e;p=unres.git

diff --git a/source/unres/src_MD-M/rescode.f b/source/unres/src_MD-M/rescode.f
index 2973ef9..bc79489 100644
--- a/source/unres/src_MD-M/rescode.f
+++ b/source/unres/src_MD-M/rescode.f
@@ -7,7 +7,7 @@
 
       if (itype.eq.0) then
 
-      do i=1,ntyp1
+      do i=-ntyp1,ntyp1
         if (ucase(nam).eq.restyp(i)) then
           rescode=i
           return
@@ -16,7 +16,7 @@
 
       else
 
-      do i=1,ntyp1
+      do i=-ntyp1,ntyp1
         if (nam(1:1).eq.onelet(i)) then
           rescode=i
           return