以下是主程序
program main
implicit none
integer I,J,K
real::SC(49),FT(7,7)
open(unit = 5, file='cos2.txt',status='old')
read(unit = 5, fmt = *) sc
do I=1,7
do J=1,7
K=(I-1)*7+J
FT(I,J)=SC(K)
END DO
end do
open(unit=10,file='acos2.txt',status='new')
Do I=1,7
write(unit=10,fmt =100)FT(I,1:7)
end do
100 format(1X,A21,2X,A21,2X,A21,2X,A21,2X,A21,2X,A21,2X,A21)
close(5)
pause
stop      
end program main

以下是cos2.txt文件中的内容，我的目的是把49列1行的数据，转换成7行7列的数据
cos(0.5)*0.00151334 
cos(2.5)*0.00183134 
cos(4.5)*0.00245431 
cos(6.5)*0.00273046 
cos(8.5)*0.00221413 
cos(10.5)*0.00153141 
cos(12.5)*0.00104741 
cos(14.5)*0.00074342 
cos(16.5)*0.00055051 
cos(18.5)*0.00042303 
cos(20.5)*0.00033510 
cos(22.5)*0.00027209 
cos(24.5)*0.00022544 
cos(26.5)*0.00018994 
cos(28.5)*0.00016229 
cos(30.5)*0.00014033 
cos(32.5)*0.00012259 
cos(34.5)*0.00010805 
cos(36.5)*0.00009597 
cos(38.5)*0.00008583 
cos(40.5)*0.00007723 
cos(42.5)*0.00006987 
cos(44.5)*0.00006353 
cos(46.5)*0.00005801 
cos(48.5)*0.00005319 
cos(50.5)*0.00004895 
cos(52.5)*0.00004520 
cos(54.5)*0.00004187 
cos(56.5)*0.00003890 
cos(58.5)*0.00003623 
cos(60.5)*0.00003383 
cos(62.5)*0.00003166 
cos(64.5)*0.00002970 
cos(66.5)*0.00002791 
cos(68.5)*0.00002628 
cos(70.5)*0.00002479 
cos(72.5)*0.00002342 
cos(74.5)*0.00002217 
cos(76.5)*0.00002101 
cos(78.5)*0.00001994 
cos(80.5)*0.00001895 
cos(82.5)*0.00001804 
cos(84.5)*0.00001718 
cos(86.5)*0.00001639 
cos(88.5)*0.00001565 
cos(90.5)*0.00001496 
cos(92.5)*0.00001432 
cos(94.5)*0.00001371 
cos(96.5)*0.00001315