stringlistmodule Module Reference

Functions/Subroutines
subroutine	constructcharactercontainer (newCharCont, text)
type(characterstringtype) function, pointer	castascharacterstringtype (obj)
subroutine, public	addstringtolist (list, string)
character(len=:) function, allocatable, public	getstringfromlist (list, indx)

Function/Subroutine Documentation

addstringtolist()

subroutine, public stringlistmodule::addstringtolist	(	type(listtype), intent(inout)	list,
		character(len=*), intent(in)	string
	)

Definition at line 37 of file StringList.f90.

    implicit none
    ! -- dummy
    type(ListType), intent(inout) :: list
    character(len=*), intent(in) :: string
    ! -- local
    class(*), pointer :: obj
    type(CharacterStringType), pointer :: newCharacterContainer
    !
    newcharactercontainer => null()
    call constructcharactercontainer(newcharactercontainer, string)
    if (associated(newcharactercontainer)) then
      obj => newcharactercontainer
      call list%Add(obj)
    end if
    !
    return

Here is the call graph for this function:

castascharacterstringtype()

type(characterstringtype) function, pointer stringlistmodule::castascharacterstringtype ( class(*), intent(inout), pointer  obj )

private

Definition at line 22 of file StringList.f90.

    implicit none
    class(*), pointer, intent(inout) :: obj
    type(CharacterStringType), pointer :: res
    !
    res => null()
    if (.not. associated(obj)) return
    !
    select type (obj)
    type is (characterstringtype)
      res => obj
    end select
    return

Here is the caller graph for this function:

constructcharactercontainer()

subroutine stringlistmodule::constructcharactercontainer ( type(characterstringtype), intent(out), pointer  newCharCont, character(len=*), intent(in)  text  )

private

Definition at line 12 of file StringList.f90.

    implicit none
    type(CharacterStringType), pointer, intent(out) :: newCharCont
    character(len=*), intent(in) :: text
    !
    allocate (newcharcont)
    newcharcont = text
    return

Here is the caller graph for this function:

getstringfromlist()

character(len=:) function, allocatable, public stringlistmodule::getstringfromlist	(	type(listtype), intent(inout)	list,
		integer(i4b), intent(in)	indx
	)

Definition at line 56 of file StringList.f90.

    implicit none
    ! -- dummy
    type(ListType), intent(inout) :: list
    integer(I4B), intent(in) :: indx
    character(len=:), allocatable :: string
    ! -- local
    class(*), pointer :: obj
    type(CharacterStringType), pointer :: charcont
    !
    obj => list%GetItem(indx)
    charcont => castascharacterstringtype(obj)
    if (associated(charcont)) then
      allocate (character(len=charcont%strlen()) :: string)
      string(:) = charcont
    else
      string = ''
    end if
    !
    return

Here is the call graph for this function: