35 use,
intrinsic :: iso_c_binding
40 kim_model_compute_arguments_destroy_handle_type, &
44 kim_model_compute_arguments_destroy_get_model_buffer_pointer, &
45 kim_model_compute_arguments_destroy_log_entry, &
48 type, bind(c) :: kim_model_compute_arguments_destroy_handle_type
49 type(c_ptr) :: p = c_null_ptr
50 end type kim_model_compute_arguments_destroy_handle_type
52 type(kim_model_compute_arguments_destroy_handle_type),
protected &
55 interface operator (.eq.)
56 logical function kim_model_compute_arguments_destroy_handle_equal(left, &
58 use,
intrinsic :: iso_c_binding
59 import kim_model_compute_arguments_destroy_handle_type
61 type(kim_model_compute_arguments_destroy_handle_type),
intent(in) :: left
62 type(kim_model_compute_arguments_destroy_handle_type),
intent(in) :: right
63 end function kim_model_compute_arguments_destroy_handle_equal
64 end interface operator (.eq.)
66 interface operator (.ne.)
67 logical function kim_model_compute_arguments_destroy_handle_not_equal( &
69 use,
intrinsic :: iso_c_binding
70 import kim_model_compute_arguments_destroy_handle_type
72 type(kim_model_compute_arguments_destroy_handle_type),
intent(in) :: left
73 type(kim_model_compute_arguments_destroy_handle_type),
intent(in) :: right
74 end function kim_model_compute_arguments_destroy_handle_not_equal
75 end interface operator (.ne.)
78 subroutine kim_model_compute_arguments_destroy_get_model_buffer_pointer( &
79 model_destroy_handle, ptr)
80 use,
intrinsic :: iso_c_binding
81 import kim_model_compute_arguments_destroy_handle_type
83 type(kim_model_compute_arguments_destroy_handle_type),
intent(in) :: &
85 type(c_ptr),
intent(out) :: ptr
86 end subroutine kim_model_compute_arguments_destroy_get_model_buffer_pointer
88 subroutine kim_model_compute_arguments_destroy_log_entry( &
89 model_destroy_handle, log_verbosity, message, line_number, file_name)
90 use,
intrinsic :: iso_c_binding
92 import kim_model_compute_arguments_destroy_handle_type
94 type(kim_model_compute_arguments_destroy_handle_type),
intent(in) :: &
96 type(kim_log_verbosity_type),
intent(in),
value :: log_verbosity
97 character(len=*, kind=c_char),
intent(in) :: message
98 integer(c_int),
intent(in),
value :: line_number
99 character(len=*, kind=c_char),
intent(in) :: file_name
100 end subroutine kim_model_compute_arguments_destroy_log_entry
103 model_destroy_handle, string)
104 use,
intrinsic :: iso_c_binding
105 import kim_model_compute_arguments_destroy_handle_type
107 type(kim_model_compute_arguments_destroy_handle_type),
intent(in) :: &
109 character(len=*, kind=c_char),
intent(out) :: string
type(kim_model_compute_arguments_destroy_handle_type), public, protected kim_model_compute_arguments_destroy_null_handle