Re: [問題] fortran程式的問題..

看板Programming作者 (依然動物先生)時間18年前 (2007/02/12 15:51), 編輯推噓1(100)
留言1則, 1人參與, 最新討論串2/2 (看更多)
※ 引述《flywww (髒髒)》之銘言: : DO 52 J=1,M1 : RMN(J)=1.0 : 52 R(J)=1.0 這迴圈是獨立的 所以整個 RMN與 R 這兩個矩陣都是1.0 : GOTO 56 : . : . : 56 CONTINUE : DO 57 J=1,M1 : SX(J)=1. : SXMN(J)=1. : IF(MODE.LT.3)GOTO 57 : SX(J)=R(J) : IF(J.NE.1)SXMN(J)=RMN(J) : 57 CONTINUE 這邊一樣 把迴圈獨立來看 SX 與 SXMN 這兩個矩陣的1-7號位置都要令他為1 但是如果 MODE 小於 3的話 直接跳開回圈來到57繼續往下執行 : DO 62 J=2,M2 : YCVR(J)=R(J)*YCV(J) : ARX(J)=YCVR(J) : IF(MODE.LT.3)GOTO 62 : 請問各位大大程式跑的流程 DO 52那行之後 : 下面的RMN(J)=1.0也是要代入1~7嗎(M1=7) : 還是沒有? 有 因為那是迴圈內 : 然後在DO 57那行後 57那行是CONTINUE 就直接從CONTINUE那行在繼續跑下去 : 還是 SX(J)=1. : SXMN(J)=1. 這兩個也要跑也要代1~7 有 因為那也是迴圈 但是你有IF 當條件成立之後 會跳出迴圈到57 說實在的 如果不熟迴圈 不如乖乖的用 do enddo 來血比較不會搞混 -- ▲▲▲▲ 我與我的酷企鵝 - 台客 相本: http://photo.xuite.net/animalion 網誌: http://blog.xuite.net/animalion M A R U. -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 192.83.177.177

02/13 17:31, , 1F
我懂了 感謝大大^^
02/13 17:31, 1F
文章代碼(AID): #15q1oNYF (Programming)
文章代碼(AID): #15q1oNYF (Programming)