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