*+JMJ_---^---------^---------^---------^---------^---------^---------^--
* atom10 - Atom 1.0 feed generation utilities
* Copyright 2014 David Meyer <
[email protected]>
* 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