我有一个复数数组,我想用fortran的write输出成6*6矩阵,format里写什么?
我有一个复数数组,我想用fortran的write输出成6*6矩阵,format里写什么?
parameter(n=6)
dimension a(n,n)
complex ::a
a(1,1)=(1.0,0.0)
a(1,2)=(1.0,2.0)
a(1,3)=(2.0,1.0)
a(1,4)=(0.0,0.0)
a(1,5)=(3.0,0.0)
a(1,6)=(2.0,0.0)
a(2,1)=(1.0,-2.0)
a(2,2)=(2.0,0.0)
a(2,3)=(2.0,0.0)
a(2,4)=(0.0,2.0)
a(2,5)=(0.0,0.0)
a(2,6)=(1.0,0.0)
a(3,1)=(2.0,-1.0)
a(3,2)=(2.0,0.0)
a(3,3)=(3.0,0.0)-w
a(3,4)=(0.0,3.0)
a(3,5)=(0.0,0.0)
a(3,6)=(0.0,0.0)
a(4,1)=(0.0,0.0)
a(4,2)=(0.0,-2.0)
a(4,3)=(0.0,-3.0)
a(4,4)=(0.0,0.0)
a(4,5)=(0.0,0.0)
a(4,6)=(0.0,0.0)
a(5,1)=(-3.0,0.0)
a(5,2)=(0.0,0.0)
a(5,3)=(0.0,0.0)
a(5,4)=(0.0,0.0)
a(5,5)=(0.0,0.0)
a(5,6)=(0.0,0.0)
a(6,1)=(-2.0,0.0)
a(6,2)=(-1.0,0.0)
a(6,3)=(0.0,0.0)
a(6,4)=(0.0,0.0)
a(6,5)=(0.0,0.0)
a(6,6)=(0.0,0.0)
write(*,643) ((a(i,j),j=1,n),i=1,n)
643 format(?)