| 查看: 686 | 回复: 3 | |||
[交流]
代码 已有1人参与
|
|
我这里有一行这样的代码 请问后面的x,y,z里面都存放内容吗？我看书上read（）后面不是只有一个变量吗？这个怎么有4个变量。如果读取文件内容了该怎么赋给4个变量呢？ |
回复此楼» 猜你喜欢
水蒸气蒸馏法乳化现象
已经有3人回复
-
时间戳他又来了
已经有8人回复
-
小木虫看见有人已经知道结果了
已经有8人回复
-
J-J-W不为人知的一面
已经有11人回复
-
自然基金已经彻底沦为学术资源的交换工具
已经有36人回复
-
全人类对于AI的整体认知，尚且停留在幼儿园启蒙阶段
已经有14人回复
-
没消息就是被刷了呗
已经有10人回复
-
周末思考-婚姻长久底色
已经有12人回复
-
27考博求助
已经有4人回复
-
深圳大学材料学院“智能分子材料团队”招聘博士后
已经有4人回复
2楼2015-12-13 21:47:04
pingyuan162
木虫 (小有名气)
- 应助: 14 (小学生)
- 金币: 1633.9
- 散金: 50
- 红花: 4
- 帖子: 95
- 在线: 86.6小时
- 虫号: 1815168
- 注册: 2012-05-14
- 专业: 结构工程
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
小木虫: 金币+0.5, 给个红包，谢谢回帖
|
逐个赋值。 主程序 Program test Implicit None Character(Len=1), Allocatable :: a(  Integer :: num, i Real :: x, y, z num = 3 ! 假设num取3 Allocate(a(num)) Open(Unit = 10, File = '.\test\data.txt') read(10,*) (a(i), i = 1, num),x,y,z !200 format(12X,A,15X,3(2X,F6.3)) Write(*, *) "a = ", a Write(*, *) "x = ", x Write(*, *) "y = ", y Write(*, *) "z = ", z End Program data.txt文件内容 计算结果： 除非你确切知道文件格式，否则不要将格式限制，会给数据读取带来很大困扰  1.PNG  2.PNG |
3楼2015-12-14 15:50:43
4楼2015-12-15 21:03:42