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

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

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

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

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

Don't try so hard, the best things come when you least expect them to.

a=year/4.0 b=year/100.0 c=year/400.0 默认整型计算 加.0才是实型运算

integer,parameter:: n=100 real x(n) x=0.0 open(11,file='a.txt') do i=1,n read(11,*) x(i) end do close(11) 其中: n 是你数据个数 a.txt 是你存的数据的文件名

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