Commit 548e15e2 authored by Pavel Kus's avatar Pavel Kus

fixing errorneous initialization of integer variable by real constant

parent 8ee7e17a
......@@ -891,12 +891,7 @@
#endif /* WITH_MPI */
! Reset counter and increase destination row
#if REALCASE == 1
hh_cnt(iblk) = CONST_0_0
#endif
#if COMPLEXCASE == 1
hh_cnt(iblk) = 0
#endif
hh_dst(iblk) = hh_dst(iblk)+1
endif
......@@ -1220,12 +1215,7 @@
#endif /* WITH_MPI */
! Reset counter and increase destination row
#if REALCASE == 1
hh_cnt(iblk) = CONST_0_0
#endif
#if COMPLEXCASE == 1
hh_cnt(iblk) = 0
#endif
hh_dst(iblk) = hh_dst(iblk)+1
endif
......
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