tem_b2str Function

private function tem_b2str(val) result(str)

Converts a bool to a string.

Arguments

Type IntentOptional Attributes Name
logical, intent(in) :: val

Return Value character(len=SolSpecLen)


Source Code

  function tem_b2str( val ) result(str)
    ! ---------------------------------------------------------------------------
    !>
    logical, intent(in) :: val
    !>
    character(len=SolSpecLen) :: str
    ! ---------------------------------------------------------------------------
    character(len=SolSpecLen) :: tmp
    ! ---------------------------------------------------------------------------

    write(tmp, *) val
    str = adjustl(tmp)

  end function tem_b2str