Deallocate storage space
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(cell_type), | intent(inout) | :: | self |
subroutine c_deallocate(self)
implicit none
class(cell_type), intent(inout) :: self
if(allocated(self%tmp_sum)) deallocate(self%tmp_sum)
if(allocated(self%rb)) deallocate(self%rb)
end subroutine c_deallocate