put_data_in_segment Subroutine

public subroutine put_data_in_segment(me, d)

Set all the data in a segment.

Type Bound

segment

Arguments

Type IntentOptional Attributes Name
class(segment), intent(inout) :: me
type(segment_data), intent(in) :: d

Source Code

    subroutine put_data_in_segment(me,d)

    implicit none

    class(segment),intent(inout) :: me
    type(segment_data),intent(in) :: d

    me%data        = d
    me%cached_data = d ! also the cache

    end subroutine put_data_in_segment