如果没有误会意思 应该是你有40笔资料 但是你要有1~102的结果 中间的补0这样 如果是这样 也许可以这样解 开个2个temp array 长度为40 1个为int 1个为real*8 (设为 ND_temp 及 VAL_temp) 再开两个real*8 长度为102 (设为ND 及 VAL, 其实ND不开也行啦XD) array请自己记得先初始化塞0及0.0D0 先将40笔资料读进array中 以90语法为例可以写成这样 DO I = 1 , 40 READ(104,*) ND_temp(I) , VAL_temp(I) END DO 然後再将ND ARRAY的排序放入 DO I , 1 , 102 ND(I) = I END DO 最後再做一次简单的塞值即可 DO I = 1 , 40 VAL( ND_temp(I) ) = VAL_temp(I) END DO 这样子就会都放进去了 可以得到一个ND array 里面的int是从1~102 然後VAL则是1~20以及83~102有值 其他都是0.0D0 之後就直接利用ND 跟VAL两个array来进行计算及输出即可 希望你看的懂语法 简单来说就是先记住我到底要放进那边 然後再放进去该放的地方就对了XD 如果我误会你想要做的事的话 那就再讨论吧XD ※ 引述《JiGo (ㄐㄍ)》之铭言： : 主程式有一个输出的问题 : 就是计算出的值如果是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: 220.137.112.18