百度作业网求用FORTRAN编的数据处理小程序
来源：学生作业帮 编辑：百度作业网作业帮 分类：综合作业 时间：2024/05/14 11:07:16
求用FORTRAN编的数据处理小程序
用FORTRAN将数据分组,现有5544（6*42*22）个数,要分成6小块文件（6个不同变量）,每块都是（42*22=924个）,最后按6个小块的顺序,每块按一行10个数输出
用FORTRAN将数据分组,现有5544（6*42*22）个数,要分成6小块文件（6个不同变量）,每块都是（42*22=924个）,最后按6个小块的顺序,每块按一行10个数输出
用一个变量就可以了.
输出6个文件还是一个文件?
这个数据按一行10个数输出不方便,可以一行输出22个数或者11个数.
再问： 在一个文件里输出，分成6小组数据，每组都是924个，再将每组924个按一行10个输出，就是92行再多4个数，用嵌套循环编，怎么编？
再答： REAL::A(6,42,22) INTEGER::I,J,K ! ......数据输入过程略 OPEN(12,FILE='SHUJV.TXT') DO I=1,6 WRITE(12,'(A,I2,A)') ' 第',I,'部分：' WRITE(12,'(10F12.2)') ((A(I,J,K),K=1,22),J=1,42) ENDDO CLOSE(12) !...... END
输出6个文件还是一个文件?
这个数据按一行10个数输出不方便,可以一行输出22个数或者11个数.
再问： 在一个文件里输出，分成6小组数据，每组都是924个，再将每组924个按一行10个输出，就是92行再多4个数，用嵌套循环编，怎么编？
再答： REAL::A(6,42,22) INTEGER::I,J,K ! ......数据输入过程略 OPEN(12,FILE='SHUJV.TXT') DO I=1,6 WRITE(12,'(A,I2,A)') ' 第',I,'部分：' WRITE(12,'(10F12.2)') ((A(I,J,K),K=1,22),J=1,42) ENDDO CLOSE(12) !...... END