Fortran读入数据后怎么把数据存到不同的文件里
我有四类数据存入一个文件夹,前两个分别是300,301;后两个分别是301x3和300x2的矩阵,然后现在要读出分别用各自的文件夹存储。。求教怎么破。。。。。。...
我有四类数据存入一个文件夹,前两个分别是300,301;后两个分别是301x3和300x2的矩阵,然后现在要读出分别用各自的文件夹存储。。求教怎么破。。。。。。
展开
1个回答
推荐于2017-09-19
展开全部
open(11,file='**.**') ! 要读取的文件
open(12,file='**.**') !存储第一类数据的文件
open(13,file='**.**') !存储第二类数据的文件
open(14,file='**.**') !存储第三类数据的文件
open(15,file='**.**') !存储第四类数据的文件
do i=1,300
read(11,*) x
write(12,*) x
end do
close(12)
do i=301,601
read(11,*) x
write(13,*) x
end do
close(13)
do i=602,902
read(11,*) x,y,z
write(14,*) x,y,z
end do
close(14)
do i=903,1202
read(11,*) x,y,z
write(15,*) x,y,z
end do
close(15)
close(11)
stop
end
open(12,file='**.**') !存储第一类数据的文件
open(13,file='**.**') !存储第二类数据的文件
open(14,file='**.**') !存储第三类数据的文件
open(15,file='**.**') !存储第四类数据的文件
do i=1,300
read(11,*) x
write(12,*) x
end do
close(12)
do i=301,601
read(11,*) x
write(13,*) x
end do
close(13)
do i=602,902
read(11,*) x,y,z
write(14,*) x,y,z
end do
close(14)
do i=903,1202
read(11,*) x,y,z
write(15,*) x,y,z
end do
close(15)
close(11)
stop
end
更多追问追答
追问
追答
x, y, z是 变量。如果你的数据是整数的话,那么设定x,y,z为整数,如果是实数的话,那么设定x,y,z为实数。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询