beach_zero_mode_create Function

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

Arguments

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

Return Value integer(kind=c_int)

Source Code

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

    allocate (zero)
    zero%built = .false.
    zero%charged = .false.
    handle = c_loc(zero)
    status = beach_zero_mode_ok
  end function beach_zero_mode_create