Changeset 461 for XIOS/trunk/src/interface/fortran/idata.F90

Timestamp:

01/20/14 15:01:03 (10 years ago)

Author:

ymipsl

Message:

New function available form fortran interface : LOGICAL xios_context_is_initialized("context_id")
Return .true. if the context "context_id" has been initialized before.

YM

File:

• XIOS/trunk/src/interface/fortran/idata.F90 (modified) (2 diffs)

XIOS/trunk/src/interface/fortran/idata.F90

@@ -25 +25 @@
       END SUBROUTINE cxios_context_initialize
 
+      SUBROUTINE cxios_context_is_initialized(context_id,len_context_id,initialized) BIND(C)
+         USE ISO_C_BINDING
+         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: context_id
+         INTEGER  (kind = C_INT)     , VALUE        :: len_context_id
+         LOGICAL  (kind = C_BOOL)                   :: initialized
+      END SUBROUTINE cxios_context_is_initialized
+      
+      
        SUBROUTINE  cxios_context_close_definition() BIND(C)
          USE ISO_C_BINDING
@@ -130 +138 @@
  
     END SUBROUTINE  xios(context_initialize)
-    
+
+
+   LOGICAL FUNCTION  xios(context_is_initialized)(context_id)
+   USE ISO_C_BINDING
+   IMPLICIT NONE
+   CHARACTER(LEN=*),INTENT(IN)  :: context_id
+   LOGICAL(KIND=C_BOOL) :: is_init
+         
+      CALL cxios_context_is_initialized(context_id, LEN(context_id), is_init)
+      xios(context_is_initialized) = is_init
+ 
+    END FUNCTION xios(context_is_initialized)   
+
     
    SUBROUTINE  xios(finalize)