作者jubilee2 (3321)
看板Fortran
标题Re: [请益] 没有读取到的资料要计算+输出
时间Thu Nov 28 15:03:36 2013
DO J=1,128
READ(104,305)ND,VAL
IF(ND.LT.1 .OR. ND.GT.128) then
WRITE(108,306)ND,0
else
U01=VAL
CJ=U01/FRA
WRITE(108,306)ND,CJ
end if
END DO
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.116.38.129
1F：推 JiGo:好像不是我要的答案耶...不过多谢罗!! 12/04 13:02