- Timestamp:
- 03/30/12 15:52:19 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/file_interface_attr.f90
r326 r336 95 95 96 96 97 SUBROUTINE cxios_set_file_par_access(file_hdl, par_access, par_access_size) BIND(C) 98 USE ISO_C_BINDING 99 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 100 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: par_access 101 INTEGER (kind = C_INT) , VALUE :: par_access_size 102 END SUBROUTINE cxios_set_file_par_access 103 104 SUBROUTINE cxios_get_file_par_access(file_hdl, par_access, par_access_size) BIND(C) 105 USE ISO_C_BINDING 106 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 107 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: par_access 108 INTEGER (kind = C_INT) , VALUE :: par_access_size 109 END SUBROUTINE cxios_get_file_par_access 110 111 97 112 SUBROUTINE cxios_set_file_split_freq(file_hdl, split_freq, split_freq_size) BIND(C) 98 113 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.