-
Notifications
You must be signed in to change notification settings - Fork 50
/
m_wcml_metadata.F90
38 lines (30 loc) · 1.18 KB
/
m_wcml_metadata.F90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
module m_wcml_metadata
use FoX_wxml, only: xmlf_t
#ifndef DUMMYLIB
use FoX_wxml, only: xml_NewElement, xml_EndElement
use FoX_wxml, only: xml_AddAttribute
#endif
implicit none
private
public :: cmlAddMetadata
contains
subroutine cmlAddMetadata(xf, name, content, convention, dictRef, id, title )
type(xmlf_t), intent(inout) :: xf
character(len=*), intent(in) :: name
character(len=*), intent(in) :: content
character(len=*), intent(in), optional :: convention
character(len=*), intent(in), optional :: dictRef
character(len=*), intent(in), optional :: id
character(len=*), intent(in), optional :: title
#ifndef DUMMYLIB
call xml_NewElement(xf, "metadata")
call xml_AddAttribute(xf, "name", name)
call xml_AddAttribute(xf, name="content", value=content )
if (present(dictref)) call xml_AddAttribute(xf, "dictRef", dictref)
if (present(id)) call xml_AddAttribute(xf, "id", title)
if (present(title)) call xml_AddAttribute(xf, "title", title)
if (present(convention)) call xml_AddAttribute(xf, "convention", convention)
call xml_EndElement(xf, "metadata")
#endif
end subroutine cmlAddMetadata
end module m_wcml_metadata