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

Timestamp:

02/17/17 19:51:36 (7 years ago)

Author:

oabramkina

Message:

dev: intermediate commit.

File:

• XIOS/dev/dev_olga/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(server_level) BIND(C)
-         USE ISO_C_BINDING
-         INTEGER  (kind = C_INT)    , VALUE         :: server_level
+      SUBROUTINE  cxios_init_server() BIND(C)
+         USE ISO_C_BINDING
       END SUBROUTINE cxios_init_server
 
@@ -453 +452 @@
    CONTAINS ! Fonctions disponibles pour les utilisateurs.
 
-   SUBROUTINE  xios(init_server)(server_level)
-   IMPLICIT NONE
-       INTEGER  (kind = C_INT), INTENT(IN)         :: server_level
-       CALL cxios_init_server(server_level)
+   SUBROUTINE  xios(init_server)()
+   IMPLICIT NONE
+       CALL cxios_init_server()
    END SUBROUTINE xios(init_server)