w3metamd::meta_list_append Interface Reference

Interface to facilitate adding real/int/character values to list. More...

Public Member Functions
subroutine	meta_list_append_m (LIST, META)
	Append META_PAIR_T object to list. More...
	append
	a
	meta_pair_t
subroutine	meta_list_append_r (LIST, ATTNAME, RVAL)
	Append REAL value attribute to list. More...
	append
	a
	real
	value
subroutine	meta_list_append_i (LIST, ATTNAME, IVAL)
	Append INTEGER value attribute to list. More...
	append
	an
	integer
	value
subroutine	meta_list_append_c (LIST, ATTNAME, SVAL)
	Append CHARACTER string value attribute to list. More...
	append
	a
	character
	value

Detailed Description

Interface to facilitate adding real/int/character values to list.

Definition at line 57 of file w3metamd.F90.

Member Function/Subroutine Documentation

a() [1/3]

w3metamd::meta_list_append::a

a() [2/3]

w3metamd::meta_list_append::a

a() [3/3]

w3metamd::meta_list_append::a

an()

w3metamd::meta_list_append::an

append() [1/4]

w3metamd::meta_list_append::append

append() [2/4]

w3metamd::meta_list_append::append

append() [3/4]

w3metamd::meta_list_append::append

append() [4/4]

w3metamd::meta_list_append::append

character()

w3metamd::meta_list_append::character

integer()

w3metamd::meta_list_append::integer

meta_list_append_c()

subroutine w3metamd::meta_list_append::meta_list_append_c	(	type(meta_list_t), intent(inout)	LIST,
		character(*), intent(in)	ATTNAME,
		character(*), intent(in)	SVAL
	)

Append CHARACTER string value attribute to list.

Parameters

[in,out]	LIST	The list to append to
[in]	ATTNAME	The attribute name
[in]	SVAL	The attribute value (CHARACTER string)

Author

Chris Bunney

Definition at line 284 of file w3metamd.F90.

 
    IMPLICIT NONE
 
    TYPE(META_LIST_T), INTENT(INOUT) :: LIST
    CHARACTER(*), INTENT(IN)         :: ATTNAME, SVAL
    !/ ------------------------------------------------------------------- /
    !/ Local parameters
    !/
    TYPE(META_PAIR_T) :: META
 
    meta%ATTNAME = attname
    meta%ATTVAL = sval
    meta%TYPE = 'c'
    CALL meta_list_append(list, meta)
 

meta_list_append_i()

subroutine w3metamd::meta_list_append::meta_list_append_i	(	type(meta_list_t), intent(inout)	LIST,
		character(*), intent(in)	ATTNAME,
		integer, intent(in)	IVAL
	)

Append INTEGER value attribute to list.

Parameters

[in,out]	LIST	The list to append to
[in]	ATTNAME	The attribute name
[in]	IVAL	The attribute value (INTEGER)

Author

Chris Bunney

Definition at line 255 of file w3metamd.F90.

 
    IMPLICIT NONE
 
    TYPE(META_LIST_T), INTENT(INOUT) :: LIST
    CHARACTER(*), INTENT(IN)         :: ATTNAME
    INTEGER, INTENT(IN)              :: IVAL
    !/ ------------------------------------------------------------------- /
    !/ Local parameters
    !/
    TYPE(META_PAIR_T) :: META
 
    meta%ATTNAME = attname
    WRITE(meta%ATTVAL,*) ival
    meta%TYPE = 'i'
    CALL meta_list_append(list, meta)
 

meta_list_append_m()

subroutine w3metamd::meta_list_append::meta_list_append_m	(	type(meta_list_t), intent(inout)	LIST,
		type(meta_pair_t), intent(in)	META
	)

Append META_PAIR_T object to list.

Parameters

[in,out]	LIST	The list to append to
[in]	META	The META_PAIR_T object to append.

Author

Chris Bunney

Definition at line 184 of file w3metamd.F90.

 
    IMPLICIT NONE
 
    TYPE(META_LIST_T), INTENT(INOUT) :: LIST
    TYPE(META_PAIR_T), INTENT(IN) :: META
    !/ ------------------------------------------------------------------- /
    !/ Local parameters
    !/
    TYPE(META_PAIR_T), POINTER :: P
 
    ALLOCATE(p)
 
    ! Empty list?
    IF(list%N .EQ. 0) THEN
      !IF(.NOT. ASSOCIATED(LIST%HEAD)) THEN
      list%HEAD => p
    ELSE
      list%TAIL%NEXT => p
    ENDIF
    list%TAIL => p
 
    p%ATTNAME = meta%ATTNAME
    p%ATTVAL = meta%ATTVAL
    p%TYPE = meta%TYPE
 
    NULLIFY(p%NEXT)
 
    list%N = list%N + 1
 

meta_list_append_r()

subroutine w3metamd::meta_list_append::meta_list_append_r	(	type(meta_list_t), intent(inout)	LIST,
		character(*), intent(in)	ATTNAME,
		real, intent(in)	RVAL
	)

Append REAL value attribute to list.

Parameters

[in,out]	LIST	The list to append to
[in]	ATTNAME	The attribute name
[in]	RVAL	The attribute value (REAL)

Author

Chris Bunney

Definition at line 226 of file w3metamd.F90.

 
    IMPLICIT NONE
 
    TYPE(META_LIST_T), INTENT(INOUT) :: LIST
    CHARACTER(*), INTENT(IN)         :: ATTNAME
    REAL, INTENT(IN)                 :: RVAL
    !/ ------------------------------------------------------------------- /
    !/ Local parameters
    !/
    TYPE(META_PAIR_T) :: META
 
    meta%ATTNAME = attname
    WRITE(meta%ATTVAL,*) rval
    meta%TYPE = 'r'
    CALL meta_list_append(list, meta)
 

meta_pair_t()

w3metamd::meta_list_append::meta_pair_t

real()

w3metamd::meta_list_append::real

value() [1/3]

w3metamd::meta_list_append::value

value() [2/3]

w3metamd::meta_list_append::value

value() [3/3]

w3metamd::meta_list_append::value