sdrb.net
当前位置:首页 >> FortrAn 获取数组 >>

FortrAn 获取数组

Program Baidu_Thlws Implicit None Real :: a( 120 , 120 ) Integer :: i Open( 12 , File = '输入文件' ) Open( 13 , File = '输出文件' ) Read( 12 , * ) a Do i = 1 , 120 Write( 13 , * ) a( : , i ) End Do Close( 13 ) Close( 12 ) End P...

这是一个基本操作。如果你这么问,我建议你系统的阅读一本教科书。 以下是通用的格式: Open( 12 , File = 文件名 ) Read( 12 , * ) 数组 Close( 12 ) 但具体你的文件是什么样子,是文本文件,还是二进制文件?文本文件是成列的,还是成块的?数...

报错的理由是end of file 吧? 试试下面的代码: implicit none integer i integer a(9); open(101,file='123.dat'); do i=1,9 read(101,*,end=99)a(i) enddo 99 stop end

首先你要看有多少行多少列。 不妨,按照你的例子,比如有10行,2列 开头写上行数,列数10,2 之后就是你的数组 然后代码如下: program mainimplicit noneINTEGER m,n,iREAL,ALLOCATABLE:: a(:),b(:)OPEN(8,FILE="a.txt")READ(8,*)m,n !n=2ALLOCA...

program abc123implicit nonecharacter(len=10)::a(5)=(/"afdfdfsd","asfdsfgdg","gfgergdfd","fwegsddfd","fdsgergfs"/) !需要提取字符串的数组character(len=2)::b(5)character(len=10)::xinteger::ido i=1,5x=a(i)b(i)=x(1:2) !提取前两位end...

一般情况下,不建议把数组作为function的返回值。一般的做法是用subroutine,把数组作为参数传递引用。 如果一定要使用function传数组返回值,可以把函数嵌到调用函数中作为一个子函数。 program sub implicit none real :: a(2,2),b(2,2), arr(...

sum函数用法错误,fortran中自带数组求和函数SUM。传入的变量应该是数组的某一段值。也就是说二维数组A(5,3) 求和时要写成sum2 = sum(A(1:5,1:3)).

你好! program a implicit none integer::n real,allocatable,dimension(:)::b open(unit=8,file="a.txt") read(8,*)n allocate(b(n)) read(8,*)b!%把矩阵b读入了 end a.txt 19 44.0000000 44.0000000 44.0000000 44.0000000 44.0000000 44.000...

real S(10) write(*,*) MaxVal( S ) , MinVal( S ) !最大值,最小值 write(*,*) MaxLoc( S ) , MinLoc( S ) !最大值下标,最小值下标

如果是子程序,那么用虚参传回。 如果是module,无需传回。

网站首页 | 网站地图
All rights reserved Powered by www.sdrb.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com