2 c---------------------------------------------------------------------
3 c---------------------------------------------------------------------
7 c---------------------------------------------------------------------
8 c---------------------------------------------------------------------
10 c---------------------------------------------------------------------
12 c initialize MPI and establish rank and size
14 c This is a module in the MPI implementation of LUSSOR
15 c pseudo application from the NAS Parallel Benchmarks.
17 c---------------------------------------------------------------------
28 c---------------------------------------------------------------------
29 c initialize MPI communication
30 c---------------------------------------------------------------------
31 call MPI_INIT( IERROR )
33 c---------------------------------------------------------------------
34 c establish the global rank of this process
35 c---------------------------------------------------------------------
36 call MPI_COMM_RANK( MPI_COMM_WORLD,
40 c---------------------------------------------------------------------
41 c establish the size of the global group
42 c---------------------------------------------------------------------
43 call MPI_COMM_SIZE( MPI_COMM_WORLD,
49 if (.not. convertdouble) then
50 dp_type = MPI_DOUBLE_PRECISION