rmml.net
当前位置:首页 >> 请教,FortrAn如何读出文件的行数? >>

请教,FortrAn如何读出文件的行数?

使用一个计数变量用于记录行数,用iostat检查是否出错,如出错则表示read已经到达文件尾,直接跳出并显示行数 例如: program r character (len=100) :: line real :: x(100) integer :: i, n, io open (10, file = 'DATA') n = 0 do read (10, ...

Integer Function GetFileN( iFileUnit ) Implicit None Integer , Intent( IN ) :: iFileUnit Character*(1) :: cDummy GetFileN = 0 Rewind( iFileUnit ) Do Read( iFileUnit , * , End = 999 , Err = 999 ) cDummy GetFileN = GetFileN + 1 E...

program testcimplicit noneinteger ireal b(1827),c(1827),d(1827),e(1827)double precision a(1827)copen(1,file='aa.csv',access='direct',recl=99,form='formatted')open(1,file='aa.csv',status='old')read(1,*)do 5 i=1,3read(1,*)a(i),b(...

COUNT(mask[,dim]) 统计在指定维上满足mask的条件的元素的个数 COUNT(A.EQ.B(I,J))其中A为N维向量,B(I,J)为数组B在I行J列的元素,COUNT函数就是统计满足该条件的元素的个数

不是很确定你在ubuntu下运行的命令是什么,但编译后如果没有特定指出可执行文件的名称的话,应该就是a.out(应该在源代码所在的文件夹下).如果想看运行结果的话,之需要在命令行输入a.out(或者./a.out)即可。希望能对你的问题有帮助

dimension x(25,3)open(8,file='ansys.in',status='old')do 10 i=1,25read(8,*)a,(x(i,j),j=1,3)10continueclose(8)write(*,'(1x,3f10.5)')((x(i,j),j=1,3),i=1,25)stopend

c或C

你需要一个编译器。 用编译器编译,然后链接。 即可得到可执行文件,exe

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

首先你要知道你的这一堆代码,是使用什么书写的,是否有运行平台的限定? 然后在相关的平台上寻找 make.exe,执行后会自动编译链接。 如果你不擅长使用 make,一定要用IDE来处理整个工程,那么你需要把相关的源代码文件都添加到工程中。

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