Changeset 947
- Timestamp:
- 09/22/16 16:19:20 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran/icontext.F90
r545 r947 13 13 END TYPE txios(context) 14 14 15 INTERFACE xios(set_current_context) 16 MODULE PROCEDURE xios(set_current_context_hdl), xios(set_current_context_id) 17 END INTERFACE xios(set_current_context) 15 18 16 19 CONTAINS ! Fonctions disponibles pour les utilisateurs. … … 33 36 END SUBROUTINE xios(get_current_context) 34 37 35 SUBROUTINE xios(set_current_context )(context, withswap)38 SUBROUTINE xios(set_current_context_hdl)(context, withswap) 36 39 IMPLICIT NONE 37 40 … … 47 50 CALL cxios_context_set_current(context%daddr, wswap) 48 51 49 END SUBROUTINE xios(set_current_context) 52 END SUBROUTINE xios(set_current_context_hdl) 53 54 SUBROUTINE xios(set_current_context_id)(idt) 55 IMPLICIT NONE 56 57 CHARACTER(len = *) , INTENT(IN) :: idt 58 LOGICAL :: withswap 59 TYPE(xios_context):: ret 60 61 CALL xios(get_context_handle)(idt,ret) 62 CALL xios(set_current_context_hdl)(ret, withswap) 63 END SUBROUTINE xios(set_current_context_id) 50 64 51 65 LOGICAL FUNCTION xios(is_valid_context)(idt)
Note: See TracChangeset
for help on using the changeset viewer.