- 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/domaingroup_interface.f90
r270 r285 201 201 202 202 SUBROUTINE xios_domaingroup_handle_create(ret, idt, idt_size) BIND(C) 203 import C_CHAR, C_INTPTR_T, C_INT203 USE ISO_C_BINDING 204 204 INTEGER (kind = C_INTPTR_T) :: ret 205 205 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: idt 206 206 INTEGER (kind = C_INT) , VALUE :: idt_size 207 207 END SUBROUTINE xios_domaingroup_handle_create 208 208 209 SUBROUTINE xios_domaingroup_valid_id(ret, idt, idt_size) BIND(C) 210 USE ISO_C_BINDING 211 LOGICAL (kind = C_BOOL) :: ret 212 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: idt 213 INTEGER (kind = C_INT) , VALUE :: idt_size 214 END SUBROUTINE xios_domaingroup_valid_id 215 209 216 END INTERFACE 210 217
Note: See TracChangeset
for help on using the changeset viewer.