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