35 use,
intrinsic :: iso_c_binding
40 kim_model_destroy_handle_type, &
44 kim_model_destroy_get_model_buffer_pointer, &
45 kim_model_destroy_log_entry, &
48 type, bind(c) :: kim_model_destroy_handle_type
49 type(c_ptr) :: p = c_null_ptr
50 end type kim_model_destroy_handle_type
52 type(kim_model_destroy_handle_type),
protected &
55 interface operator (.eq.)
56 logical function kim_model_destroy_handle_equal(left, right)
57 use,
intrinsic :: iso_c_binding
58 import kim_model_destroy_handle_type
60 type(kim_model_destroy_handle_type),
intent(in) :: left
61 type(kim_model_destroy_handle_type),
intent(in) :: right
62 end function kim_model_destroy_handle_equal
63 end interface operator (.eq.)
65 interface operator (.ne.)
66 logical function kim_model_destroy_handle_not_equal(left, right)
67 use,
intrinsic :: iso_c_binding
68 import kim_model_destroy_handle_type
70 type(kim_model_destroy_handle_type),
intent(in) :: left
71 type(kim_model_destroy_handle_type),
intent(in) :: right
72 end function kim_model_destroy_handle_not_equal
73 end interface operator (.ne.)
76 subroutine kim_model_destroy_get_model_buffer_pointer( &
77 model_destroy_handle, ptr)
78 use,
intrinsic :: iso_c_binding
79 import kim_model_destroy_handle_type
81 type(kim_model_destroy_handle_type),
intent(in) :: model_destroy_handle
82 type(c_ptr),
intent(out) :: ptr
83 end subroutine kim_model_destroy_get_model_buffer_pointer
85 subroutine kim_model_destroy_log_entry(model_destroy_handle, &
86 log_verbosity, message, line_number, file_name)
87 use,
intrinsic :: iso_c_binding
89 import kim_model_destroy_handle_type
91 type(kim_model_destroy_handle_type),
intent(in) :: model_destroy_handle
92 type(kim_log_verbosity_type),
intent(in),
value :: log_verbosity
93 character(len=*, kind=c_char),
intent(in) :: message
94 integer(c_int),
intent(in),
value :: line_number
95 character(len=*, kind=c_char),
intent(in) :: file_name
96 end subroutine kim_model_destroy_log_entry
99 use,
intrinsic :: iso_c_binding
100 import kim_model_destroy_handle_type
102 type(kim_model_destroy_handle_type),
intent(in) :: model_destroy_handle
103 character(len=*, kind=c_char),
intent(out) :: string
type(kim_model_destroy_handle_type), public, protected kim_model_destroy_null_handle