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