aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorWojtek Kosior <kwojtus@protonmail.com>2019-07-03 21:46:18 +0200
committerWojtek Kosior <kwojtus@protonmail.com>2019-07-03 21:46:18 +0200
commit11daf76e1a3f6e315f53da32e787964e62ad2b16 (patch)
tree9094e9aae8e039668a5706b985aeb5729cf00263 /src
parent72ca4af0f99fbce82d143b99649669923b4b1161 (diff)
downloadfortran-assignment3-11daf76e1a3f6e315f53da32e787964e62ad2b16.tar.gz
fortran-assignment3-11daf76e1a3f6e315f53da32e787964e62ad2b16.zip
also print the error of numerical result
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)