source/cluster/wham/src/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