Merge branch 'devel' into AFM
[unres.git] / source / cluster / unres / src / rescode.f
1       integer function rescode(iseq,nam,itype)
2       include 'DIMENSIONS'
3       include 'COMMON.NAMES'
4       include 'COMMON.IOUNITS'
5       character*3 nam,ucase
6
7       if (itype.eq.0) then
8
9       do i=1,ntyp1
10         if (ucase(nam).eq.restyp(i)) then
11           rescode=i
12           return
13         endif
14       enddo
15
16       else
17
18       do i=1,ntyp1
19         if (nam(1:1).eq.onelet(i)) then
20           rescode=i
21           return  
22         endif  
23       enddo
24
25       endif
26
27       write (iout,10) iseq,nam
28       stop
29    10 format ('**** Error - residue',i4,' has an unresolved name ',a3)
30       end
31