source:
XIOS2/xios_training/hands-on-1/TP_src/test_tp1.f90
@
2550
Last change on this file since 2550 was 2046, checked in by ymipsl, 4 years ago | |
---|---|
File size: 319 bytes |
Line | |
---|---|
1 | PROGRAM test_tp1 |
2 | |
3 | IMPLICIT NONE |
4 | INCLUDE "mpif.h" |
5 | INTEGER :: rank |
6 | INTEGER :: size |
7 | INTEGER :: ierr |
8 | |
9 | CALL MPI_INIT(ierr) |
10 | |
11 | CALL MPI_COMM_RANK(MPI_COMM_WORLD,rank,ierr) |
12 | CALL MPI_COMM_SIZE(MPI_COMM_WORLD,size,ierr) |
13 | |
14 | print*, "Hello XIOS from proc", rank |
15 | |
16 | CALL MPI_FINALIZE(ierr) |
17 | |
18 | END PROGRAM test_tp1 |
19 | |
20 | |
21 | |
22 | |
23 |
Note: See TracBrowser
for help on using the repository browser.