projects
/
unres.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
make cp src-HCD-5D
[unres.git]
/
source
/
unres
/
src-HCD-5D
/
rescode.f
1
integer function rescode(iseq,nam,itype)
2
implicit none
3
integer iseq,itype,i
4
include 'DIMENSIONS'
5
include 'COMMON.NAMES'
6
include 'COMMON.IOUNITS'
7
character*3 nam,ucase
8
9
if (itype.eq.0) then
10
11
do i=-ntyp1,ntyp1
12
if (ucase(nam).eq.restyp(i)) then
13
rescode=i
14
return
15
endif
16
enddo
17
18
else
19
20
do i=-ntyp1,ntyp1
21
if (nam(1:1).eq.onelet(i)) then
22
rescode=i
23
return
24
endif
25
enddo
26
27
endif
28
29
write (iout,10) iseq,nam
30
stop
31
10 format ('**** Error - residue',i4,' has an unresolved name ',a3)
32
end
33