Re: [問題] 關於這個bug我始終想不透?

看板Programming作者時間18年前 (2007/04/03 02:01), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串2/3 (看更多)
==> littleboar.bbs@ptt.cc (命運大不同) 提到: : DO 1 K=1,NZ : IF (ZLOW.LE.Z(K).AND.Z(K).LE.ZHIG) GOTO 2 : 1 CONTINUE : ** NO MATCH IS FATAL AND NON-RECOVERABLE 請在這一行把ZLOW、Z(K)、ZHIG和K的值WRITE出來也許就知道為什麼了 : CALL ABTMOS (0) : ** RETURN THE DESIRED INDEX : 2 KDESIR=K : END : 這是一個fortran 77語法 的subroutine : 請問只要我滿足if的條件後 ,不是就會跳到 : 代號為2的那行,回傳值後往下執行到end : 而回到我之前呼叫的地方,為什麼我compiler後 : 都會執行到call abtmos,而跳到abort 程序呢 : ,請前輩指導我一下,謝謝 我學的是fortran95,可能概念不太一樣,沒看到END DO,是 FORTRAN77本來就不需要END DO嗎 -- ◎(bbs.mgt.ncu.edu.tw) ◎[Tailss]From: 237-200.dorm.ncu.edu.tw
文章代碼(AID): #164KJY00 (Programming)
文章代碼(AID): #164KJY00 (Programming)