- Timestamp:
- 09/21/16 14:35:03 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.F90
r891 r932 48 48 49 49 50 SUBROUTINE cxios_set_filegroup_convention(filegroup_hdl, convention, convention_size) BIND(C) 51 USE ISO_C_BINDING 52 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 53 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: convention 54 INTEGER (kind = C_INT) , VALUE :: convention_size 55 END SUBROUTINE cxios_set_filegroup_convention 56 57 SUBROUTINE cxios_get_filegroup_convention(filegroup_hdl, convention, convention_size) BIND(C) 58 USE ISO_C_BINDING 59 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 60 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: convention 61 INTEGER (kind = C_INT) , VALUE :: convention_size 62 END SUBROUTINE cxios_get_filegroup_convention 63 64 FUNCTION cxios_is_defined_filegroup_convention(filegroup_hdl) BIND(C) 65 USE ISO_C_BINDING 66 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_convention 67 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 68 END FUNCTION cxios_is_defined_filegroup_convention 69 70 50 71 SUBROUTINE cxios_set_filegroup_cyclic(filegroup_hdl, cyclic) BIND(C) 51 72 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.