Commit 599c3c26 authored by Gregor Michalicek's avatar Gregor Michalicek

Bugfix: Use complex arrays in complex packed_to_full call

parent 0d424729
......@@ -64,10 +64,10 @@ CONTAINS
call packed_to_full(nsize,b_r,largeb_r)
DEALLOCATE (b_r)
ELSE
call packed_to_full(nsize,a_r,largea_r)
DEALLOCATE (a_r)
call packed_to_full(nsize,b_r,largeb_r)
DEALLOCATE (b_r)
call packed_to_full(nsize,a_c,largea_c)
DEALLOCATE (a_c)
call packed_to_full(nsize,b_c,largeb_c)
DEALLOCATE (b_c)
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