| Current Path : /usr/share/cmake/Modules/FindMPI/ |
| Current File : //usr/share/cmake/Modules/FindMPI/mpiver.f90.in |
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