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, &
53 bind(c,name=
"KIM_MODEL_DESTROY_null_handle") &
56 interface operator (.eq.)
57 logical function kim_model_destroy_handle_equal(left, right)
58 use,
intrinsic :: iso_c_binding
59 import kim_model_destroy_handle_type
61 type(kim_model_destroy_handle_type),
intent(in) :: left
62 type(kim_model_destroy_handle_type),
intent(in) :: right
63 end function kim_model_destroy_handle_equal
64 end interface operator (.eq.)
66 interface operator (.ne.)
67 logical function kim_model_destroy_handle_not_equal(left, right)
68 use,
intrinsic :: iso_c_binding
69 import kim_model_destroy_handle_type
71 type(kim_model_destroy_handle_type),
intent(in) :: left
72 type(kim_model_destroy_handle_type),
intent(in) :: right
73 end function kim_model_destroy_handle_not_equal
74 end interface operator (.ne.)
77 subroutine kim_model_destroy_get_model_buffer_pointer( &
78 model_destroy_handle, ptr)
79 use,
intrinsic :: iso_c_binding
80 import kim_model_destroy_handle_type
82 type(kim_model_destroy_handle_type),
intent(in) :: model_destroy_handle
83 type(c_ptr),
intent(out) :: ptr
84 end subroutine kim_model_destroy_get_model_buffer_pointer
86 subroutine kim_model_destroy_log_entry(model_destroy_handle, &
87 log_verbosity, message, line_number, file_name)
88 use,
intrinsic :: iso_c_binding
90 import kim_model_destroy_handle_type
92 type(kim_model_destroy_handle_type),
intent(in) :: model_destroy_handle
93 type(kim_log_verbosity_type),
intent(in),
value :: log_verbosity
94 character(len=*),
intent(in) :: message
95 integer(c_int),
intent(in),
value :: line_number
96 character(len=*),
intent(in) :: file_name
97 end subroutine kim_model_destroy_log_entry
100 use,
intrinsic :: iso_c_binding
101 import kim_model_destroy_handle_type
103 type(kim_model_destroy_handle_type),
intent(in) :: model_destroy_handle
104 character(len=*),
intent(out) :: string
type(kim_model_destroy_handle_type), public, protected kim_model_destroy_null_handle