1 logical function argos_prep_nucleic(sgmnam) 2c 3c $Id$ 4c 5 implicit none 6c 7#include "argos_prep_common.fh" 8c 9 character*5 sgmnam 10c 11 argos_prep_nucleic=.true. 12c 13 if(sgmnam(1:3).eq.'A '.or.sgmnam(1:3).eq.'+A '.or. 14 + sgmnam(1:3).eq.'C '.or.sgmnam(1:3).eq.'+C '.or. 15 + sgmnam(1:3).eq.'G '.or.sgmnam(1:3).eq.'+G '.or. 16 + sgmnam(1:3).eq.'I '.or.sgmnam(1:3).eq.'+I '.or. 17 + sgmnam(1:3).eq.'T '.or.sgmnam(1:3).eq.'+T '.or. 18 + sgmnam(1:3).eq.'U '.or.sgmnam(1:3).eq.'+U ') return 19 if(ffield(1:5).eq.'amber') then 20 if(sgmnam(1:3).eq.'DA '.or.sgmnam(1:3).eq.'RA '.or. 21 + sgmnam(1:3).eq.'DC '.or.sgmnam(1:3).eq.'RC '.or. 22 + sgmnam(1:3).eq.'DG '.or.sgmnam(1:3).eq.'RG '.or. 23 + sgmnam(1:3).eq.'DT '.or.sgmnam(1:3).eq.'RU ') return 24 endif 25 if(ffield(1:6).eq.'charmm') then 26 endif 27c 28 argos_prep_nucleic=.false. 29 return 30 end 31