subroutine data_saveA3_C(pname,Y1,order,wspace)
integer :: Ny1,Ny2,Ny3
integer :: i1,i2,i3
character(len=*) :: pname
complex(8),dimension(:,:,:) :: Y1
character(len=*),optional :: order
logical,optional :: wspace
character(len=1) :: order_
logical :: wspace_
order_ = "R" ; if(present(order))order_=trim(order(1:1))
wspace_= .true.; if(present(wspace))wspace_=wspace
!
open(free_unit(unit),file=reg(pname))
!
Ny1=size(Y1,1)
Ny2=size(Y1,2)
Ny3=size(Y1,3)
!
select case(order_)
case default
stop "save_array: order != Row-major, Col-major"
case ("R")
do i1=1,Ny1
do i2=1,Ny2
do i3=1,Ny3
write(unit,*)Y1(i1,i2,i3)
enddo
if(wspace_)write(unit,*)
enddo
enddo
case ("C")
do i3=1,Ny3
do i2=1,Ny2
do i1=1,Ny1
write(unit,*)Y1(i1,i2,i3)
enddo
if(wspace_)write(unit,*)
enddo
enddo
end select
close(unit)
call file_gzip(reg(pname))
end subroutine data_saveA3_C