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

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

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函数就是统计满足该条件的元素的个数

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

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

fortran 是编译型语言,不存在“脚本”的说法。 请叫它 fortran代码 使用编译器编译,然后执行既可。 Linux 下可使用 gfortran 编译器

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

c或C

建工程(Project)的时候,选择动态链接库(Win32 Dynamic-Link Library)即可。 如果你用的是Compaq Fortran,新建的方法是 File-》New-》Projects-》Win32 Dynamic-Link Library,建完之后你再通过Source Files-》Add Files to Folder添加你现...

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