First page Back Continue Last page Overview Graphics
Example: PI in Fortran - 3
c node 0 prints the answer
if (myid .eq. 0) then
write(6, 97) pi, abs(pi - PI25DT)
97 format(' pi is approximately: ', F18.16,
+ ' Error is: ', F18.16)
endif
goto 10
30 call MPI_FINALIZE(ierr)
end
Notes: