logical_to_char Function

public function logical_to_char(l) result(str)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	l

Return Value character(len=1)

Source Code

    function logical_to_char(l) result(str)
        logical, intent(in) :: l
        character(len=1) :: str
        if (l) then
            str = 'T'
        else
            str = 'F'
        end if
    end function logical_to_char