35 use,
intrinsic :: iso_c_binding
40 kim_temperature_unit_type, &
41 kim_temperature_unit_from_string, &
44 kim_temperature_unit_string, &
49 kim_temperature_unit_get_number_of_temperature_units, &
50 kim_temperature_unit_get_temperature_unit
53 type, bind(c) :: kim_temperature_unit_type
54 integer(c_int) temperature_unit_id
55 end type kim_temperature_unit_type
57 type(kim_temperature_unit_type),
protected, &
58 bind(c, name=
"KIM_TEMPERATURE_UNIT_unused") &
60 type(kim_temperature_unit_type),
protected, &
61 bind(c, name=
"KIM_TEMPERATURE_UNIT_K") &
64 interface operator (.eq.)
65 logical function kim_temperature_unit_equal(left, right)
66 use,
intrinsic :: iso_c_binding
67 import kim_temperature_unit_type
69 type(kim_temperature_unit_type),
intent(in) :: left
70 type(kim_temperature_unit_type),
intent(in) :: right
71 end function kim_temperature_unit_equal
72 end interface operator (.eq.)
74 interface operator (.ne.)
75 logical function kim_temperature_unit_not_equal(left, right)
76 use,
intrinsic :: iso_c_binding
77 import kim_temperature_unit_type
79 type(kim_temperature_unit_type),
intent(in) :: left
80 type(kim_temperature_unit_type),
intent(in) :: right
81 end function kim_temperature_unit_not_equal
82 end interface operator (.ne.)
85 subroutine kim_temperature_unit_from_string(string, temperature_unit)
86 use,
intrinsic :: iso_c_binding
87 import kim_temperature_unit_type
89 character(len=*, kind=c_char),
intent(in) :: string
90 type(kim_temperature_unit_type),
intent(out) :: temperature_unit
91 end subroutine kim_temperature_unit_from_string
93 subroutine kim_temperature_unit_string(temperature_unit, string)
94 use,
intrinsic :: iso_c_binding
95 import kim_temperature_unit_type
97 type(kim_temperature_unit_type),
intent(in),
value :: temperature_unit
98 character(len=*, kind=c_char),
intent(out) :: string
99 end subroutine kim_temperature_unit_string
101 subroutine kim_temperature_unit_get_number_of_temperature_units( &
102 number_of_temperature_units)
103 use,
intrinsic :: iso_c_binding
105 integer(c_int),
intent(out) :: number_of_temperature_units
106 end subroutine kim_temperature_unit_get_number_of_temperature_units
108 subroutine kim_temperature_unit_get_temperature_unit(index, &
109 temperature_unit, ierr)
110 use,
intrinsic :: iso_c_binding
111 import kim_temperature_unit_type
113 integer(c_int),
intent(in),
value :: index
114 type(kim_temperature_unit_type),
intent(out) :: temperature_unit
115 integer(c_int),
intent(out) :: ierr
116 end subroutine kim_temperature_unit_get_temperature_unit
type(kim_temperature_unit_type), public, protected kim_temperature_unit_k
type(kim_temperature_unit_type), public, protected kim_temperature_unit_unused