Changeset 280 for XMLIO_V2/dev/common/src/xmlio/fortran/axis_interface.f90
- Timestamp:
- 09/21/11 11:48:10 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XMLIO_V2/dev/common/src/xmlio/fortran/axis_interface.f90
r274 r280 46 46 47 47 SUBROUTINE xios_axis_handle_create(ret, idt, idt_size) BIND(C) 48 import C_CHAR, C_INTPTR_T, C_INT48 USE ISO_C_BINDING 49 49 INTEGER (kind = C_INTPTR_T) :: ret 50 50 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: idt 51 51 INTEGER (kind = C_INT) , VALUE :: idt_size 52 52 END SUBROUTINE xios_axis_handle_create 53 53 54 SUBROUTINE xios_axis_valid_id(ret, idt, idt_size) BIND(C) 55 USE ISO_C_BINDING 56 LOGICAL (kind = C_BOOL) :: ret 57 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: idt 58 INTEGER (kind = C_INT) , VALUE :: idt_size 59 END SUBROUTINE xios_axis_valid_id 60 54 61 END INTERFACE 55 62
Note: See TracChangeset
for help on using the changeset viewer.