作者JiGo (ㄐㄍ)
看板Fortran
标题[请益] 没有读取到的资料要计算+输出
时间Thu Nov 28 13:29:00 2013
主程式有一个输出的问题
就是计算出的值如果是0该笔资料就不会输出
如下：
1 35.00
2 35.00
3 12.34
4 12.34
5 3.709
6 3.709
7 1.028
8 1.028
9 0.2716
10 0.2716
11 6.9465E-02
12 6.9465E-02
13 1.7356E-02
14 1.7356E-02
15 4.2615E-03
16 4.2615E-03
17 1.0322E-03
18 1.0322E-03
19 2.4730E-04
20 2.4730E-04
83 35.00
84 35.00
85 12.34
86 12.34
87 3.709
88 3.709
89 1.028
90 1.028
91 0.2716
92 0.2716
93 6.9465E-02
94 6.9465E-02
95 1.7356E-02
96 1.7356E-02
97 4.2615E-03
98 4.2615E-03
99 1.0322E-03
100 1.0322E-03
101 2.4730E-04
102 2.4730E-04
其中第21~82的值应该是0所以没有输出
102~128的值也是0所以也没输出
我现在的程式码计算大致如下：
DO J=1,128
407 CONTINUE
READ(104,305,ERR=407)ND,VAL
IF(ND.LT.1 .OR. ND.GT.128) GOTO 407
U01=VAL
CJ=U01/FRA
WRITE(108,306)ND,CJ
END DO
但这这样在输出档中只能看到上述有列出来的资料计算结果
21~82 和 102~128 的资料却无法做计算跟输出
该怎麽让fortran程式码去作判断
当没读到ND值的时候让VAL=0呢?
简单来说就是想把1~128的值都可以计算并列出来!!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.115.61.213
1F：→ Cypresslin:你读进来的资料有没有问题？ 这段看起来不会略过1-128 12/04 17:07
2F：推 terryys:是不是读进来的资料没有21-82？或者是21-82的资料不对 12/04 20:41
3F：→ JiGo:没有21~82以及103~128，因为该笔资料为0所以程式会不显示数值 12/07 14:19
4F：→ JiGo:但是0我还是会拿来做计算 12/07 14:19