Examples

Example 1: Standard return:

       CHARACTER*25 TEXT 
       TEXT = "Some kind of minor catastrophe"
       ... 
       CALL OOPS ( TEXT ) 
       STOP 
       END
       SUBROUTINE OOPS ( S ) 
       CHARACTER S* 32 
       WRITE (*,*) S 
       RETURN 
       END 

Example 2: Alternate return:

       CALL RANK ( N, *8, *9 ) 
       WRITE (*,*) 'OK - Normal Return' 
       STOP 
8     WRITE (*,*) 'Minor - 1st alternate return' 
       STOP 
9     WRITE (*,*) 'Major - 2nd alternate return' 
       END 
       SUBROUTINE RANK (N, *,*) 
       IF ( N .EQ. 0 ) RETURN 
       IF ( N .EQ. 1 ) RETURN 1 
       RETURN 2 
       END