35 use,
intrinsic :: iso_c_binding
40 kim_callback_name_type, &
41 kim_callback_name_from_string, &
44 kim_callback_name_string, &
50 kim_callback_name_get_number_of_callbacks, &
51 kim_callback_name_get_callback_name
53 type, bind(c) :: kim_callback_name_type
54 integer(c_int) callback_name_id
55 end type kim_callback_name_type
57 type(kim_callback_name_type),
protected, &
58 bind(c, name=
"KIM_CALLBACK_NAME_GetNeighborList") &
60 type(kim_callback_name_type),
protected, &
61 bind(c, name=
"KIM_CALLBACK_NAME_ProcessDEDrTerm") &
63 type(kim_callback_name_type),
protected, &
64 bind(c, name=
"KIM_CALLBACK_NAME_ProcessD2EDr2Term") &
67 interface operator (.eq.)
68 logical function kim_callback_name_equal(left, right)
69 use,
intrinsic :: iso_c_binding
70 import kim_callback_name_type
72 type(kim_callback_name_type),
intent(in) :: left
73 type(kim_callback_name_type),
intent(in) :: right
74 end function kim_callback_name_equal
75 end interface operator (.eq.)
78 subroutine kim_callback_name_from_string(string, callback_name)
79 import kim_callback_name_type
81 character(len=*),
intent(in) :: string
82 type(kim_callback_name_type),
intent(out) :: callback_name
83 end subroutine kim_callback_name_from_string
85 subroutine kim_callback_name_string(callback_name, string)
86 import kim_callback_name_type
88 type(kim_callback_name_type),
intent(in),
value :: callback_name
89 character(len=*),
intent(out) :: string
90 end subroutine kim_callback_name_string
92 subroutine kim_callback_name_get_number_of_callbacks(number_of_callbacks)
93 use,
intrinsic :: iso_c_binding
95 integer(c_int),
intent(out) :: number_of_callbacks
96 end subroutine kim_callback_name_get_number_of_callbacks
98 subroutine kim_callback_name_get_callback_name(index, callback_name, &
100 use,
intrinsic :: iso_c_binding
101 import kim_callback_name_type
103 integer(c_int),
intent(in),
value :: index
104 type(kim_callback_name_type),
intent(out) :: callback_name
105 integer(c_int),
intent(out) :: ierr
106 end subroutine kim_callback_name_get_callback_name
type(kim_callback_name_type), public, protected kim_callback_name_process_dedr_term
type(kim_callback_name_type), public, protected kim_callback_name_get_neighbor_list
type(kim_callback_name_type), public, protected kim_callback_name_process_d2edr2_term