From 11daf76e1a3f6e315f53da32e787964e62ad2b16 Mon Sep 17 00:00:00 2001
From: Wojtek Kosior <kwojtus@protonmail.com>
Date: Wed, 3 Jul 2019 21:46:18 +0200
Subject: also print the error of numerical result

---
 src/main.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/main.f90 b/src/main.f90
index e49603e..9bda2df 100644
--- a/src/main.f90
+++ b/src/main.f90
@@ -119,7 +119,8 @@ PROGRAM integrator
      GOTO 1
   END IF
   
-  if (this_image() == 1) write (*,*) val
+  if (this_image() == 1) write (*,'(es21.14," ",es21.14)')        &
+       val, abs(val - analytical_int(ibeg, iend))
 
   1 if (this_image() == 1 .and. .not. isok) write(*,*) trim(errmsg)
   
-- 
cgit v1.2.3