Changeset 545 for XIOS/trunk/src/interface/fortran/context_interface.f90
- Timestamp:
- 12/17/14 11:14:05 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran/context_interface.f90
r501 r545 1 1 MODULE CONTEXT_INTERFACE 2 2 USE, INTRINSIC :: ISO_C_BINDING 3 3 4 4 INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99 5 5 6 6 SUBROUTINE cxios_context_handle_create(ret, idt, idt_size) BIND(C) 7 7 import C_CHAR, C_INTPTR_T, C_INT … … 10 10 INTEGER (kind = C_INT) , VALUE :: idt_size 11 11 END SUBROUTINE cxios_context_handle_create 12 12 13 SUBROUTINE cxios_context_get_current(context) BIND(C) 14 import C_INTPTR_T 15 INTEGER (kind = C_INTPTR_T) :: context 16 END SUBROUTINE cxios_context_get_current 17 13 18 SUBROUTINE cxios_context_set_current(context, withswap) BIND(C) 14 19 import C_BOOL, C_INT, C_INTPTR_T … … 25 30 26 31 END INTERFACE 27 32 28 33 END MODULE CONTEXT_INTERFACE
Note: See TracChangeset
for help on using the changeset viewer.