用fortran编写一段程序求两个已知矩阵的乘积的转置（采用数组） 谢谢呀

real :: a(3,3) = reshape([6,4,1,9,8,9,3,2,7],[3,3])

real :: b(3,3) = reshape([8,8,6,6,1,3,4,5,9],[3,3])

write(*,'(3(3f7.1,/陵肢))'尺兄世尘中) transpose(matmul(a,b))

end

这段程序是用来对矩阵X进行转置的

INTEGER X（3，3）启型，A变量声明

DATA X/1，2，3，4，5，6，7，8，9/ 数组赋值

x=

1 4 7

2 5 8

3 6 9

DO 10 I=1，3

DO 10 J=I+1，3

A=X（I，J）这3行是对x(i,j)和x(j,i)进行数据交换，A变量临时保存数据

X（I，J）=X（J，I）交换数据迅前

X（J，I）=A

10 CONTINUE

WRITE（*，20）（（X（I，J），J=1，3），I=1，3） 输出

20 FORMAT（1X，3I2）输出格式为悄昌猜每行3个数

输出为

1 2 3

4 5 6

7 8 9

END 程序结束

---