8 lines
300 B
Fortran
8 lines
300 B
Fortran
|
program mpi_ver
|
||
|
|
@MPI_Fortran_INCLUDE_LINE@
|
||
|
|
character(len=MPI_MAX_LIBRARY_VERSION_STRING) :: mpilibver_str
|
||
|
|
integer(kind=MPI_INTEGER_KIND) :: ierror, reslen
|
||
|
|
call MPI_GET_LIBRARY_VERSION(mpilibver_str, reslen, ierror)
|
||
|
|
print *, mpilibver_str
|
||
|
|
end program mpi_ver
|