diff options
| author | Wojtek Kosior <kwojtus@protonmail.com> | 2019-07-03 21:46:18 +0200 |
|---|---|---|
| committer | Wojtek Kosior <kwojtus@protonmail.com> | 2019-07-03 21:46:18 +0200 |
| commit | 11daf76e1a3f6e315f53da32e787964e62ad2b16 (patch) | |
| tree | 9094e9aae8e039668a5706b985aeb5729cf00263 | |
| parent | 72ca4af0f99fbce82d143b99649669923b4b1161 (diff) | |
| download | fortran-assignment3-11daf76e1a3f6e315f53da32e787964e62ad2b16.tar.gz fortran-assignment3-11daf76e1a3f6e315f53da32e787964e62ad2b16.zip | |
also print the error of numerical result
| -rw-r--r-- | src/main.f90 | 3 |
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) |