35 use,
intrinsic :: iso_c_binding
40 kim_length_unit_type, &
41 kim_length_unit_from_string, &
44 kim_length_unit_string, &
53 type, bind(c) :: kim_length_unit_type
54 integer(c_int) length_unit_id
55 end type kim_length_unit_type
57 type(kim_length_unit_type),
protected, &
58 bind(c, name=
"KIM_LENGTH_UNIT_unused") &
60 type(kim_length_unit_type),
protected, &
61 bind(c, name=
"KIM_LENGTH_UNIT_A") &
63 type(kim_length_unit_type),
protected, &
64 bind(c, name=
"KIM_LENGTH_UNIT_Bhor") &
66 type(kim_length_unit_type),
protected, &
67 bind(c, name=
"KIM_LENGTH_UNIT_cm") &
69 type(kim_length_unit_type),
protected, &
70 bind(c, name=
"KIM_LENGTH_UNIT_m") &
72 type(kim_length_unit_type),
protected, &
73 bind(c, name=
"KIM_LENGTH_UNIT_nm") &
76 interface operator (.eq.)
77 logical function kim_length_unit_equal(left, right)
78 use,
intrinsic :: iso_c_binding
79 import kim_length_unit_type
81 type(kim_length_unit_type),
intent(in) :: left
82 type(kim_length_unit_type),
intent(in) :: right
83 end function kim_length_unit_equal
84 end interface operator (.eq.)
86 interface operator (.ne.)
87 logical function kim_length_unit_not_equal(left, right)
88 use,
intrinsic :: iso_c_binding
89 import kim_length_unit_type
91 type(kim_length_unit_type),
intent(in) :: left
92 type(kim_length_unit_type),
intent(in) :: right
93 end function kim_length_unit_not_equal
94 end interface operator (.ne.)
97 subroutine kim_length_unit_from_string(string, length_unit)
98 import kim_length_unit_type
100 character(len=*),
intent(in) :: string
101 type(kim_length_unit_type),
intent(out) :: length_unit
102 end subroutine kim_length_unit_from_string
104 subroutine kim_length_unit_string(length_unit, string)
105 import kim_length_unit_type
107 type(kim_length_unit_type),
intent(in),
value :: length_unit
108 character(len=*),
intent(out) :: string
109 end subroutine kim_length_unit_string
type(kim_length_unit_type), public, protected kim_length_unit_nm
type(kim_length_unit_type), public, protected kim_length_unit_cm
type(kim_length_unit_type), public, protected kim_length_unit_a
type(kim_length_unit_type), public, protected kim_length_unit_unused
type(kim_length_unit_type), public, protected kim_length_unit_bohr
type(kim_length_unit_type), public, protected kim_length_unit_m