uncache Subroutine

public subroutine uncache(me)

Restore all the segment data form the cache.

Type Bound

Arguments

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

Source Code

    subroutine uncache(me)

    implicit none

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

    me%data = me%cached_data

    end subroutine uncache