fplot_plot_data.f90

! fplot_plot_data.f90
 
submodule(fplot_core) fplot_plot_data
contains
! ------------------------------------------------------------------------------
    pure module function pd_get_name(this) result(txt)
        class(plot_data), intent(in) :: this
        character(len = :), allocatable :: txt
        txt = trim(this%m_name)
    end function
 
! --------------------
    module subroutine pd_set_name(this, txt)
        class(plot_data), intent(inout) :: this
        character(len = *), intent(in) :: txt
        integer(int32) :: n
        n = min(len(txt), plotdata_max_name_length)
        this%m_name = ""
        if (n /= 0) then
            this%m_name(1:n) = txt(1:n)
        end if
    end subroutine
 
end submodule