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...

你好! 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...

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

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

用返回值也可以,用虚参传递也可以。 比如以下例子:func1 用返回值,sub2 用虚参。 Program Baidu_Thlws real a(3,3) , b(3,3) a = 1.0 b = func1( a ) write( * , * ) 'first' , b b = 0.0 call sub2( a , b ) write( * , * ) 'second' , b Co...

do j=1,6 a1(:)=a(:,j) counter=count(a1/=0) i=1 do while ( i0 then b(i,j)=k i=i+1 endif enddo enddo enddo

1.基本使用: 一维数组: datatype name (size) datatype: integer, real, complex, logical,或type自定义出来的类型。 integer, parameter :: students = 5 integer :: student (students) 其他定义方法: integer a(10) !最简单的 integer, di...

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...

Fortran 数组是列优先的。即先存储前面的维度。 一个3*3二维数组,在内存中是: 1 2 3 4 5 6 7 8 9 Fortran访问时,给他们命名为a(1,1),a(2,1),a(3,1)...a(1,2),a(2,2),a(3,2)...a(1,3),a(2,3),a(3,3) 因而,a(2,3)=8

write (10,200) ((A(I,J),J=1,M),I=1,N) 200 FORMAT (1X, ?M?F10.3) 其中?M?用你取的m值代替,如果是整型就把它后面的f 改成i

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