Last change
on this file since 2045 was
2045,
checked in by ymipsl, 3 years ago
|
Add source hand-on and doc for training
YM
|
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.