oqp_handle_refresh_ptr Subroutine

public subroutine oqp_handle_refresh_ptr(c_handle)

Arguments

Type IntentOptional Attributes Name
type(oqp_handle_t), intent(inout) :: c_handle

Called by

proc~~oqp_handle_refresh_ptr~~CalledByGraph proc~oqp_handle_refresh_ptr oqp_handle_refresh_ptr proc~oqp_init oqp_init proc~oqp_init->proc~oqp_handle_refresh_ptr

Source Code

  subroutine oqp_handle_refresh_ptr(c_handle)

    implicit none
    type(oqp_handle_t), intent(inout) :: c_handle
    type(information), pointer :: inf

    call c_f_pointer(c_handle%inf, inf)

    c_handle%mol_prop    = c_loc(inf%mol_prop)
    c_handle%mol_energy  = c_loc(inf%mol_energy)
    c_handle%dft         = c_loc(inf%dft)
    c_handle%control     = c_loc(inf%control)
    c_handle%tddft       = c_loc(inf%tddft)
    c_handle%mpiinfo     = c_loc(inf%mpiinfo)
    c_handle%elshell     = c_loc(inf%elshell)
    if (allocated(inf%atoms%xyz)) then
        c_handle%xyz  = c_loc(inf%atoms%xyz)
        c_handle%qn   = c_loc(inf%atoms%zn)
        c_handle%mass = c_loc(inf%atoms%mass)
    end if
    if (allocated(inf%atoms%grad)) then
        c_handle%grad = c_loc(inf%atoms%grad)
    end if

  end subroutine oqp_handle_refresh_ptr