X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-M%2Frescode.f;h=fb683507e5fea2bbb331483c62592777c4c99f0f;hb=9ab6a6c94ffa93357b777d7a01615bc2cb964622;hp=ca0305cd3a73a855b594f9b7c62b7dd5fa9bd275;hpb=478a9d9a1c99eb3f4bc4ca676ff3162bdd01d633;p=unres.git

diff --git a/source/cluster/wham/src-M/rescode.f b/source/cluster/wham/src-M/rescode.f
index ca0305c..fb68350 100644
--- a/source/cluster/wham/src-M/rescode.f
+++ b/source/cluster/wham/src-M/rescode.f
@@ -6,7 +6,7 @@
 
       if (itype.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 @@
 
       else
 
-      do i=1,ntyp1
+      do i=-ntyp1,ntyp1
         if (nam(1:1).eq.onelet(i)) then
           rescode=i
           return