C_ommp_get_n_ipd Function

public function C_ommp_get_n_ipd(s_prt) bind(c, name='ommp_get_n_ipd')

Return the number of dipole's set for the current Force-Field.

Arguments

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

Return Value integer(kind=ommp_integer)


Contents

Source Code

C_ommp_get_n_ipd

Source Code

        function C_ommp_get_n_ipd(s_prt) bind(c, name='ommp_get_n_ipd')
            !! Return the number of dipole's set for the current Force-Field.
            implicit none

            type(c_ptr), value :: s_prt
            type(ommp_system), pointer :: s
            integer(ommp_integer) :: C_ommp_get_n_ipd

            call c_f_pointer(s_prt, s)
            C_ommp_get_n_ipd = s%eel%n_ipd
        end function C_ommp_get_n_ipd