destructor for the commlib
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(mimic_communicator), | intent(inout) | :: | this |
subroutine destroy_comm(this)
class(mimic_communicator), intent(inout) :: this
call mcl_destroy
deallocate(this%overlap_maps)
this%num_clients = -1
end subroutine destroy_comm