aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/main.f903
1 files changed, 2 insertions, 1 deletions
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)