| 查看: 643 | 回复: 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 ] |
回复此楼» 猜你喜欢
284求调剂
已经有10人回复
-
一志愿山东大学药学学硕求调剂
已经有4人回复
-
07化学280分求调剂
已经有4人回复
-
298-一志愿中国农业大学-求调剂
已经有12人回复
-
求材料，环境专业调剂
已经有3人回复
-
335求调剂
已经有5人回复
-
求调剂
已经有7人回复
-
一志愿吉大化学322求调剂
已经有4人回复
-
环境学硕288求调剂
已经有8人回复
-
341求调剂(一志愿湖南大学070300)
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请教如何调用Module里面的函数，谢谢
已经有6人回复
- 两幅图像的曲线如何合并到一块！？
已经有29人回复
- 【求助】用fortran怎么描述下面这样的情况，我是新手，请大家帮忙
已经有8人回复
- 【求助】只是优化后文件，没有restart文件，能继续跑吗
已经有22人回复
- 【交流】VC++, C#, VB答疑专贴
已经有145人回复
- 【交流】Fortran语言答疑专帖
已经有157人回复
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
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
lijunjiexm
铁虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 22.8
- 红花: 1
- 帖子: 182
- 在线: 87.1小时
- 虫号: 1198843
- 注册: 2011-02-03
- 专业: 常微分方程与动力系统
3楼2011-08-06 10:37:53
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
4楼2011-08-06 11:19:19
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
5楼2011-08-06 11:28:42
40