看板Programming
標 題Re: [問題] 關於這個bug我始終想不透?
發信站中央資管龍貓資訊天地 (Tue Apr 3 00:50:55 2007)
轉信站ptt!ctu-reader!ctu-gate!news.nctu!news.ncu!news.mgt.ncu!bbs
==> [email protected] (命運大不同) 提到:
: 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