- Timestamp:
- 05/26/15 16:13:47 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.F90
r581 r598 130 130 131 131 132 SUBROUTINE cxios_set_filegroup_mode(filegroup_hdl, mode, mode_size) BIND(C) 133 USE ISO_C_BINDING 134 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 135 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: mode 136 INTEGER (kind = C_INT) , VALUE :: mode_size 137 END SUBROUTINE cxios_set_filegroup_mode 138 139 SUBROUTINE cxios_get_filegroup_mode(filegroup_hdl, mode, mode_size) BIND(C) 140 USE ISO_C_BINDING 141 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 142 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: mode 143 INTEGER (kind = C_INT) , VALUE :: mode_size 144 END SUBROUTINE cxios_get_filegroup_mode 145 146 FUNCTION cxios_is_defined_filegroup_mode(filegroup_hdl) BIND(C) 147 USE ISO_C_BINDING 148 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_mode 149 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 150 END FUNCTION cxios_is_defined_filegroup_mode 151 152 132 153 SUBROUTINE cxios_set_filegroup_name(filegroup_hdl, name, name_size) BIND(C) 133 154 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.