1 integer function rescode(iseq,nam,ione)
2 implicit real*8 (a-h,o-z)
5 include 'COMMON.IOUNITS'
11 if (ucase(nam).eq.restyp(i)) then
19 if (nam(1:1).eq.onelet(i)) then
27 write (iout,10) iseq,nam
29 10 format ('**** Error - residue',i4,' has an unresolved name ',a3)