24小时热门版块排行榜    

查看: 609  |  回复: 4

lijunjiexm

铁虫 (小有名气)

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

主程序是
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 ]
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★
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') 看看会不会有问题……
2楼2011-08-06 08:40:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lijunjiexm

铁虫 (小有名气)


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的换行
3楼2011-08-06 10:37:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)


jjdg(金币+1): 感谢参与 2011-08-06 15:31:00
哦,你跟前面问问是的那个是一个人?呵呵……
4楼2011-08-06 11:19:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)


jjdg(金币+1): 感谢参与 2011-08-06 15:31:06
我不是在 Linux,我在 Windows 下,但用的是 gfortran,这个程序起源于 Linux,所以我不太清楚那些原生的 Windows 下的编译器如何处理,估计多半是通过扩展来处理……
5楼2011-08-06 11:28:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 lijunjiexm 的主题更新
信息提示
请填处理意见