The Meson Build System
http://mesonbuild.com/
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
21 lines
461 B
21 lines
461 B
program mpitest |
|
implicit none |
|
include 'mpif.h' |
|
logical :: flag |
|
integer :: ier |
|
call MPI_Init(ier) |
|
if (ier /= 0) then |
|
print *, 'Unable to initialize MPI: ', ier |
|
stop 1 |
|
endif |
|
call MPI_Initialized(flag, ier) |
|
if (ier /= 0) then |
|
print *, 'Unable to check MPI initialization state: ', ier |
|
stop 1 |
|
endif |
|
call MPI_Finalize(ier) |
|
if (ier /= 0) then |
|
print *, 'Unable to finalize MPI: ', ier |
|
stop 1 |
|
endif |
|
end program mpitest
|
|
|