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

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

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

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

     return
     end


* atment - Output Atom feed entry
     subroutine atment (outu, entttl, enturi, entupd, entsum)

     integer outu
     character*(*) entttl, enturi, entupd, entsum(4)

     write(outu, 10) entttl, enturi, entupd, entsum
10    format('<entry><title>',a,'</title>'/'<id>',a,'</id>',
    +'<updated>',a,'</updated><summary>'/a/a/a/a/'</summary></entry>')
     return
     end


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

     integer outu

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

     return
     end

You are viewing proxied material from sdf.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.