to_string Function

Source File

private recursive function to_string(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_ref),	intent(in)			::	this

Return Value character(len=:), allocatable

Calls

Help

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public		::	i

Source Code

    recursive function to_string(this)
        class(vector_ref), intent(in) :: this
        character(:), allocatable :: to_string
        integer :: i
        to_string = "["
        if(this%current_size > 0) then
            to_string = to_string // object_pointer_string(this%items(1)%stuff)
        end if
        do i = 2, this%current_size
            to_string = to_string // "," // &
                object_pointer_string(this%items(i)%stuff)
        end do
        to_string = to_string // "]"
    end function to_string

Project

General

Profile

Earth System Model Environment » self - Fortran STL

to_string Function

Variables

Source Code

All Procedures

private recursive function to_string(this)

Arguments

Return Value character(len=:), allocatable

Calls

Variables

Source Code