Commit 5f0d27a0 authored by Pavel Kus's avatar Pavel Kus

ommiting unnecessary ifdefs

parent 98cf9cb6
......@@ -890,14 +890,9 @@
else !useGPU
vrl = a_mat(1,l_cols)
endif !useGPU
#if REALCASE == 1
call hh_transform_real_&
call hh_transform_complex_&
(vrl, CONST_REAL_0_0, xf, tau(2))
(vrl, CONST_REAL_0_0, xf, tau(2))
e_vec(1) = vrl
a_mat(1,l_cols) = 1. ! for consistency only
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