High Performance Computing 1
Timing
if (myid .eq. 0) then
print *, 'pi is ', pi, ' Error
is', abs(pi - PI25DT)
print *, 'time is ',
endtime-starttime, ' seconds'
endif
goto 10
30call MPI_FINALIZE(ierr)
stop
end