35 use,
intrinsic :: iso_c_binding
40 kim_model_compute_arguments_create_handle_type, &
44 kim_model_compute_arguments_create_set_argument_support_status, &
47 kim_model_compute_arguments_create_log_entry, &
50 type, bind(c) :: kim_model_compute_arguments_create_handle_type
51 type(c_ptr) :: p = c_null_ptr
52 end type kim_model_compute_arguments_create_handle_type
54 type(kim_model_compute_arguments_create_handle_type),
protected &
57 interface operator (.eq.)
58 logical function kim_model_compute_arguments_create_handle_equal(left, &
60 use,
intrinsic :: iso_c_binding
61 import kim_model_compute_arguments_create_handle_type
63 type(kim_model_compute_arguments_create_handle_type),
intent(in) :: left
64 type(kim_model_compute_arguments_create_handle_type),
intent(in) :: right
65 end function kim_model_compute_arguments_create_handle_equal
66 end interface operator (.eq.)
68 interface operator (.ne.)
69 logical function kim_model_compute_arguments_create_handle_not_equal(left, &
71 use,
intrinsic :: iso_c_binding
72 import kim_model_compute_arguments_create_handle_type
74 type(kim_model_compute_arguments_create_handle_type),
intent(in) :: left
75 type(kim_model_compute_arguments_create_handle_type),
intent(in) :: right
76 end function kim_model_compute_arguments_create_handle_not_equal
77 end interface operator (.ne.)
80 subroutine kim_model_compute_arguments_create_set_argument_support_status( &
81 model_create_handle, compute_argument_name, support_status, ierr)
82 use,
intrinsic :: iso_c_binding
84 kim_compute_argument_name_type
86 import kim_model_compute_arguments_create_handle_type
88 type(kim_model_compute_arguments_create_handle_type),
intent(in) :: &
90 type(kim_compute_argument_name_type),
intent(in),
value :: &
92 type(kim_support_status_type),
intent(in),
value :: support_status
93 integer(c_int),
intent(out) :: ierr
95 kim_model_compute_arguments_create_set_argument_support_status
98 model_create_handle, compute_callback_name, support_status, ierr)
99 use,
intrinsic :: iso_c_binding
101 kim_compute_callback_name_type
103 import kim_model_compute_arguments_create_handle_type
105 type(kim_model_compute_arguments_create_handle_type),
intent(in) :: &
107 type(kim_compute_callback_name_type),
intent(in),
value :: &
108 compute_callback_name
109 type(kim_support_status_type),
intent(in),
value :: support_status
110 integer(c_int),
intent(out) :: ierr
115 model_create_handle, ptr)
116 use,
intrinsic :: iso_c_binding
117 import kim_model_compute_arguments_create_handle_type
119 type(kim_model_compute_arguments_create_handle_type),
intent(in) :: &
121 type(c_ptr),
intent(in),
value :: ptr
124 subroutine kim_model_compute_arguments_create_log_entry( &
125 model_create_handle, log_verbosity, message, line_number, file_name)
126 use,
intrinsic :: iso_c_binding
128 import kim_model_compute_arguments_create_handle_type
130 type(kim_model_compute_arguments_create_handle_type),
intent(in) :: &
132 type(kim_log_verbosity_type),
intent(in),
value :: log_verbosity
133 character(len=*, kind=c_char),
intent(in) :: message
134 integer(c_int),
intent(in),
value :: line_number
135 character(len=*, kind=c_char),
intent(in) :: file_name
136 end subroutine kim_model_compute_arguments_create_log_entry
140 use,
intrinsic :: iso_c_binding
141 import kim_model_compute_arguments_create_handle_type
143 type(kim_model_compute_arguments_create_handle_type),
intent(in) :: &
145 character(len=*, kind=c_char),
intent(out) :: string
type(kim_model_compute_arguments_create_handle_type), public, protected kim_model_compute_arguments_create_null_handle