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

fortran95的,这应该很清楚了吧,多个数据就加个逗号,你试试吧,我也是学fortran不久,买本书来参考比较好

不是很确定你在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

用全绝对路径来指定程序的位置,例如 program main USE DFLIB LOGICAL(4) result result = SYSTEMQQ('c:\windows\winhelp.exe') end program 但是这里要注意的是必须use dflib模块。

PROGRAM MAIN IMPLICIT NONE INTEGER :: I, J=0 REAL::V(3)=0 REAL::RSV DO I=100,200,50 RSV=2*28.3/(250*I) J=J+1 V(J)=RSV-0.00127 END DO WRITE(*,*)MAXVAL(V),I END PROGRAM MAIN

我是在与linux的电脑相连接的shell里运行的,要运行一个主程序,这个主程序里面调用了很多子程序,而这些子程序并没有写在主程序里,每个子程序都有一个独立的.f文件,我想问一下具体的步骤是怎样的,听说还要Makefile文件,我有这个文件,但是...

修改下设置就行 菜单栏 -> 工具(Tools) -> 选项(Options) (图片来源:Fortran Coder QQ群)

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