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

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

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

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

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