Permalink
Fetching contributors…
Cannot retrieve contributors at this time
283 lines (197 sloc) 8.2 KB
! This file is AUTOGENERATED!!!!
! Do not edit this file; edit m_wcml_metadata.m4 and regenerate.
!
module m_wcml_lists
use FoX_wxml, only: xmlf_t
#ifndef DUMMYLIB
use FoX_common, only: str
use FoX_wxml, only: xml_NewElement, xml_EndElement
use FoX_wxml, only: xml_AddAttribute
#endif
implicit none
private
public :: cmlStartMetadataList
public :: cmlEndMetadataList
public :: cmlStartPropertyList
public :: cmlEndPropertyList
public :: cmlStartParameterList
public :: cmlEndParameterList
public :: cmlStartBandList
public :: cmlEndBandList
public :: cmlStartKpointList
public :: cmlEndKpointList
public :: cmlStartModule
public :: cmlEndModule
public :: cmlStartStep
public :: cmlEndStep
contains
subroutine cmlStartmetadataList(xf, dictRef, convention, title, id, name, role)
type(xmlf_t), intent(inout) :: xf
character(len=*), intent(in), optional :: dictRef
character(len=*), intent(in), optional :: convention
character(len=*), intent(in), optional :: title
character(len=*), intent(in), optional :: id
character(len=*), intent(in), optional :: name
character(len=*), intent(in), optional :: role
#ifndef DUMMYLIB
call xml_NewElement(xf, "metadataList")
if (present(dictRef)) call xml_addAttribute(xf, "dictRef", dictRef)
if (present(convention)) call xml_addAttribute(xf, "convention", convention)
if (present(title)) call xml_addAttribute(xf, "title", title)
if (present(id)) call xml_addAttribute(xf, "id", id)
if (present(name)) call xml_addAttribute(xf, "name", name)
if (present(role)) call xml_addAttribute(xf, "role", role)
#endif
end subroutine cmlStartmetadataList
subroutine cmlEndmetadataList(xf)
type(xmlf_t), intent(inout) :: xf
#ifndef DUMMYLIB
call xml_EndElement(xf, "metadataList")
#endif
end subroutine cmlEndmetadataList
subroutine cmlStartpropertyList(xf, dictRef, convention, title, id, ref, role)
type(xmlf_t), intent(inout) :: xf
character(len=*), intent(in), optional :: dictRef
character(len=*), intent(in), optional :: convention
character(len=*), intent(in), optional :: title
character(len=*), intent(in), optional :: id
character(len=*), intent(in), optional :: ref
character(len=*), intent(in), optional :: role
#ifndef DUMMYLIB
call xml_NewElement(xf, "propertyList")
if (present(dictRef)) call xml_addAttribute(xf, "dictRef", dictRef)
if (present(convention)) call xml_addAttribute(xf, "convention", convention)
if (present(title)) call xml_addAttribute(xf, "title", title)
if (present(id)) call xml_addAttribute(xf, "id", id)
if (present(ref)) call xml_addAttribute(xf, "ref", ref)
if (present(role)) call xml_addAttribute(xf, "role", role)
#endif
end subroutine cmlStartpropertyList
subroutine cmlEndpropertyList(xf)
type(xmlf_t), intent(inout) :: xf
#ifndef DUMMYLIB
call xml_EndElement(xf, "propertyList")
#endif
end subroutine cmlEndpropertyList
subroutine cmlStartparameterList(xf, dictRef, convention, title, id, ref, role)
type(xmlf_t), intent(inout) :: xf
character(len=*), intent(in), optional :: dictRef
character(len=*), intent(in), optional :: convention
character(len=*), intent(in), optional :: title
character(len=*), intent(in), optional :: id
character(len=*), intent(in), optional :: ref
character(len=*), intent(in), optional :: role
#ifndef DUMMYLIB
call xml_NewElement(xf, "parameterList")
if (present(dictRef)) call xml_addAttribute(xf, "dictRef", dictRef)
if (present(convention)) call xml_addAttribute(xf, "convention", convention)
if (present(title)) call xml_addAttribute(xf, "title", title)
if (present(id)) call xml_addAttribute(xf, "id", id)
if (present(ref)) call xml_addAttribute(xf, "ref", ref)
if (present(role)) call xml_addAttribute(xf, "role", role)
#endif
end subroutine cmlStartparameterList
subroutine cmlEndparameterList(xf)
type(xmlf_t), intent(inout) :: xf
#ifndef DUMMYLIB
call xml_EndElement(xf, "parameterList")
#endif
end subroutine cmlEndparameterList
subroutine cmlStartbandList(xf, dictRef, convention, title, id, ref, role)
type(xmlf_t), intent(inout) :: xf
character(len=*), intent(in), optional :: dictRef
character(len=*), intent(in), optional :: convention
character(len=*), intent(in), optional :: title
character(len=*), intent(in), optional :: id
character(len=*), intent(in), optional :: ref
character(len=*), intent(in), optional :: role
#ifndef DUMMYLIB
call xml_NewElement(xf, "bandList")
if (present(dictRef)) call xml_addAttribute(xf, "dictRef", dictRef)
if (present(convention)) call xml_addAttribute(xf, "convention", convention)
if (present(title)) call xml_addAttribute(xf, "title", title)
if (present(id)) call xml_addAttribute(xf, "id", id)
if (present(ref)) call xml_addAttribute(xf, "ref", ref)
if (present(role)) call xml_addAttribute(xf, "role", role)
#endif
end subroutine cmlStartbandList
subroutine cmlEndbandList(xf)
type(xmlf_t), intent(inout) :: xf
#ifndef DUMMYLIB
call xml_EndElement(xf, "bandList")
#endif
end subroutine cmlEndbandList
!FIXME what attributes
subroutine cmlStartkpointList(xf, dictRef, convention, title, id, ref, role)
type(xmlf_t), intent(inout) :: xf
character(len=*), intent(in), optional :: dictRef
character(len=*), intent(in), optional :: convention
character(len=*), intent(in), optional :: title
character(len=*), intent(in), optional :: id
character(len=*), intent(in), optional :: ref
character(len=*), intent(in), optional :: role
#ifndef DUMMYLIB
call xml_NewElement(xf, "kpointList")
if (present(dictRef)) call xml_addAttribute(xf, "dictRef", dictRef)
if (present(convention)) call xml_addAttribute(xf, "convention", convention)
if (present(title)) call xml_addAttribute(xf, "title", title)
if (present(id)) call xml_addAttribute(xf, "id", id)
if (present(ref)) call xml_addAttribute(xf, "ref", ref)
if (present(role)) call xml_addAttribute(xf, "role", role)
#endif
end subroutine cmlStartkpointList
subroutine cmlEndkpointList(xf)
type(xmlf_t), intent(inout) :: xf
#ifndef DUMMYLIB
call xml_EndElement(xf, "kpointList")
#endif
end subroutine cmlEndkpointList
!FIXME what attributes
subroutine cmlStartmodule(xf, serial, title, id, convention, dictRef, role)
type(xmlf_t), intent(inout) :: xf
character(len=*), intent(in), optional :: serial
character(len=*), intent(in), optional :: title
character(len=*), intent(in), optional :: id
character(len=*), intent(in), optional :: convention
character(len=*), intent(in), optional :: dictRef
character(len=*), intent(in), optional :: role
#ifndef DUMMYLIB
call xml_NewElement(xf, "module")
if (present(serial)) call xml_addAttribute(xf, "serial", serial)
if (present(title)) call xml_addAttribute(xf, "title", title)
if (present(id)) call xml_addAttribute(xf, "id", id)
if (present(convention)) call xml_addAttribute(xf, "convention", convention)
if (present(dictRef)) call xml_addAttribute(xf, "dictRef", dictRef)
if (present(role)) call xml_addAttribute(xf, "role", role)
#endif
end subroutine cmlStartmodule
subroutine cmlEndmodule(xf)
type(xmlf_t), intent(inout) :: xf
#ifndef DUMMYLIB
call xml_EndElement(xf, "module")
#endif
end subroutine cmlEndmodule
subroutine cmlStartStep(xf, type, index, id, title, convention)
type(xmlf_t), intent(inout) :: xf
character(len=*), intent(in), optional :: type
character(len=*), intent(in), optional :: id
integer, intent(in), optional :: index
character(len=*), intent(in), optional :: title
character(len=*), intent(in), optional :: convention
#ifndef DUMMYLIB
if (present(index)) then
call cmlStartModule(xf=xf, id=id, title=title, convention=convention, &
dictRef=type, role='step', serial=str(index))
else
call cmlStartModule(xf=xf, id=id, title=title, convention=convention, &
dictRef=type, role='step')
endif
#endif
end subroutine cmlStartStep
subroutine cmlEndStep(xf)
type(xmlf_t), intent(inout) :: xf
#ifndef DUMMYLIB
call xml_EndElement(xf, 'module')
#endif
end subroutine cmlEndStep
end module m_wcml_lists