source: XIOS/xios_training/hands-on-1/TP_src/test_tp1.f90 @ 2046

Last change on this file since 2046 was 2046, checked in by ymipsl, 3 years ago
File size: 319 bytes
Line 
1PROGRAM 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
18END PROGRAM test_tp1
19
20
21
22
23
Note: See TracBrowser for help on using the repository browser.