35 use,
intrinsic :: iso_c_binding
40 kim_compute_callback_name_type, &
41 kim_compute_callback_name_from_string, &
44 kim_compute_callback_name_string, &
50 kim_compute_callback_name_get_number_of_compute_callback_names, &
51 kim_compute_callback_name_get_compute_callback_name
54 type, bind(c) :: kim_compute_callback_name_type
55 integer(c_int) compute_callback_name_id
56 end type kim_compute_callback_name_type
58 type(kim_compute_callback_name_type),
protected, &
59 bind(c, name=
"KIM_COMPUTE_CALLBACK_NAME_GetNeighborList") &
61 type(kim_compute_callback_name_type),
protected, &
62 bind(c, name=
"KIM_COMPUTE_CALLBACK_NAME_ProcessDEDrTerm") &
64 type(kim_compute_callback_name_type),
protected, &
65 bind(c, name=
"KIM_COMPUTE_CALLBACK_NAME_ProcessD2EDr2Term") &
68 interface operator (.eq.)
69 logical function kim_compute_callback_name_equal(left, right)
70 use,
intrinsic :: iso_c_binding
71 import kim_compute_callback_name_type
73 type(kim_compute_callback_name_type),
intent(in) :: left
74 type(kim_compute_callback_name_type),
intent(in) :: right
75 end function kim_compute_callback_name_equal
76 end interface operator (.eq.)
79 subroutine kim_compute_callback_name_from_string(string, &
80 compute_callback_name)
81 use,
intrinsic :: iso_c_binding
82 import kim_compute_callback_name_type
84 character(len=*, kind=c_char),
intent(in) :: string
85 type(kim_compute_callback_name_type),
intent(out) :: compute_callback_name
86 end subroutine kim_compute_callback_name_from_string
88 subroutine kim_compute_callback_name_string(compute_callback_name, string)
89 use,
intrinsic :: iso_c_binding
90 import kim_compute_callback_name_type
92 type(kim_compute_callback_name_type),
intent(in),
value :: &
94 character(len=*, kind=c_char),
intent(out) :: string
95 end subroutine kim_compute_callback_name_string
97 subroutine kim_compute_callback_name_get_number_of_compute_callback_names( &
98 number_of_compute_callback_names)
99 use,
intrinsic :: iso_c_binding
101 integer(c_int),
intent(out) :: number_of_compute_callback_names
103 kim_compute_callback_name_get_number_of_compute_callback_names
105 subroutine kim_compute_callback_name_get_compute_callback_name(index, &
106 compute_callback_name, ierr)
107 use,
intrinsic :: iso_c_binding
108 import kim_compute_callback_name_type
110 integer(c_int),
intent(in),
value :: index
111 type(kim_compute_callback_name_type),
intent(out) :: compute_callback_name
112 integer(c_int),
intent(out) :: ierr
113 end subroutine kim_compute_callback_name_get_compute_callback_name
type(kim_compute_callback_name_type), public, protected kim_compute_callback_name_get_neighbor_list
type(kim_compute_callback_name_type), public, protected kim_compute_callback_name_process_dedr_term
type(kim_compute_callback_name_type), public, protected kim_compute_callback_name_process_d2edr2_term