Permalink
Fetching contributors…
Cannot retrieve contributors at this time
1123 lines (897 sloc) 43.4 KB
! This file is AUTOGENERATED!!!!
! Do not edit this file; edit m_wcml_quantity.m4 and regenerate.
!
!
module m_wcml_property
use fox_m_fsys_realtypes, only: sp, dp
use FoX_wxml, only: xmlf_t
#ifndef DUMMYLIB
use FoX_wxml, only: xml_NewElement, xml_AddAttribute
use FoX_wxml, only: xml_EndElement
use m_wcml_stml, only: stmAddValue
! Fix for pgi, requires this explicitly:
use m_wxml_overloads
#endif
implicit none
private
interface cmlAddproperty
module procedure propertyCmplxDpSca
module procedure propertyCmplxDpArrSi
module procedure propertyCmplxDpArrSh
module procedure propertyCmplxDpMatSi
module procedure propertyCmplxDpMatSh
module procedure propertyCmplxSpSca
module procedure propertyCmplxSpArrSi
module procedure propertyCmplxSpArrSh
module procedure propertyCmplxSpMatSi
module procedure propertyCmplxSpMatSh
module procedure propertyRealDpSca
module procedure propertyRealDpArrSi
module procedure propertyRealDpArrSh
module procedure propertyRealDpMatSi
module procedure propertyRealDpMatSh
module procedure propertyRealSpSca
module procedure propertyRealSpArrSi
module procedure propertyRealSpArrSh
module procedure propertyRealSpMatSi
module procedure propertyRealSpMatSh
module procedure propertyIntSca
module procedure propertyIntArrSi
module procedure propertyIntArrSh
module procedure propertyIntMatSi
module procedure propertyIntMatSh
module procedure propertyLgSca
module procedure propertyLgArrSi
module procedure propertyLgArrSh
module procedure propertyLgMatSi
module procedure propertyLgMatSh
module procedure propertyChSca
module procedure propertyChArrSi
module procedure propertyChArrSh
module procedure propertyChMatSi
module procedure propertyChMatSh
end interface
public :: cmlAddproperty
contains
subroutine propertyCmplxDpSca &
(xf, value, dictRef, convention, title, id, ref, role, units, fmt)
type(xmlf_t), intent(inout) :: xf
complex(dp), intent(in) :: value
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
character(len=*), intent(in) :: units
character(len=*), intent(in), optional :: fmt
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value, units=units, fmt=fmt)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyCmplxDpSca
subroutine propertyCmplxSpSca &
(xf, value, dictRef, convention, title, id, ref, role, units, fmt)
type(xmlf_t), intent(inout) :: xf
complex(sp), intent(in) :: value
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
character(len=*), intent(in) :: units
character(len=*), intent(in), optional :: fmt
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value, units=units, fmt=fmt)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyCmplxSpSca
subroutine propertyRealDpSca &
(xf, value, dictRef, convention, title, id, ref, role, units, fmt)
type(xmlf_t), intent(inout) :: xf
real(dp), intent(in) :: value
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
character(len=*), intent(in) :: units
character(len=*), intent(in), optional :: fmt
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value, units=units, fmt=fmt)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyRealDpSca
subroutine propertyRealSpSca &
(xf, value, dictRef, convention, title, id, ref, role, units, fmt)
type(xmlf_t), intent(inout) :: xf
real(sp), intent(in) :: value
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
character(len=*), intent(in) :: units
character(len=*), intent(in), optional :: fmt
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value, units=units, fmt=fmt)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyRealSpSca
subroutine propertyIntSca &
(xf, value, dictRef, convention, title, id, ref, role, units)
type(xmlf_t), intent(inout) :: xf
integer, intent(in) :: value
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
character(len=*), intent(in) :: units
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value, units=units)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyIntSca
subroutine propertyLgSca &
(xf, value, dictRef, convention, title, id, ref, role)
type(xmlf_t), intent(inout) :: xf
logical, intent(in) :: value
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, "property")
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)
call stmAddValue(xf=xf, value=value)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyLgSca
subroutine propertyChSca &
(xf, value, dictRef, convention, title, id, ref, role, units)
type(xmlf_t), intent(inout) :: xf
character(len=*), intent(in) :: value
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
character(len=*), intent(in) , optional :: units
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value, units=units)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyChSca
subroutine propertyCmplxDpArrSi &
(xf, value,nitems, dictRef, convention, title, id, ref, role, units, fmt)
type(xmlf_t), intent(inout) :: xf
complex(dp), intent(in) , dimension(:) :: value
integer, intent(in) :: nitems
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
character(len=*), intent(in) :: units
character(len=*), intent(in), optional :: fmt
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value(:nitems), units=units, fmt=fmt)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyCmplxDpArrSi
subroutine propertyCmplxSpArrSi &
(xf, value,nitems, dictRef, convention, title, id, ref, role, units, fmt)
type(xmlf_t), intent(inout) :: xf
complex(sp), intent(in) , dimension(:) :: value
integer, intent(in) :: nitems
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
character(len=*), intent(in) :: units
character(len=*), intent(in), optional :: fmt
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value(:nitems), units=units, fmt=fmt)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyCmplxSpArrSi
subroutine propertyRealDpArrSi &
(xf, value,nitems, dictRef, convention, title, id, ref, role, units, fmt)
type(xmlf_t), intent(inout) :: xf
real(dp), intent(in) , dimension(:) :: value
integer, intent(in) :: nitems
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
character(len=*), intent(in) :: units
character(len=*), intent(in), optional :: fmt
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value(:nitems), units=units, fmt=fmt)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyRealDpArrSi
subroutine propertyRealSpArrSi &
(xf, value,nitems, dictRef, convention, title, id, ref, role, units, fmt)
type(xmlf_t), intent(inout) :: xf
real(sp), intent(in) , dimension(:) :: value
integer, intent(in) :: nitems
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
character(len=*), intent(in) :: units
character(len=*), intent(in), optional :: fmt
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value(:nitems), units=units, fmt=fmt)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyRealSpArrSi
subroutine propertyIntArrSi &
(xf, value,nitems, dictRef, convention, title, id, ref, role, units)
type(xmlf_t), intent(inout) :: xf
integer, intent(in) , dimension(:) :: value
integer, intent(in) :: nitems
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
character(len=*), intent(in) :: units
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value(:nitems), units=units)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyIntArrSi
subroutine propertyLgArrSi &
(xf, value,nitems, dictRef, convention, title, id, ref, role)
type(xmlf_t), intent(inout) :: xf
logical, intent(in) , dimension(:) :: value
integer, intent(in) :: nitems
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, "property")
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)
call stmAddValue(xf=xf, value=value(:nitems))
call xml_EndElement(xf, "property")
#endif
end subroutine propertyLgArrSi
subroutine propertyChArrSi &
(xf, value,nitems, dictRef, convention, title, id, ref, role, units)
type(xmlf_t), intent(inout) :: xf
character(len=*), intent(in) , dimension(:) :: value
integer, intent(in) :: nitems
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
character(len=*), intent(in) , optional :: units
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value(:nitems), units=units)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyChArrSi
subroutine propertyCmplxDpArrSh &
(xf, value, dictRef, convention, title, id, ref, role, units, fmt)
type(xmlf_t), intent(inout) :: xf
complex(dp), intent(in) , dimension(:) :: value
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
character(len=*), intent(in) :: units
character(len=*), intent(in), optional :: fmt
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value, units=units, fmt=fmt)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyCmplxDpArrSh
subroutine propertyCmplxSpArrSh &
(xf, value, dictRef, convention, title, id, ref, role, units, fmt)
type(xmlf_t), intent(inout) :: xf
complex(sp), intent(in) , dimension(:) :: value
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
character(len=*), intent(in) :: units
character(len=*), intent(in), optional :: fmt
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value, units=units, fmt=fmt)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyCmplxSpArrSh
subroutine propertyRealDpArrSh &
(xf, value, dictRef, convention, title, id, ref, role, units, fmt)
type(xmlf_t), intent(inout) :: xf
real(dp), intent(in) , dimension(:) :: value
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
character(len=*), intent(in) :: units
character(len=*), intent(in), optional :: fmt
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value, units=units, fmt=fmt)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyRealDpArrSh
subroutine propertyRealSpArrSh &
(xf, value, dictRef, convention, title, id, ref, role, units, fmt)
type(xmlf_t), intent(inout) :: xf
real(sp), intent(in) , dimension(:) :: value
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
character(len=*), intent(in) :: units
character(len=*), intent(in), optional :: fmt
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value, units=units, fmt=fmt)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyRealSpArrSh
subroutine propertyIntArrSh &
(xf, value, dictRef, convention, title, id, ref, role, units)
type(xmlf_t), intent(inout) :: xf
integer, intent(in) , dimension(:) :: value
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
character(len=*), intent(in) :: units
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value, units=units)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyIntArrSh
subroutine propertyLgArrSh &
(xf, value, dictRef, convention, title, id, ref, role)
type(xmlf_t), intent(inout) :: xf
logical, intent(in) , dimension(:) :: value
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, "property")
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)
call stmAddValue(xf=xf, value=value)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyLgArrSh
subroutine propertyChArrSh &
(xf, value, dictRef, convention, title, id, ref, role, units)
type(xmlf_t), intent(inout) :: xf
character(len=*), intent(in) , dimension(:) :: value
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
character(len=*), intent(in) , optional :: units
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value, units=units)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyChArrSh
subroutine propertyCmplxDpMatSi &
(xf, value,nrows, ncols, dictRef, convention, title, id, ref, role, units, fmt)
type(xmlf_t), intent(inout) :: xf
complex(dp), intent(in) , dimension(:,:) :: value
integer, intent(in) :: nrows
integer, intent(in) :: ncols
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
character(len=*), intent(in) :: units
character(len=*), intent(in), optional :: fmt
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value(:nrows, :ncols), units=units, fmt=fmt)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyCmplxDpMatSi
subroutine propertyCmplxSpMatSi &
(xf, value,nrows, ncols, dictRef, convention, title, id, ref, role, units, fmt)
type(xmlf_t), intent(inout) :: xf
complex(sp), intent(in) , dimension(:,:) :: value
integer, intent(in) :: nrows
integer, intent(in) :: ncols
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
character(len=*), intent(in) :: units
character(len=*), intent(in), optional :: fmt
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value(:nrows, :ncols), units=units, fmt=fmt)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyCmplxSpMatSi
subroutine propertyRealDpMatSi &
(xf, value,nrows, ncols, dictRef, convention, title, id, ref, role, units, fmt)
type(xmlf_t), intent(inout) :: xf
real(dp), intent(in) , dimension(:,:) :: value
integer, intent(in) :: nrows
integer, intent(in) :: ncols
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
character(len=*), intent(in) :: units
character(len=*), intent(in), optional :: fmt
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value(:nrows, :ncols), units=units, fmt=fmt)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyRealDpMatSi
subroutine propertyRealSpMatSi &
(xf, value,nrows, ncols, dictRef, convention, title, id, ref, role, units, fmt)
type(xmlf_t), intent(inout) :: xf
real(sp), intent(in) , dimension(:,:) :: value
integer, intent(in) :: nrows
integer, intent(in) :: ncols
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
character(len=*), intent(in) :: units
character(len=*), intent(in), optional :: fmt
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value(:nrows, :ncols), units=units, fmt=fmt)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyRealSpMatSi
subroutine propertyIntMatSi &
(xf, value,nrows, ncols, dictRef, convention, title, id, ref, role, units)
type(xmlf_t), intent(inout) :: xf
integer, intent(in) , dimension(:,:) :: value
integer, intent(in) :: nrows
integer, intent(in) :: ncols
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
character(len=*), intent(in) :: units
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value(:nrows, :ncols), units=units)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyIntMatSi
subroutine propertyLgMatSi &
(xf, value,nrows, ncols, dictRef, convention, title, id, ref, role)
type(xmlf_t), intent(inout) :: xf
logical, intent(in) , dimension(:,:) :: value
integer, intent(in) :: nrows
integer, intent(in) :: ncols
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, "property")
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)
call stmAddValue(xf=xf, value=value(:nrows, :ncols))
call xml_EndElement(xf, "property")
#endif
end subroutine propertyLgMatSi
subroutine propertyChMatSi &
(xf, value,nrows, ncols, dictRef, convention, title, id, ref, role, units)
type(xmlf_t), intent(inout) :: xf
character(len=*), intent(in) , dimension(:,:) :: value
integer, intent(in) :: nrows
integer, intent(in) :: ncols
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
character(len=*), intent(in) , optional :: units
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value(:nrows, :ncols), units=units)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyChMatSi
subroutine propertyCmplxDpMatSh &
(xf, value, dictRef, convention, title, id, ref, role, units, fmt)
type(xmlf_t), intent(inout) :: xf
complex(dp), intent(in) , dimension(:,:) :: value
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
character(len=*), intent(in) :: units
character(len=*), intent(in), optional :: fmt
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value, units=units, fmt=fmt)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyCmplxDpMatSh
subroutine propertyCmplxSpMatSh &
(xf, value, dictRef, convention, title, id, ref, role, units, fmt)
type(xmlf_t), intent(inout) :: xf
complex(sp), intent(in) , dimension(:,:) :: value
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
character(len=*), intent(in) :: units
character(len=*), intent(in), optional :: fmt
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value, units=units, fmt=fmt)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyCmplxSpMatSh
subroutine propertyRealDpMatSh &
(xf, value, dictRef, convention, title, id, ref, role, units, fmt)
type(xmlf_t), intent(inout) :: xf
real(dp), intent(in) , dimension(:,:) :: value
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
character(len=*), intent(in) :: units
character(len=*), intent(in), optional :: fmt
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value, units=units, fmt=fmt)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyRealDpMatSh
subroutine propertyRealSpMatSh &
(xf, value, dictRef, convention, title, id, ref, role, units, fmt)
type(xmlf_t), intent(inout) :: xf
real(sp), intent(in) , dimension(:,:) :: value
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
character(len=*), intent(in) :: units
character(len=*), intent(in), optional :: fmt
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value, units=units, fmt=fmt)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyRealSpMatSh
subroutine propertyIntMatSh &
(xf, value, dictRef, convention, title, id, ref, role, units)
type(xmlf_t), intent(inout) :: xf
integer, intent(in) , dimension(:,:) :: value
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
character(len=*), intent(in) :: units
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value, units=units)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyIntMatSh
subroutine propertyLgMatSh &
(xf, value, dictRef, convention, title, id, ref, role)
type(xmlf_t), intent(inout) :: xf
logical, intent(in) , dimension(:,:) :: value
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, "property")
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)
call stmAddValue(xf=xf, value=value)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyLgMatSh
subroutine propertyChMatSh &
(xf, value, dictRef, convention, title, id, ref, role, units)
type(xmlf_t), intent(inout) :: xf
character(len=*), intent(in) , dimension(:,:) :: value
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
character(len=*), intent(in) , optional :: units
#ifndef DUMMYLIB
call xml_NewElement(xf, "property")
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)
call stmAddValue(xf=xf, value=value, units=units)
call xml_EndElement(xf, "property")
#endif
end subroutine propertyChMatSh
end module m_wcml_property