You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 lines
407 B
Fortran
11 lines
407 B
Fortran
3 weeks ago
|
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
|