1 integer function rescode(iseq,nam,itype,lprn)
3 include 'DIMENSIONS.ZSCOPT'
5 include 'COMMON.IOUNITS'
12 if (ucase(nam).eq.restyp(i)) then
21 if (nam(1:1).eq.onelet(i)) then
29 if (lprn) write (iout,10) iseq,nam
32 10 format ('**** Error - residue',i4,' has an unresolved name ',a3)