characterstringmodule Module Reference

Data Types
type	characterstringtype
	This class is used to store a single deferred-length character string. It was designed to work in an array implementation so that a jagged character array could be used in MODFLOW and stored in the memory manager. More...

Functions/Subroutines
recursive subroutine	assign_to_charstring (lhs, rhs)
subroutine	assign_from_charstring (lhs, rhs)
elemental logical function	character_eq_charstring (lhs, rhs)
elemental logical function	charstring_eq_character (lhs, rhs)
elemental logical function	charstring_eq_charstring (this, rhs)
subroutine	write_unformatted (this, unit, iostat, iomsg)
integer function	strlen (this)
subroutine	destroy (this)

Function/Subroutine Documentation

assign_from_charstring()

subroutine characterstringmodule::assign_from_charstring ( character(len=*), intent(out) lhs, class(characterstringtype), intent(in) rhs )

private

Definition at line 65 of file CharString.f90.

    character(len=*), intent(out) :: lhs
    class(CharacterStringType), intent(in) :: rhs
    if (allocated(rhs%charstring)) then
      lhs = rhs%charstring
    else
      lhs = ''
    end if

Here is the caller graph for this function:

assign_to_charstring()

recursive subroutine characterstringmodule::assign_to_charstring	(	class(characterstringtype), intent(out)	lhs,
		character(len=*), intent(in)	rhs )

Definition at line 46 of file CharString.f90.

    class(CharacterStringType), intent(out) :: lhs
    character(len=*), intent(in) :: rhs
    logical :: allocate_charstring
    allocate_charstring = .false.
    if (allocated(lhs%charstring)) then
      if (len(lhs%charstring) <= len(rhs)) then
        lhs%charstring(:) = rhs
      else
        allocate_charstring = .true.
      end if
    else
      allocate_charstring = .true.
    end if
    if (allocate_charstring) then
      lhs%charstring = rhs
    end if

Here is the caller graph for this function:

character_eq_charstring()

elemental logical function characterstringmodule::character_eq_charstring ( character(len=*), intent(in) lhs, class(characterstringtype), intent(in) rhs )

private

Definition at line 75 of file CharString.f90.

    character(len=*), intent(in) :: lhs
    class(CharacterStringType), intent(in) :: rhs
    logical :: equals
    if (allocated(rhs%charstring)) then
      equals = lhs == rhs%charstring
    else
      equals = lhs == ''
    end if

Here is the caller graph for this function:

charstring_eq_character()

elemental logical function characterstringmodule::charstring_eq_character ( class(characterstringtype), intent(in) lhs, character(len=*), intent(in) rhs )

private

Definition at line 86 of file CharString.f90.

    class(CharacterStringType), intent(in) :: lhs
    character(len=*), intent(in) :: rhs
    logical :: equals
    if (allocated(lhs%charstring)) then
      equals = lhs%charstring == rhs
    else
      equals = rhs == ''
    end if

Here is the caller graph for this function:

charstring_eq_charstring()

elemental logical function characterstringmodule::charstring_eq_charstring ( class(characterstringtype), intent(in) this, class(characterstringtype), intent(in) rhs )

private

Definition at line 97 of file CharString.f90.

    class(CharacterStringType), intent(in) :: this
    class(CharacterStringType), intent(in) :: rhs
    logical :: equals
 
    equals = .false.
    if (allocated(this%charstring)) then
      equals = (rhs == this%charstring)
    end if
 

Here is the caller graph for this function:

destroy()

subroutine characterstringmodule::destroy ( class(characterstringtype), intent(inout) this )

private

Definition at line 131 of file CharString.f90.

    class(CharacterStringType), intent(inout) :: this
    if (allocated(this%charstring)) deallocate (this%charstring)

strlen()

integer function characterstringmodule::strlen ( class(characterstringtype), intent(in) this )

private

Definition at line 120 of file CharString.f90.

    class(CharacterStringType), intent(in) :: this
    integer :: length
 
    if (allocated(this%charstring)) then
      length = len(this%charstring)
    else
      length = 0
    end if

write_unformatted()

subroutine characterstringmodule::write_unformatted ( class(characterstringtype), intent(in) this, integer, intent(in) unit, integer, intent(out) iostat, character(len=*), intent(inout) iomsg )

private

Definition at line 109 of file CharString.f90.

    class(CharacterStringType), intent(in) :: this
    integer, intent(in) :: unit
    integer, intent(out) :: iostat
    character(len=*), intent(inout) :: iomsg
    iostat = 0
    if (allocated(this%charstring)) then
      write (unit, iostat=iostat) this%charstring
    end if