subroutine aerphot(name)
      implicit none
      include 'general.h'

      character*1     :: a1,a2,a3,a4
      character*(lco) :: r(3), p(mnp), name, tname
      real            :: s(mnp),ar1,ar2,ar3,f298,fratio
      integer         :: idreac, nlab
      REAL            :: xlab,folow(3),fotroe(4)
      real            :: auxinfo(9)
      character*1     :: charfrom,charto

! initialize (most not used here)
      CALL rxinit3(a1,a2,a3,a4,r,s,p,ar1,ar2,ar3,
     &             f298,fratio,idreac,nlab,xlab,folow,fotroe)
      auxinfo(:)=0.

      tname = name
      a1 = tname(1:1)
      r(1) = tname
      r(2) = 'HV   '
      s(1) = 1.0
      p(1) = "XCLOST"
      ar1 = 1.0
      ar2 = 0.
      ar3 = 0.
      idreac = 6
      auxinfo(1) = 40100 ! = OOH photolysis
      auxinfo(2) = 1.0  ! yield
      charfrom = 'A'
      charto = 'G'

      call rxwrit_dyn(17,r,s,p,ar1,ar2,ar3,
     &                      idreac,auxinfo,charfrom,charto)



      end subroutine