Changeset 983 for XIOS/dev/dev_olga/src/interface/fortran/idata.F90

Timestamp:

11/07/16 17:55:55 (7 years ago)

Author:

oabramkina

Message:

My branch

Location:

XIOS/dev/dev_olga

Files:

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

XIOS/dev/dev_olga/src/interface/fortran/idata.F90

@@ -7 +7 @@
    INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99
 
-      SUBROUTINE  cxios_init_server() BIND(C)
+      SUBROUTINE  cxios_init_server(server_level) BIND(C)
+         USE ISO_C_BINDING
+         INTEGER  (kind = C_INT)    , VALUE         :: server_level
       END SUBROUTINE cxios_init_server
 
@@ -451 +453 @@
    CONTAINS ! Fonctions disponibles pour les utilisateurs.
 
-   SUBROUTINE  xios(init_server)()
-   IMPLICIT NONE
-     CALL cxios_init_server()
+   SUBROUTINE  xios(init_server)(server_level)
+   IMPLICIT NONE
+       INTEGER  (kind = C_INT), INTENT(IN)         :: server_level
+       CALL cxios_init_server(server_level)
    END SUBROUTINE xios(init_server)