Changeset 285 for XMLIO_V2/dev/dev_rv/src/xmlio/fortran/field_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/field_interface.f90
r270 r285 104 104 INTEGER (kind = C_INT) , VALUE :: idt_size 105 105 END SUBROUTINE xios_field_handle_create 106 106 107 SUBROUTINE xios_field_valid_id(ret, idt, idt_size) BIND(C) 108 USE ISO_C_BINDING 109 LOGICAL (kind = C_BOOL) :: ret 110 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: idt 111 INTEGER (kind = C_INT) , VALUE :: idt_size 112 END SUBROUTINE xios_field_valid_id 113 107 114 END INTERFACE 108 115
Note: See TracChangeset
for help on using the changeset viewer.