主程式有一个输出的问题
就是计算出的值如果是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的值都可以计算并列出来!!