Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(c_ptr), | value | :: | s_prt |
function C_ommp_qm_helper_use_frozen(s_prt) bind(c, name='ommp_qm_helper_use_frozen')
use mod_qm_helper, only: ommp_qm_helper
implicit none
type(c_ptr), value :: s_prt
type(ommp_qm_helper), pointer :: s
logical(c_bool) :: C_ommp_qm_helper_use_frozen
call c_f_pointer(s_prt, s)
C_ommp_qm_helper_use_frozen = s%qm_top%use_frozen
end function C_ommp_qm_helper_use_frozen