测试OpenMPI示例
1 显示Openmpi1.4 目录树
$ tree -ACd | tee log.tree
.
├── bin
├── etc
├── examples
├── include
│ ├── openmpi
│ │ └── ompi
│ │ └── mpi
│ │ └── cxx
│ └── vampirtrace
├── lib
│ └── openmpi
└── share
├── man
│ ├── man1
│ ├── man3
│ └── man7
├── openmpi
│ ├── amca-param-sets
│ └── doc
└── vampirtrace
└── doc
├── opari
└── otf
23 directories
1.1 显示子目录bin
$ tree bin -AC | tee log.bin.tree
bin
├── mpiCC -> opal_wrapper
├── mpiCC-vt -> opal_wrapper
├── mpic++ -> opal_wrapper
├── mpic++-vt -> opal_wrapper
├── mpicc -> opal_wrapper
├── mpicc-vt -> opal_wrapper
├── mpicxx -> opal_wrapper
├── mpicxx-vt -> opal_wrapper
├── mpiexec -> orterun
├── mpif77 -> opal_wrapper
├── mpif77-vt -> opal_wrapper
├── mpif90 -> opal_wrapper
├── mpif90-vt -> opal_wrapper
├── mpirun -> orterun
├── ompi-clean -> orte-clean
├── ompi-iof -> orte-iof
├── ompi-ps -> orte-ps
├── ompi-server
├── ompi_info
├── opal_wrapper
├── opari
├── orte-clean
├── orte-iof
├── orte-ps
├── orted
├── orterun
├── otfaux
├── otfcompress
├── otfconfig
├── otfdecompress -> otfcompress
├── otfdump
├── otfinfo
├── otfmerge
├── vtcc
├── vtcxx
├── vtf77
├── vtf90
├── vtfilter
└── vtunify
0 directories, 39 files
1.2 显示子目录examples
$ tree examples -AC | tee log.examples.tree
examples
├── Makefile
├── Makefile.include
├── README
├── connectivity_c
├── connectivity_c.c
├── hello_c
├── hello_c.c
├── hello_cxx
├── hello_cxx.cc
├── hello_f77
├── hello_f77.f
├── hello_f90.f90
├── ring_c
├── ring_c.c
├── ring_cxx
├── ring_cxx.cc
├── ring_f77
├── ring_f77.f
└── ring_f90.f90
0 directories, 19 files
2 进入示例目录
$ cd examples
2.1 编译hello_f90 文件
$ ../bin/mpif90 -o hello_f90 hello_f90.f90
2.2 显示生成的hello_f90
$ tree
.
|-- Makefile
|-- Makefile.include
|-- README
|-- connectivity_c
|-- connectivity_c.c
|-- hello_c
|-- hello_c.c
|-- hello_cxx
|-- hello_cxx.cc
|-- hello_f77
|-- hello_f77.f
|-- hello_f90
|-- hello_f90.f90
|-- ring_c
|-- ring_c.c
|-- ring_cxx
|-- ring_cxx.cc
|-- ring_f77
|-- ring_f77.f
`-- ring_f90.f90
0 directories, 20 files
2.3 使用mpirun 运行hello_f90
$ ../bin/mpirun -np 5 hello_f90
Hello, world, I am 0 of 5
Hello, world, I am 1 of 5
Hello, world, I am 3 of 5
Hello, world, I am 2 of 5
Hello, world, I am 4 of 5
3 附源代码hello_f90.f90
! hello_f90.f90
program main
use mpi
implicit none // 取消隐士声明
integer :: ierr, rank, size
call MPI_INIT (ierr)
call MPI_COMM_RANK (MPI_COMM_WORLD, rank, ierr)
call MPI_COMM_SIZE (MPI_COMM_WORLD, size, ierr)
print *, "Hello, world, I am ", rank, " of ", size
call MPI_FINALIZE (ierr)
end