求大神用fortran编一段代码,将一列数转换成数组然后按固定格式输出,万 ...
发布网友
发布时间：2024-10-03 06:14
共1个回答
热心网友
时间：2024-10-19 21:09
那就简单了。
Program Main
Implicit None
Real :: a( 24 , 15 )
integer :: i
Open( 12 , File = 老文件 )
Open( 13 , File = 新文件 )
Do i = 1 , 15
Read( 12 , * ) a( : , i )
Write( 13 , '(24(e14.5,1x))' ) a( : , i )
End Do
Close( 13 )
Close( 12 )
End Program Main
