C_ommp_get_cpol Function

public function C_ommp_get_cpol(s_prt) bind(c, name='ommp_get_cpol')

Return the c-pointer to the array containing the coordinates of polarizable atoms.

Arguments

Type IntentOptional Attributes Name
type(c_ptr), value :: s_prt

Return Value type(c_ptr)


Contents

Source Code

C_ommp_get_cpol

Source Code

        function C_ommp_get_cpol(s_prt) bind(c, name='ommp_get_cpol')
            !! Return the c-pointer to the array containing the coordinates of
            !! polarizable atoms.
            type(c_ptr), value :: s_prt
            type(ommp_system), pointer :: s
            type(c_ptr) :: C_ommp_get_cpol

            call c_f_pointer(s_prt, s)
            C_ommp_get_cpol = c_loc(s%eel%cpol)
        end function C_ommp_get_cpol