| Server IP : 157.22.201.140 / Your IP : 216.73.216.150 Web Server : nginx/1.30.1 System : Linux mit.vincode.fvds.ru 6.8.0-111-generic #111-Ubuntu SMP PREEMPT_DYNAMIC Sat Apr 11 23:16:02 UTC 2026 x86_64 User : root ( 0) PHP Version : 8.3.6 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : OFF Directory : /usr/share/cmake-3.28/Modules/FindMPI/ |
Upload File : |
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