oqp_init Function

public function oqp_init() result(res) bind(C, name='oqp_init'))

Arguments

None

Return Value type(c_ptr)


Calls

proc~~oqp_init~~CallsGraph proc~oqp_init oqp_init new new proc~oqp_init->new proc~oqp_handle_refresh_ptr oqp_handle_refresh_ptr proc~oqp_init->proc~oqp_handle_refresh_ptr

Source Code

  function oqp_init() bind(C, name='oqp_init') result(res)

    implicit none
    type(c_ptr) :: res
    type(oqp_handle_t), pointer :: c_handle
    type(information), pointer :: inf
    integer :: ok

    res = c_null_ptr

    allocate(inf, stat=ok)
    if (ok /= 0) return

    allocate(c_handle, stat=ok)
    if (ok /= 0) return

    c_handle%inf = c_loc(inf)
    call oqp_handle_refresh_ptr(c_handle)

    res = c_loc(c_handle)

    call inf%dat%new("OQP")

  end function oqp_init