X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Frescode.f;h=2973ef9529f86eace91eee011b4595ca4317aa07;hb=f6eb5c2d70287339a62fc51fadfbce56be74c40a;hp=12abbbebd79107b31d26d941ecca8d96a97e2ca3;hpb=1ec63117ee44a3e787d12afd971025ec11340b1f;p=unres.git diff --git a/source/unres/src_MD/rescode.f b/source/unres/src_MD/rescode.f index 12abbbe..2973ef9 100644 --- a/source/unres/src_MD/rescode.f +++ b/source/unres/src_MD/rescode.f @@ -7,8 +7,7 @@ if (itype.eq.0) then - do i=-ntyp1,ntyp1 -cc write(iout,*),i,ucase(nam),restyp(i) + do i=1,ntyp1 if (ucase(nam).eq.restyp(i)) then rescode=i return @@ -17,7 +16,7 @@ cc write(iout,*),i,ucase(nam),restyp(i) else - do i=-ntyp1,ntyp1 + do i=1,ntyp1 if (nam(1:1).eq.onelet(i)) then rescode=i return