35 use,
intrinsic :: iso_c_binding
40 kim_temperature_unit_type, &
41 kim_temperature_unit_from_string, &
44 kim_temperature_unit_string, &
49 type, bind(c) :: kim_temperature_unit_type
50 integer(c_int) temperature_unit_id
51 end type kim_temperature_unit_type
53 type(kim_temperature_unit_type),
protected, &
54 bind(c, name=
"KIM_TEMPERATURE_UNIT_unused") &
56 type(kim_temperature_unit_type),
protected, &
57 bind(c, name=
"KIM_TEMPERATURE_UNIT_K") &
60 interface operator (.eq.)
61 logical function kim_temperature_unit_equal(left, right)
62 use,
intrinsic :: iso_c_binding
63 import kim_temperature_unit_type
65 type(kim_temperature_unit_type),
intent(in) :: left
66 type(kim_temperature_unit_type),
intent(in) :: right
67 end function kim_temperature_unit_equal
68 end interface operator (.eq.)
70 interface operator (.ne.)
71 logical function kim_temperature_unit_not_equal(left, right)
72 use,
intrinsic :: iso_c_binding
73 import kim_temperature_unit_type
75 type(kim_temperature_unit_type),
intent(in) :: left
76 type(kim_temperature_unit_type),
intent(in) :: right
77 end function kim_temperature_unit_not_equal
78 end interface operator (.ne.)
81 subroutine kim_temperature_unit_from_string(string, temperature_unit)
82 import kim_temperature_unit_type
84 character(len=*),
intent(in) :: string
85 type(kim_temperature_unit_type),
intent(out) :: temperature_unit
86 end subroutine kim_temperature_unit_from_string
88 subroutine kim_temperature_unit_string(temperature_unit, string)
89 import kim_temperature_unit_type
91 type(kim_temperature_unit_type),
intent(in),
value :: temperature_unit
92 character(len=*),
intent(out) :: string
93 end subroutine kim_temperature_unit_string
type(kim_temperature_unit_type), public, protected kim_temperature_unit_k
type(kim_temperature_unit_type), public, protected kim_temperature_unit_unused