应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 请教一个调用数据文件的程序问题，谢谢
51/1返回列表
查看: 813  |  回复: 4
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

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 ]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2011-08-06 00:07:08
已阅   回复此楼   关注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') 看看会不会有问题……
赞一下(1人) 回复此楼
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的换行
赞一下(1人) 回复此楼
3楼2011-08-06 10:37:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★
jjdg(金币+1): 感谢参与 2011-08-06 15:31:00
哦，你跟前面问问是的那个是一个人？呵呵……
赞一下(1人) 回复此楼
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 下的编译器如何处理，估计多半是通过扩展来处理……
赞一下(1人) 回复此楼
5楼2011-08-06 11:28:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 lijunjiexm 的主题更新
51/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +3 FChKX8meu1ds 2026-11-09 3/150 2026-11-10 21:40 by Z7qfCsdIiD1T
[教师之家] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +3 FChKX8meu1ds 2026-11-09 4/200 2026-11-10 21:13 by Z7qfCsdIiD1T
[教师之家] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +3 FChKX8meu1ds 2026-11-09 4/200 2026-11-10 21:07 by Z7qfCsdIiD1T
[教师之家] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +4 cqv1zKnzd7hr 2026-11-09 5/250 2026-11-10 20:45 by Z7qfCsdIiD1T
[论文投稿] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +4 cqv1zKnzd7hr 2026-11-09 5/250 2026-11-10 20:34 by Z7qfCsdIiD1T
[论文投稿] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +4 cqv1zKnzd7hr 2026-11-09 5/250 2026-11-10 20:12 by Z7qfCsdIiD1T
[教师之家] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +4 0TEMgxdT1eIw 2026-11-09 5/250 2026-11-10 20:01 by Z7qfCsdIiD1T
[公派出国] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +4 zSbvVX9JFl9J 2026-11-09 4/200 2026-11-10 19:39 by Z7qfCsdIiD1T
[考研] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 zSbvVX9JFl9J 2026-11-09 4/200 2026-11-10 19:17 by czAiolzR0IJC
[教师之家] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +3 zSbvVX9JFl9J 2026-11-09 5/250 2026-11-10 09:23 by 1yv6QACPoY1E
[文学芳草园] 厉娜 +3 张丹枫1991 2026-11-09 5/250 2026-11-09 16:53 by 张丹枫1991
[考研] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +5 ttH3f1oA6ace 2026-11-04 15/750 2026-11-09 13:19 by Equinoxhua
[公派出国] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +4 5sJFDKp2kwuI 2026-11-06 8/400 2026-11-09 00:14 by l48hFd8Nwae2
[教师之家] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +5 5sJFDKp2kwuI 2026-11-06 9/450 2026-11-08 22:46 by l48hFd8Nwae2
[公派出国] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +5 ttH3f1oA6ace 2026-11-04 10/500 2026-11-06 16:12 by 5sJFDKp2kwuI
[硕博家园] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +4 ttH3f1oA6ace 2026-11-04 11/550 2026-11-06 16:10 by 5sJFDKp2kwuI
[公派出国] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +6 ttH3f1oA6ace 2026-11-04 12/600 2026-11-06 16:10 by 5sJFDKp2kwuI
[公派出国] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +5 kvewwGtKktqB 2026-11-04 14/700 2026-11-06 05:10 by qL1cU46YIdK0
[考博] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +4 ttH3f1oA6ace 2026-11-04 7/350 2026-11-06 02:13 by qL1cU46YIdK0
[考研] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +4 ttH3f1oA6ace 2026-11-04 10/500 2026-11-06 02:04 by qL1cU46YIdK0
信息提示
关闭
请填处理意见
关闭