yujsg
Joined: 20 Jun 2007 Posts: 15
|
Posted: Thu Aug 09, 2007 5:11 pm Post subject: INTERRUPT subroutines |
|
|
if we search "INTERRUPT subroutines" or "set_trap@" in FTN95 user's manual, we can find the following sample code:
EXTERNAL QUITH
INTEGER(KIND=3) :: X
COMPLEX(KIND=2) :: LABEL
COMMON LABEL
CALL LABEL@(LABEL,*1)
CALL SET_TRAP@(QUITH,X,0)
1 READ *,N
DO 2 I=1,N
2 PRINT *,N
PRINT *,'END OF LOOP'
GOTO 1
END
INTERRUPT SUBROUTINE QUITH
COMPLEX(KIND=2) :: LABEL
COMMON LABEL
CALL COU('Quit trapped!')
CALL JUMP@(LABEL)
END
but I tried it in PLATO 3, always got "access violation" run time error at the line of "CALL SET_TRAP@(QUITH,X,0)" please help! |
|