- Timestamp:
- 08/25/15 16:52:45 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/fieldgroup_interface_attr.F90
r608 r676 252 252 253 253 254 SUBROUTINE cxios_set_fieldgroup_indexed_output(fieldgroup_hdl, indexed_output) BIND(C) 255 USE ISO_C_BINDING 256 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 257 LOGICAL (KIND=C_BOOL) , VALUE :: indexed_output 258 END SUBROUTINE cxios_set_fieldgroup_indexed_output 259 260 SUBROUTINE cxios_get_fieldgroup_indexed_output(fieldgroup_hdl, indexed_output) BIND(C) 261 USE ISO_C_BINDING 262 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 263 LOGICAL (KIND=C_BOOL) :: indexed_output 264 END SUBROUTINE cxios_get_fieldgroup_indexed_output 265 266 FUNCTION cxios_is_defined_fieldgroup_indexed_output(fieldgroup_hdl) BIND(C) 267 USE ISO_C_BINDING 268 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_indexed_output 269 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 270 END FUNCTION cxios_is_defined_fieldgroup_indexed_output 271 272 254 273 SUBROUTINE cxios_set_fieldgroup_level(fieldgroup_hdl, level) BIND(C) 255 274 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.