看板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