35 use,
intrinsic :: iso_c_binding
40 kim_support_status_type, &
41 kim_support_status_from_string, &
44 kim_support_status_string, &
51 type, bind(c) :: kim_support_status_type
52 integer(c_int) :: support_status_id
53 end type kim_support_status_type
55 type(kim_support_status_type),
protected, &
56 bind(c, name=
"KIM_SUPPORT_STATUS_requiredByAPI") &
58 type(kim_support_status_type),
protected, &
59 bind(c, name=
"KIM_SUPPORT_STATUS_notSupported") &
61 type(kim_support_status_type),
protected, &
62 bind(c, name=
"KIM_SUPPORT_STATUS_required") &
64 type(kim_support_status_type),
protected, &
65 bind(c, name=
"KIM_SUPPORT_STATUS_optional") &
68 interface operator (.eq.)
69 logical function kim_support_status_equal(left, right)
70 use,
intrinsic :: iso_c_binding
71 import kim_support_status_type
73 type(kim_support_status_type),
intent(in) :: left
74 type(kim_support_status_type),
intent(in) :: right
75 end function kim_support_status_equal
76 end interface operator (.eq.)
78 interface operator (.ne.)
79 logical function kim_support_status_not_equal(left, right)
80 use,
intrinsic :: iso_c_binding
81 import kim_support_status_type
83 type(kim_support_status_type),
intent(in) :: left
84 type(kim_support_status_type),
intent(in) :: right
85 end function kim_support_status_not_equal
86 end interface operator (.ne.)
89 subroutine kim_support_status_from_string(string, support_status)
90 import kim_support_status_type
92 character(len=*),
intent(in) :: string
93 type(kim_support_status_type),
intent(out) :: support_status
94 end subroutine kim_support_status_from_string
96 subroutine kim_support_status_string(support_status, string)
97 import kim_support_status_type
99 type(kim_support_status_type),
intent(in),
value :: support_status
100 character(len=*),
intent(out) :: string
101 end subroutine kim_support_status_string
type(kim_support_status_type), public, protected kim_support_status_optional
type(kim_support_status_type), public, protected kim_support_status_required
type(kim_support_status_type), public, protected kim_support_status_required_by_api
type(kim_support_status_type), public, protected kim_support_status_not_supported