| 查看: 738 | 回复: 1 | |||
[求助]
fortran程序求助
|
|
本人对fortran是新手，没有学习多久，现在有一个数据我想对它进行处理选择一些我想要的数据 program dajiahao real*8 x,y integer n open(unit=1,file='e:\mg\2000\data\8dip\one.dat') open(unit=2,file='e:\mg\2000\data\8dip\two.dat') do while(.not.eof(1)) read(1,*)x y=1/x if0.1<y.and.y<0.2write(2,*)y,x close(1) close(2) end 如上所述，我读取one.dat文件中数据，将大小范围在0.1和0.2之间的数取得并且将写入到two.dat文件中， 现在我想让这个范围是一个变化的范围，比如 改成 if 0.1*(n+1)<y.and.y<0.2*(n+3)write(2,*)y,x 这里的n取整数，我想应该是加一个循环进去，可是加来家去也没有弄出来，请给为fortran学习者指教。 在这里先感谢大家，谢谢。 |
回复此楼» 猜你喜欢
求助:我三月中下旬出站，青基依托单位怎么办？
已经有11人回复
-
不自信的我
已经有12人回复
-
假如你的研究生提出不合理要求
已经有5人回复
-
所感
已经有4人回复
-
论文终于录用啦！满足毕业条件了
已经有28人回复
-
要不要辞职读博？
已经有7人回复
-
北核录用
已经有3人回复
-
实验室接单子
已经有3人回复
-
磺酰氟产物，毕不了业了！
已经有8人回复
-
26申博（荧光探针方向，有机合成）
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求助：用Fortran写一个关于晶粒个数统计和编号的程序。卡了我好久了。
已经有4人回复
- 求助：intel visual fortran的格式问题
已经有14人回复
- fortran输出求助
已经有6人回复
- 急求fortran运行错误原因，在线等
已经有7人回复
- 又来求助啦，fortran里使用多文件，其中的子程序文件怎么观察参数值啊？
已经有3人回复
- FORTRAN新手 求助主程序循环问题
已经有10人回复
- Fortran 编译问题
已经有9人回复
- 关于Fortran程序运行的求助
已经有2人回复
- 求助Fortran编程
已经有8人回复
- 【求助】fortran求解矩阵
已经有7人回复
- 【求助】如何写FORTRAN程序实现求平均最近邻距离
已经有34人回复
- 【求助】FORTRAN写文件时每行开头都多了一个空格？
已经有6人回复
- 【求助】FORTRAN读取文本文件
已经有9人回复
- 【求助】用fortran怎么描述下面这样的情况，我是新手，请大家帮忙
已经有8人回复
- 【求助】初学fortran，
已经有15人回复
- 【求助】请问一下fortran的可视化编程
已经有7人回复
- 【求助】用fortran解矩阵问题【已解决】
已经有5人回复
- 【求助】fortran中怎么存储不确定长度的数据【已完结】
已经有6人回复
- 【求助】Fortran程序，如何让exe文件可以单独运行？
已经有6人回复
- 【求助】如何实现编写的fortran程序让别人使用，但不让别人知道源代码
已经有6人回复
【答案】应助回帖
★ ★ ★ ★ ★
zl2013: 金币+5, ★有帮助, 谢谢 2013-11-22 08:56:11
zl2013: 金币+5, ★有帮助, 谢谢 2013-11-22 08:56:11
|
program dajiahao real*8 x,y integer n open(unit=1,file='e:\mg\2000\data\8dip\one.dat') open(unit=2,file='e:\mg\2000\data\8dip\two.dat') do while(.not.eof(1)) read(1,*)x y=1/x if0.1<y.and.y<0.2write(2,*)y,x end ！Files should be closed at the end close(1) close(2) 下面的更规范些: if 0.1*((Real)n+1.0)<y.and.y<0.2*((Real)n+3.0)write(2,*)y,x |
2楼2013-11-21 16:46:57