看板 [ Fortran ]
討論串[請益] 沒有讀取到的資料要計算+輸出
共 3 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#1
[請益] 沒有讀取到的資料要計算+輸出
推噓1(1推 0噓 3→)留言4則，0人參與, 最新作者JiGo (ㄐㄍ)時間11年前 (2013/11/28 13:29), 編輯資訊
0
0
0
內容預覽:
主程式有一個輸出的問題. 就是計算出的值如果是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
(還有887個字)
#2
Re: [請益] 沒有讀取到的資料要計算+輸出
推噓1(1推 0噓 0→)留言1則，0人參與, 最新作者jubilee2 (3321)時間11年前 (2013/11/28 15:03), 編輯資訊
0
0
0
內容預覽:
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.
#3
Re: [請益] 沒有讀取到的資料要計算+輸出
推噓1(1推 0噓 1→)留言2則，0人參與, 最新作者wenni時間11年前 (2013/12/07 22:37), 編輯資訊
0
0
0
內容預覽:
如果沒有誤會意思. 應該是你有40筆資料. 但是你要有1~102的結果. 中間的補0這樣. 如果是這樣 也許可以這樣解. 開個2個temp array 長度為40. 1個為int 1個為real*8 (設為 ND_temp 及 VAL_temp). 再開兩個real*8 長度為102 (設為ND 及
(還有334個字)
首頁
上一頁
1
下一頁
尾頁