cache Subroutine

public subroutine cache(me)

Cache all the data in a segment.

Type Bound

Arguments

Type	Intent	Optional	Attributes		Name
class(segment),	intent(inout)			::	me

Source Code

    subroutine cache(me)

    implicit none

    class(segment),intent(inout) :: me

    me%cached_data = me%data

    end subroutine cache