fffc_string.f90 Source File

module fffc_string
    use fffc_kinds
    interface to_string
        module function to_string_real_kind(real, fmt) result(string)
            real(kind=fffc_real_kind), intent(in) :: real
            character(len=*), intent(in) :: fmt
            character(len=:), allocatable :: string
        end function to_string_real_kind
        module function to_string_int_kind(int, fmt) result(string)
            integer(kind=fffc_int_kind), intent(in) :: int
            character(len=*), intent(in) :: fmt
            character(len=:), allocatable :: string
        end function to_string_int_kind
        module function to_string_logical_kind(logical, fmt) result(string)
            logical, intent(in) :: logical
            character(len=*), intent(in) :: fmt
            character(len=:), allocatable :: string
        end function to_string_logical_kind
    end interface to_string
    interface
        pure module function to_lower(string) result(lower)
            character(len=*), intent(in) :: string
            character(len=len(string)) :: lower
        end function to_lower
        pure module function to_upper(string) result(upper)
            character(len=*), intent(in) :: string
            character(len=len(string)) :: upper
        end function to_upper
    end interface
end module fffc_string