24小时热门版块排行榜

返回列表

lijunjiexm

铁虫 (小有名气)

应助: 0 (幼儿园)
金币: 22.8
红花: 1
帖子: 182
在线: 87.1小时
虫号: 1198843
注册: 2011-02-03
专业: 常微分方程与动力系统

[求助] 请教一个调用数据文件的程序问题，谢谢

主程序是
program main
  implicit none
  real, parameter :: PI=3.14159
  real radius
  open(1,FILE='..\ans0402.ra')
  read(1,*) radius
write(*,"(' 面积='f8.3)" ) radius*radius*PI
end program

目的想在程序所在目录下调用radius的数值文件anso402.ra,该文件只有一个数值0.2。直接在conpaq VF6.0下运行程序，出现错误：（请帮忙看一下，谢谢！）

[ Last edited by lijunjiexm on 2011-8-6 at 00:09 ]

回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

请教如何调用Module里面的函数，谢谢已经有6人回复
两幅图像的曲线如何合并到一块！？已经有29人回复
【求助】用fortran怎么描述下面这样的情况，我是新手，请大家帮忙已经有8人回复
【求助】只是优化后文件，没有restart文件，能继续跑吗已经有22人回复
【交流】VC++, C#, VB答疑专贴已经有145人回复
【交流】Fortran语言答疑专帖已经有157人回复

1楼 2011-08-06 00:07:08

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

【答案】应助回帖

★ ★
lijunjiexm(金币+10): 非常感谢，对这个更清楚了些 2011-08-06 10:38:25
jjdg(金币+2): 感谢参与 2011-08-06 15:30:50

我用 gfortran，表示需要将
open(1,FILE='..\ans0402.ra')
改为
open(1,FILE='../ans0402.ra')

当然，这主要是因为 gfortran 可能起源于 Linux 下的缘故……

你试着将 ans0402.ra 放在当前源程序所在目录，然后，直接
open(1,FILE='ans0402.ra') 看看会不会有问题……

赞一下(1人)

回复此楼

2楼2011-08-06 08:40:58

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

lijunjiexm

铁虫 (小有名气)

应助: 0 (幼儿园)
金币: 22.8
红花: 1
帖子: 182
在线: 87.1小时
虫号: 1198843
注册: 2011-02-03
专业: 常微分方程与动力系统

★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-08-21 14:00:19

恩，您说的在linux是改成open(1,FILE='../ans0402.ra')，windows改成open(1,FILE='具体路径\ans0402.ra')，或者说如果换成把ans0402.ra 放在当前源程序所在目录，然后，直接
open(1,FILE='ans0402.ra'）这样也是可以的。如果文件路径不在当前目录，路径太长怎么办呢？有什么换行符号呢，我比较感兴趣的是f77的换行或者Fixed format的换行

赞一下(1人)

回复此楼

3楼2011-08-06 10:37:53

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖