*+JMJ_---^---------^---------^---------^---------^---------^---------^--
* atom10 - Atom 1.0 feed generation utilities
* Copyright 2014 David Meyer <papa@twenex.org>

* atmhd - Output Atom feed header
      subroutine atmhd (outu, title, subttl, basurl, atmfil, author,
     +   email, update)

      integer outu
      character*(*) title, subttl, basurl, atmfil, author, email
      character*10 update

      write(outu, 10) title
 10   format(' <?xml version="1.0" encoding="US-ASCII"?>/
     +'<feed xmlns="http://www.w3.org/2005/Atom"><title>'/a80/
     +'</title><link rel="self" href="',

      return
      end


* atment - Output Atom feed entry
      subroutine atment (outu)

      integer outu

      return
      end


* atmft - Output Atom feed footer
      subroutine atmft (outu)

      integer outu

      write(outu, 10)
 10   format(' </feed>')

      return
      end