From f1064260871312235e5165abaf96649b8e800253 Mon Sep 17 00:00:00 2001
From: Xin Li <lxin@kth.se>
Date: Fri, 6 Jul 2018 20:19:00 +0200
Subject: [PATCH] added error checking in fortran
---
intro_lab/solutions/pi_loop.f90 | 3 ++-
intro_lab/solutions/pi_spmd_final.f90 | 3 ++-
intro_lab/solutions/pi_spmd_simple.f90 | 3 ++-
3 files changed, 6 insertions(+), 3 deletions(-)
diff --git a/intro_lab/solutions/pi_loop.f90 b/intro_lab/solutions/pi_loop.f90
index 91f5d83..286da85 100755
--- a/intro_lab/solutions/pi_loop.f90
+++ b/intro_lab/solutions/pi_loop.f90
@@ -48,7 +48,8 @@ do num_threads = 1, MAX_THREADS
pi = step * raw_sum
run_time = OMP_GET_WTIME() - start_time
- print '(" pi is ", f12.6, " in ", f12.6, " seconds and ", i0, " threads")', pi, run_time, num_threads
+ print '(" pi is ", f12.6, " in ", f12.6, " seconds and ", i0, " threads. Error = ", e15.6)', &
+ pi, run_time, num_threads, abs(3.14159265358979323846D0 - pi)
enddo
diff --git a/intro_lab/solutions/pi_spmd_final.f90 b/intro_lab/solutions/pi_spmd_final.f90
index f21b2ea..571a32d 100755
--- a/intro_lab/solutions/pi_spmd_final.f90
+++ b/intro_lab/solutions/pi_spmd_final.f90
@@ -58,7 +58,8 @@ do num_threads = 1, MAX_THREADS
pi = step * full_sum
run_time = OMP_GET_WTIME() - start_time
- print '(" pi is ", f12.6, " in ", f12.6, " seconds and ", i0, " threads")', pi, run_time, num_threads
+ print '(" pi is ", f12.6, " in ", f12.6, " seconds and ", i0, " threads. Error = ", e15.6)', &
+ pi, run_time, num_threads, abs(3.14159265358979323846D0 - pi)
enddo
diff --git a/intro_lab/solutions/pi_spmd_simple.f90 b/intro_lab/solutions/pi_spmd_simple.f90
index 737ca1b..eb87ddf 100755
--- a/intro_lab/solutions/pi_spmd_simple.f90
+++ b/intro_lab/solutions/pi_spmd_simple.f90
@@ -59,7 +59,8 @@ do num_threads = 1, MAX_THREADS
pi = step * full_sum
run_time = OMP_GET_WTIME() - start_time
- print '(" pi is ", f12.6, " in ", f12.6, " seconds and ", i0, " threads")', pi, run_time, num_threads
+ print '(" pi is ", f12.6, " in ", f12.6, " seconds and ", i0, " threads. Error = ", e15.6)', &
+ pi, run_time, num_threads, abs(3.14159265358979323846D0 - pi)
enddo
--
GitLab