Commit b09ab7ca authored by thomas.forbriger's avatar thomas.forbriger

calex [FEATURE]: print final system parameters a second time

When calibrating air-locks at BFO the filter period is in the range of
days. The value then to be displayed does not fit in the standard output
format.
parent ab4b21f8
......@@ -139,6 +139,10 @@ c use nas_systemc
c
c 11.10.2016: support UNIX path names for eing and ausg
c
c 03.07.2020: print final system parameters a second time
c with exponential format optionally (needed when
c calibrating response of air-lock at BFO)
c
c ----------------------------------------------------------------------
c
c definition of bp2 response
......@@ -314,6 +318,7 @@ c note: from now on (init=0) sum from quadr will be the misfit
write(4,104) iter,dsqrt(q),(x00(k),k=1,m)
endif
104 format(i5,6(1x,f11.6)/(17x,5(1x,f11.6)))
107 format(i5,6(1x,g11.6)/(17x,5(1x,g11.6)))
106 format(i5,6(1x,f11.6))
write(6,105) (r00(k),k=1,m)
write(4,105) (r00(k),k=1,m)
......@@ -361,6 +366,8 @@ c Parameter corrections are relative to the search interval, rho.
write(4,103) (nam(k),k=1,m)
write(6,104) iter,dsqrt(q),(x00(k)+r00(k)*x(k),k=1,m)
write(4,104) iter,dsqrt(q),(x00(k)+r00(k)*x(k),k=1,m)
write(6,107) iter,dsqrt(q),(x00(k)+r00(k)*x(k),k=1,m)
write(4,107) iter,dsqrt(q),(x00(k)+r00(k)*x(k),k=1,m)
write(6,108) mq,endtxt
write(4,108) mq,endtxt
108 format(/' QUAD called',i5,' times: ',a)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment