program mpi_ver | |
@MPI_Fortran_INCLUDE_LINE@ | |
integer(kind=kind(MPI_VERSION)), parameter :: zero = ichar('0') | |
character, dimension(17), parameter :: mpiver_str =& | |
(/ 'I', 'N', 'F', 'O', ':', 'M', 'P', 'I', '-', 'V', 'E', 'R', '[', & | |
char(zero + MPI_VERSION), & | |
'.', & | |
char(zero + MPI_SUBVERSION), ']' /) | |
print *, mpiver_str | |
end program mpi_ver |