155 recursive subroutine &
156 kim_model_compute_arguments_destroy_get_model_buffer_pointer( &
157 model_compute_arguments_destroy_handle, ptr)
158 use kim_interoperable_types_module,
only: &
159 kim_model_compute_arguments_destroy_type
162 recursive subroutine get_model_buffer_pointer( &
163 model_compute_arguments_destroy, ptr) &
164 bind(c, name="KIM_ModelComputeArgumentsDestroy_GetModelBufferPointer")
165 use,
intrinsic :: iso_c_binding
166 use kim_interoperable_types_module,
only: &
167 kim_model_compute_arguments_destroy_type
169 type(kim_model_compute_arguments_destroy_type),
intent(in) :: &
170 model_compute_arguments_destroy
171 type(c_ptr),
intent(out) :: ptr
172 end subroutine get_model_buffer_pointer
175 model_compute_arguments_destroy_handle
176 type(c_ptr),
intent(out) :: ptr
177 type(kim_model_compute_arguments_destroy_type),
pointer :: &
178 model_compute_arguments_destroy
180 call c_f_pointer(model_compute_arguments_destroy_handle%p, &
181 model_compute_arguments_destroy)
182 call get_model_buffer_pointer(model_compute_arguments_destroy, ptr)
191 recursive subroutine kim_model_compute_arguments_destroy_log_entry( &
192 model_compute_arguments_destroy_handle, log_verbosity, message)
194 use kim_interoperable_types_module,
only: &
195 kim_model_compute_arguments_destroy_type
198 recursive subroutine log_entry( &
199 model_compute_arguments_destroy, log_verbosity, message, line_number, &
200 file_name)
bind(c, name="KIM_ModelComputeArgumentsDestroy_LogEntry")
201 use,
intrinsic :: iso_c_binding
203 use kim_interoperable_types_module,
only: &
204 kim_model_compute_arguments_destroy_type
206 type(kim_model_compute_arguments_destroy_type),
intent(in) :: &
207 model_compute_arguments_destroy
209 character(c_char),
intent(in) :: message(*)
210 integer(c_int),
intent(in),
value :: line_number
211 character(c_char),
intent(in) :: file_name(*)
212 end subroutine log_entry
215 model_compute_arguments_destroy_handle
216 type(kim_log_verbosity_type),
intent(in) :: log_verbosity
217 character(len=*, kind=c_char),
intent(in) :: message
218 type(kim_model_compute_arguments_destroy_type),
pointer :: &
219 model_compute_arguments_destroy
221 call c_f_pointer(model_compute_arguments_destroy_handle%p, &
222 model_compute_arguments_destroy)
223 call log_entry(model_compute_arguments_destroy, log_verbosity, &
224 trim(message)//c_null_char, 0,
""//c_null_char)
233 recursive subroutine kim_model_compute_arguments_destroy_to_string( &
234 model_compute_arguments_destroy_handle, string)
235 use kim_convert_string_module,
only: kim_convert_c_char_ptr_to_string
236 use kim_interoperable_types_module,
only: &
237 kim_model_compute_arguments_destroy_type
240 type(c_ptr)
recursive function model_compute_arguments_destroy_string( &
241 model_compute_arguments_destroy) &
242 bind(c, name="KIM_ModelComputeArgumentsDestroy_ToString")
243 use,
intrinsic :: iso_c_binding
244 use kim_interoperable_types_module,
only: &
245 kim_model_compute_arguments_destroy_type
247 type(kim_model_compute_arguments_destroy_type),
intent(in) :: &
248 model_compute_arguments_destroy
249 end function model_compute_arguments_destroy_string
252 model_compute_arguments_destroy_handle
253 character(len=*, kind=c_char),
intent(out) :: string
254 type(kim_model_compute_arguments_destroy_type),
pointer :: &
255 model_compute_arguments_destroy
259 call c_f_pointer(model_compute_arguments_destroy_handle%p, &
260 model_compute_arguments_destroy)
261 p = model_compute_arguments_destroy_string(model_compute_arguments_destroy)
262 call kim_convert_c_char_ptr_to_string(p, string)