beach_kernel_create Function

public function beach_kernel_create(handle) result(status) bind(C, name='beach_kernel_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_kernel_create(handle) bind(C, name='beach_kernel_create') result(status)
    type(c_ptr), intent(out) :: handle
    type(field_kernel_handle), pointer :: kernel

    allocate (kernel)
    kernel%built = .false.
    kernel%charged = .false.
    handle = c_loc(kernel)
    status = beach_kernel_ok
  end function beach_kernel_create