subroutine initialize_drfm(ns,drfm_jname)

      IMPLICIT NONE

      include 'drfm_com.com'

      integer ns
      character*8 drfm_jname(ns)

c ... initialize drfm

      write(*,*)' Initializing drfm '

      call drinit(ns,drfm_jname,drfm_sig,drfm_epsm,drfm_delm,
     +     drfm_chim,drfm_vstm,drfm_rstm,drfm_xml1,drfm_xml2,
     +     drfm_xmol,drfm_tvta,drfm_itox,drfm_error)

      if(drfm_error)then
         write(*,*)' getinpts: drfm error in drinit'
         stop 
      endif

      return
      end