*** sfch_prog.f-pr2	2006-03-10 10:42:04.000000000 -0500
--- sfch_prog.f	2006-03-10 11:06:48.000000000 -0500
***************
*** 8873,8886 ****
  C -----------------------------------------------
        CHARACTER ANAME*4,ASYMB*4,ATOM*4,RNAME*3
  C ----------------------------------------------
!       PARAMETER (N_NAME = 33)
  C -----------------------------------------------
        CHARACTER CH2*2
        CHARACTER NAME(N_NAME)*2
        DATA NAME/'CO','MG','CA','ZN','CU','FE','CL','BR','MN','PB',
       *          'HG','AL','GD','NA','CD','NI','SR','IN','HO','YB',
       *          'TE','LI','RB','BA','CS','SM','TL','PT','BE','SE',
!      *          'MO','SI','I '/
  C ??? more
  C ---------------------------------------------
        ATOM= '    '
--- 8873,8886 ----
  C -----------------------------------------------
        CHARACTER ANAME*4,ASYMB*4,ATOM*4,RNAME*3
  C ----------------------------------------------
!       PARAMETER (N_NAME = 34)
  C -----------------------------------------------
        CHARACTER CH2*2
        CHARACTER NAME(N_NAME)*2
        DATA NAME/'CO','MG','CA','ZN','CU','FE','CL','BR','MN','PB',
       *          'HG','AL','GD','NA','CD','NI','SR','IN','HO','YB',
       *          'TE','LI','RB','BA','CS','SM','TL','PT','BE','SE',
!      *          'MO','SI','I ','AS'/
  C ??? more
  C ---------------------------------------------
        ATOM= '    '
***************
*** 12710,12716 ****
  
        SUBROUTINE CORR_NAME_NDB(ANAME,RNAME,ASYMB,CTYPE)
  C ----------------------------------------------
!       PARAMETER (N_NAME = 33)
        CHARACTER ANAME*4,RNAME*3,ASYMB*4,CTYPE*4
  C -----------------------------------------------
        CHARACTER TYPE*1,CH1*1,CH2*2,CH4*4,CH3*3
--- 12710,12716 ----
  
        SUBROUTINE CORR_NAME_NDB(ANAME,RNAME,ASYMB,CTYPE)
  C ----------------------------------------------
!       PARAMETER (N_NAME = 34)
        CHARACTER ANAME*4,RNAME*3,ASYMB*4,CTYPE*4
  C -----------------------------------------------
        CHARACTER TYPE*1,CH1*1,CH2*2,CH4*4,CH3*3
***************
*** 12723,12729 ****
        DATA NAME/'CO','MG','CA','ZN','CU','FE','CL','BR','MN','PB',
       *          'HG','AL','GD','NA','CD','NI','SR','IN','HO','YB',
       *          'TE','LI','RB','BA','CS','SM','TL','PT','BE','SE',
!      *          'MO','SI','I '/
  C ??? more
  C ---
        DATA      NCODE_RES/32/
--- 12723,12729 ----
        DATA NAME/'CO','MG','CA','ZN','CU','FE','CL','BR','MN','PB',
       *          'HG','AL','GD','NA','CD','NI','SR','IN','HO','YB',
       *          'TE','LI','RB','BA','CS','SM','TL','PT','BE','SE',
!      *          'MO','SI','I ','AS'/
  C ??? more
  C ---
        DATA      NCODE_RES/32/