討論串[問題] 要如何將迴圈值分開存檔
共 3 篇文章
首頁
上一頁
1
下一頁
尾頁

推噓1(1推 0噓 10→)留言11則,0人參與, 最新作者zx168zx (zx168zx)時間10年前 (2014/11/16 11:35), 10年前編輯資訊
1
0
1
內容預覽:
小弟想請問一下各位前輩們. 我的程式結構如下. do aa=1,5. do bb=1,10. .. .. .. .. do while (條件). .. .. write(126,"(3(F13.5))") aa,bb,X. .. .. enddo. enddo. enddo. 但我跑資料時 這樣的
(還有363個字)

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者zx168zx (zx168zx)時間10年前 (2014/11/19 11:53), 編輯資訊
0
0
1
內容預覽:
program test. IMPLICIT REAL * 8 (A - H, O - Z). IMPLICIT integer * 8 (I-N). character string. do m=1,2. do aa=1,2. do bb=1,2. X=1. write(string, fmt='
(還有124個字)

推噓1(1推 0噓 9→)留言10則,0人參與, 最新作者zx168zx (zx168zx)時間10年前 (2014/11/19 22:12), 編輯資訊
0
0
1
內容預覽:
下面是我又嘗試的新方法. program test. IMPLICIT REAL * 8 (A - H, O - Z). IMPLICIT integer * 8 (I-N). character(100)::filename. filename='000.txt'. nn=2 !記事本數量. do
(還有474個字)
首頁
上一頁
1
下一頁
尾頁