destroy_block_r_dp Subroutine

private subroutine destroy_block_r_dp(block)

Arguments

Type IntentOptional Attributes Name
type(block_nd_r_dp), intent(inout) :: block