trAvis - MANAGER

Edit File: 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