X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Frescode.f;h=dbbb4590be0e4c83a7c9ded98f6e8a358d91dd71;hb=34d3ad3987785642be58fb2f26557d3314215577;hp=b516fedf505bd03f9e3517968e0074bae5f70b7e;hpb=f690e8b70bab14132839afebf080d4a28363b226;p=unres.git

diff --git a/source/wham/src-M/rescode.f b/source/wham/src-M/rescode.f
index b516fed..dbbb459 100644
--- a/source/wham/src-M/rescode.f
+++ b/source/wham/src-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