Changeset 1054 for XIOS/dev/dev_olga/src/interface
- Timestamp:
- 02/17/17 19:51:36 (7 years ago)
- Location:
- XIOS/dev/dev_olga/src/interface
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_olga/src/interface/c/icdata.cpp
r983 r1054 47 47 } 48 48 49 void cxios_init_server( int server_level)50 { 51 CXios::initServerSide( server_level);49 void cxios_init_server(void) 50 { 51 CXios::initServerSide(); 52 52 } 53 53 -
XIOS/dev/dev_olga/src/interface/fortran/idata.F90
r983 r1054 7 7 INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99 8 8 9 SUBROUTINE cxios_init_server(server_level) BIND(C) 10 USE ISO_C_BINDING 11 INTEGER (kind = C_INT) , VALUE :: server_level 9 SUBROUTINE cxios_init_server() BIND(C) 10 USE ISO_C_BINDING 12 11 END SUBROUTINE cxios_init_server 13 12 … … 453 452 CONTAINS ! Fonctions disponibles pour les utilisateurs. 454 453 455 SUBROUTINE xios(init_server)(server_level) 456 IMPLICIT NONE 457 INTEGER (kind = C_INT), INTENT(IN) :: server_level 458 CALL cxios_init_server(server_level) 454 SUBROUTINE xios(init_server)() 455 IMPLICIT NONE 456 CALL cxios_init_server() 459 457 END SUBROUTINE xios(init_server) 460 458
Note: See TracChangeset
for help on using the changeset viewer.