1      logical function pre_protein(sgmnam)
2c
3c $Id$
4c
5      implicit none
6c
7#include "pre_common.fh"
8c
9      character*5 sgmnam
10c
11      pre_protein=.true.
12c
13      if(sgmnam(1:3).eq.'ALA'.or.sgmnam(1:3).eq.'ARG'.or.
14     + sgmnam(1:3).eq.'ASN'.or.sgmnam(1:3).eq.'ASP'.or.
15     + sgmnam(1:3).eq.'CYS'.or.sgmnam(1:3).eq.'GLN'.or.
16     + sgmnam(1:3).eq.'GLU'.or.sgmnam(1:3).eq.'GLY'.or.
17     + sgmnam(1:3).eq.'HIS'.or.sgmnam(1:3).eq.'ILE'.or.
18     + sgmnam(1:3).eq.'LEU'.or.sgmnam(1:3).eq.'LYS'.or.
19     + sgmnam(1:3).eq.'MET'.or.sgmnam(1:3).eq.'PHE'.or.
20     + sgmnam(1:3).eq.'PRO'.or.sgmnam(1:3).eq.'SER'.or.
21     + sgmnam(1:3).eq.'THR'.or.sgmnam(1:3).eq.'TRP'.or.
22     + sgmnam(1:3).eq.'TYR'.or.sgmnam(1:3).eq.'VAL') return
23      if(ffield(1:5).eq.'amber') then
24      if(sgmnam(1:3).eq.'ASH'.or.sgmnam(1:3).eq.'CYX'.or.
25     + sgmnam(1:3).eq.'GLH'.or.sgmnam(1:3).eq.'HID'.or.
26     + sgmnam(1:3).eq.'HIE'.or.sgmnam(1:3).eq.'HIP') return
27      endif
28      if(ffield(1:6).eq.'charmm') then
29      if(sgmnam(1:3).eq.'CYX'.or.sgmnam(1:3).eq.'HSD'.or.
30     + sgmnam(1:3).eq.'HSE'.or.sgmnam(1:3).eq.'HSP') return
31      endif
32c
33      pre_protein=.false.
34      return
35      end
36