C_ommp_ff_is_amoeba Function

public function C_ommp_ff_is_amoeba(s_prt) bind(c, name='ommp_ff_is_amoeba')

Return true if the current forcefield is AMOEBA, and false in all other cases.

Arguments

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

Return Value logical(kind=c_bool)


Contents

Source Code

C_ommp_ff_is_amoeba

Source Code

        function C_ommp_ff_is_amoeba(s_prt) bind(c, name='ommp_ff_is_amoeba')
            !! Return true if the current forcefield is AMOEBA, and false in
            !! all other cases.
            implicit none

            type(c_ptr), value :: s_prt
            type(ommp_system), pointer :: s
            logical(c_bool) :: C_ommp_ff_is_amoeba

            call c_f_pointer(s_prt, s)
            C_ommp_ff_is_amoeba = s%amoeba
        end function C_ommp_ff_is_amoeba