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 |