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