Changeset 285 for XMLIO_V2/dev/dev_rv/src/xmlio/fortran/file_interface.f90
- Timestamp:
- 09/26/11 14:19:55 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XMLIO_V2/dev/dev_rv/src/xmlio/fortran/file_interface.f90
r276 r285 45 45 46 46 SUBROUTINE xios_file_handle_create(ret, idt, idt_size) BIND(C) 47 import C_CHAR, C_INTPTR_T, C_INT47 USE ISO_C_BINDING 48 48 INTEGER (kind = C_INTPTR_T) :: ret 49 49 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: idt 50 50 INTEGER (kind = C_INT) , VALUE :: idt_size 51 51 END SUBROUTINE xios_file_handle_create 52 52 53 SUBROUTINE xios_file_valid_id(ret, idt, idt_size) BIND(C) 54 USE ISO_C_BINDING 55 LOGICAL (kind = C_BOOL) :: ret 56 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: idt 57 INTEGER (kind = C_INT) , VALUE :: idt_size 58 END SUBROUTINE xios_file_valid_id 59 53 60 END INTERFACE 54 61
Note: See TracChangeset
for help on using the changeset viewer.