source:
XIOS/dev/common/src/server_main.f90
@
1534
Last change on this file since 1534 was 300, checked in by ymipsl, 12 years ago | |
---|---|
File size: 197 bytes |
Line | |
---|---|
1 | PROGRAM server_main |
2 | USE xios |
3 | IMPLICIT NONE |
4 | INCLUDE "mpif.h" |
5 | INTEGER :: ierr |
6 | |
7 | ! CALL MPI_INIT(ierr) |
8 | CALL xios_init_server |
9 | ! CALL MPI_FINALIZE(ierr) |
10 | END PROGRAM server_main |
Note: See TracBrowser
for help on using the repository browser.