diff options
Diffstat (limited to 'src/main.f90')
| -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) |