subroutine splotM_IC(pname,X,Y1,Y2,append)
integer :: i,j,Ny1,Ny2
character(len=*) :: pname
complex(8),dimension(:,:) :: Y1
complex(8),dimension(size(Y1,1),size(Y1,2)),optional :: Y2
integer,dimension(size(Y1,2)) :: X
logical,optional :: append
logical :: check,rw
rw=.false.;if(present(append))rw=append
Ny1=size(Y1,1) ; Ny2=size(Y1,2)
open(719,file=adjustl(trim(pname)))
if(present(Y2))then
do i=1,Ny1
do j=1,Ny2
write(719,"(I15,4(F21.12))")X(j),dimag(Y1(i,j)),dreal(Y1(i,j)),&
dimag(Y2(i,j)),dreal(Y2(i,j))
enddo
write(719,*)""
enddo
else
do i=1,Ny1
do j=1,Ny2
write(719,*)X(j),dimag(Y1(i,j)),dreal(Y1(i,j))
enddo
write(719,*)""
enddo
endif
close(719)
end subroutine splotM_IC