Changeset 2338 for XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/scalargroup_interface_attr.F90
- Timestamp:
- 06/28/22 11:44:19 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/scalargroup_interface_attr.F90
r1941 r2338 176 176 177 177 178 SUBROUTINE cxios_set_scalargroup_n(scalargroup_hdl, n) BIND(C) 179 USE ISO_C_BINDING 180 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 181 INTEGER (KIND=C_INT) , VALUE :: n 182 END SUBROUTINE cxios_set_scalargroup_n 183 184 SUBROUTINE cxios_get_scalargroup_n(scalargroup_hdl, n) BIND(C) 185 USE ISO_C_BINDING 186 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 187 INTEGER (KIND=C_INT) :: n 188 END SUBROUTINE cxios_get_scalargroup_n 189 190 FUNCTION cxios_is_defined_scalargroup_n(scalargroup_hdl) BIND(C) 191 USE ISO_C_BINDING 192 LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_n 193 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 194 END FUNCTION cxios_is_defined_scalargroup_n 195 196 178 197 SUBROUTINE cxios_set_scalargroup_name(scalargroup_hdl, name, name_size) BIND(C) 179 198 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.