- Timestamp:
- 07/05/16 15:59:23 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/file_interface_attr.F90
r802 r891 48 48 49 49 50 SUBROUTINE cxios_set_file_cyclic(file_hdl, cyclic) BIND(C) 51 USE ISO_C_BINDING 52 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 53 LOGICAL (KIND=C_BOOL) , VALUE :: cyclic 54 END SUBROUTINE cxios_set_file_cyclic 55 56 SUBROUTINE cxios_get_file_cyclic(file_hdl, cyclic) BIND(C) 57 USE ISO_C_BINDING 58 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 59 LOGICAL (KIND=C_BOOL) :: cyclic 60 END SUBROUTINE cxios_get_file_cyclic 61 62 FUNCTION cxios_is_defined_file_cyclic(file_hdl) BIND(C) 63 USE ISO_C_BINDING 64 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_cyclic 65 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 66 END FUNCTION cxios_is_defined_file_cyclic 67 68 50 69 SUBROUTINE cxios_set_file_description(file_hdl, description, description_size) BIND(C) 51 70 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.