Commit 8ee7e17a authored by Pavel Kus's avatar Pavel Kus

minor unification, leaving different path for real

parent 6732a5e2
......@@ -495,14 +495,10 @@
&PRECISION &
(obj, ab(2,na_s-n_off), vnorm2, hf, tau, wantDebug)
#if REALCASE == 1
hv(1) = CONST_1_0
hv(1) = 1.0_rck
hv(2:n) = ab(3:n+1,na_s-n_off)*hf
#if REALCASE == 1
endif
#endif
#if COMPLEXCASE == 1
hv(1) = CONST_COMPLEX_1_0
hv(2:n) = ab(3:n+1,na_s-n_off)*hf
#endif
d(istep) = ab(1,na_s-n_off)
e(istep) = ab(2,na_s-n_off)
......
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