beach_zero_mode_destroy Function

public function beach_zero_mode_destroy(handle) result(status) bind(C, name='beach_zero_mode_destroy'))

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),			value	::	handle

Return Value integer(kind=c_int)

Source Code

  integer(c_int) function beach_zero_mode_destroy(handle) &
    bind(C, name='beach_zero_mode_destroy') result(status)
    type(c_ptr), value :: handle
    type(periodic_zero_mode_handle), pointer :: zero

    status = get_zero_mode(handle, zero)
    if (status /= beach_zero_mode_ok) return

    deallocate (zero)
    status = beach_zero_mode_ok
  end function beach_zero_mode_destroy