Commit 63b4cc59 authored by ulrich_y's avatar ulrich_y

toinum: if arg cmplx, change i0 accordingly

parent 4b18fe2b
......@@ -57,6 +57,9 @@ CONTAINS
endif
do i=1,size(z)
toinum_cmplx(i) = inum(z(i), ss)
if (abs(aimag(z(i)))>zero) then
toinum_cmplx(i)%i0 = int(sign(1._prec, aimag(z(i))),1)
endif
enddo
END FUNCTION TOINUM_cmplx
......
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