projects
/
unres.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
ctest - more checkgrad tests added
[unres.git]
/
source
/
cluster
/
wham
/
src-M
/
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