Dealloates temporary arrays used for initialisation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(shared_rhash_t), | intent(inout) | :: | this |
subroutine finalize_setup(this)
class(shared_rhash_t), intent(inout) :: this
if (iProcIndex_intra == 0) then
deallocate(this%mult)
end if
end subroutine finalize_setup