@brief C-interoperable wrapper for get_states_overlap
@param[in] c_handle C handle for the information structure
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(oqp_handle_t) | :: | c_handle |
subroutine get_structures_ao_overlap_C(c_handle) bind(C, name="get_structures_ao_overlap") use c_interop, only: oqp_handle_t, oqp_handle_get_info use types, only: information type(oqp_handle_t) :: c_handle type(information), pointer :: inf inf => oqp_handle_get_info(c_handle) call get_structures_ao_overlap(inf) end subroutine get_structures_ao_overlap_c