【答案】应助回帖

» 猜你喜欢

到新单位后，换了新的研究方向，没有团队，持续积累2区以上论文，能申请到面上吗已经有7人回复
申请2026年博士已经有5人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有5人回复
寻求一种能扛住强氧化性腐蚀性的容器密封件已经有6人回复
2025冷门绝学什么时候出结果已经有7人回复
请问有评职称，把科研教学业绩算分排序的高校吗已经有6人回复
Bioresource Technology期刊，第一次返修的时候被退回好几次了已经有7人回复
请问哪里可以有青B申请的本子可以借鉴一下。已经有4人回复
请问下大家为什么这个铃木偶联几乎不反应呢已经有5人回复
康复大学泰山学者周祺惠团队招收博士研究生已经有6人回复

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

木虫好友，太热情了，谢谢。

1楼2012-09-12 08:37:09

wangxinling

新虫 (小有名气)

应助: 0 (幼儿园)
金币: 371.5
散金: 1
帖子: 88
在线: 28.2小时
虫号: 1532636
注册: 2011-12-11
性别: MM
专业: 凝聚态物性I:结构、力学和

引用回帖:

2楼: Originally posted by snoopyzhao at 2012-09-12 08:56:52
先用 open 打开文件，然后用 read 去读。

至于格式，这与你的文件有关……

数据里共三列，第一列为列数（1-116），第二列为行数（1-76），第三列为行和列所对应的速度值。
NX=116
NZ=76
h=80
L=40
open(10,file='Marvel.dat')
do i=1,nx
do j=1,nz
read(10,*)i,j,v(i,j)
enddo
enddo
程序省略
close(10)
end
close该放在哪里？
这是子程序里的内容。为何主程序输出不对？？？？？？？？？

木虫好友，太热情了，谢谢。

4楼2012-09-12 11:01:22

查看全部 5 个回答

snoopyzhao

至尊木虫 (职业作家)

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

【答案】应助回帖

★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
jjdg: 金币+1, 感谢指导 2012-09-12 10:31:04
wangxinling: 金币+5, ★有帮助 2012-09-17 18:08:43

先用 open 打开文件，然后用 read 去读。

至于格式，这与你的文件有关……

2楼2012-09-12 08:56:52

liuhuisfp

金虫 (小有名气)

应助: 30 (小学生)
金币: 692.7
帖子: 209
在线: 56.7小时
虫号: 1206259
注册: 2011-02-19
专业: 理论和计算化学

【答案】应助回帖

★ ★
感谢参与，应助指数 +1
jjdg: 金币+2, 感谢应助 2012-09-12 10:31:22
jjdg: 编辑内容 2012-09-12 10:31

C版：
FILE *f;
char c[15];
int n;
double d;

if ((f = fopen("file_name", "r" )) == NULL)
fprintf(stdout, "打开文件%s失败！", file_name);
exit(EXIT_FAILURE);
}
// 读入一个字符串(%s)，一个整形数据(%d)，一个浮点数据(%f)
fscanf(f, "%s%d%f", &c, &n, &d);
fclose();

[ Last edited by jjdg on 2012-9-12 at 10:31 ]

3楼2012-09-12 10:24:36

snoopyzhao

至尊木虫 (职业作家)

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

【答案】应助回帖

★ ★ ★ ★ ★
wangxinling: 金币+5, ★有帮助 2012-09-17 18:08:13

引用回帖:

4楼: Originally posted by wangxinling at 2012-09-12 11:01:22
数据里共三列，第一列为列数（1-116），第二列为行数（1-76），第三列为行和列所对应的速度值。
NX=116
NZ=76
h=80
L=40
open(10,file='Marvel.dat')
do i=1,nx
do j=1,nz
read(10,*)i, ...

你把 marvel.dat 的内空贴出来，或者把这个文件传上来，可能更清楚……

5楼2012-09-12 20:24:51