- Timestamp:
- 07/07/17 18:17:49 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_olga/src/interface/fortran_attr/filegroup_interface_attr.F90
r1158 r1201 69 69 70 70 71 SUBROUTINE cxios_set_filegroup_convention_str(filegroup_hdl, convention_str, convention_str_size) BIND(C) 72 USE ISO_C_BINDING 73 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 74 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: convention_str 75 INTEGER (kind = C_INT) , VALUE :: convention_str_size 76 END SUBROUTINE cxios_set_filegroup_convention_str 77 78 SUBROUTINE cxios_get_filegroup_convention_str(filegroup_hdl, convention_str, convention_str_size) BIND(C) 79 USE ISO_C_BINDING 80 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 81 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: convention_str 82 INTEGER (kind = C_INT) , VALUE :: convention_str_size 83 END SUBROUTINE cxios_get_filegroup_convention_str 84 85 FUNCTION cxios_is_defined_filegroup_convention_str(filegroup_hdl) BIND(C) 86 USE ISO_C_BINDING 87 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_convention_str 88 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 89 END FUNCTION cxios_is_defined_filegroup_convention_str 90 91 71 92 SUBROUTINE cxios_set_filegroup_cyclic(filegroup_hdl, cyclic) BIND(C) 72 93 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.