source:
XIOS/xios_training/hands-on-1/TP_src/test_tp1.f90
@
2374
Last change on this file since 2374 was 2046, checked in by ymipsl, 3 years ago | |
---|---|
File size: 319 bytes |
Rev | Line | |
---|---|---|
[2046] | 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.