Question

一个fortran读取文件的问题

问题很简单，在一个文件里面，有一个增广矩阵（见图片），如何通过fortran程序让这个矩阵读取进来，并且前面3*3读取为一个二维数组a(3,3) 最后一列读取为一维数组b(3)。 求教，谢谢额

Answer 1

Program Baidu_Thlws
Implicit None
Real :: a( 3 , 3 ) , b( 3 )
integer i
Open( 12 , File = '文件名' )

Do i = 1 , 3
Read( 12 , * ) a( : , i ) , b( i )
End Do
Close( 12 )
End Program Baidu_Thlws