libver_mpi.f90.in 300 B

1234567
  1. program mpi_ver
  2. @MPI_Fortran_INCLUDE_LINE@
  3. character(len=MPI_MAX_LIBRARY_VERSION_STRING) :: mpilibver_str
  4. integer(kind=MPI_INTEGER_KIND) :: ierror, reslen
  5. call MPI_GET_LIBRARY_VERSION(mpilibver_str, reslen, ierror)
  6. print *, mpilibver_str
  7. end program mpi_ver