PROGRAM MAIN
C
C	This routine is written for demonstration of calling sequences.
C
	WRITE (5,10)
10	FORMAT (' Program MAIN is running, about to call subroutine SUB1')
	CALL SUB1
	WRITE (5,20)
20	FORMAT (' Returned from SUB1 to MAIN, about to call SUB2')
	CALL SUB2
	WRITE (5,30)
30	FORMAT (' Returned from SUB2, all done ...')
	CALL EXIT
	END

	SUBROUTINE SUB1
C
C	First subroutine in calling subroutine practice routines
C
	WRITE (5,10)
10	FORMAT (' In subroutine SUB1.  About to call SUB2')
	CALL SUB2
	WRITE (5,20)
20	FORMAT (' Back in subroutine SUB1.  Returning ...')
	RETURN
	END

	SUBROUTINE SUB2
C
C	Second subroutine in practice routines
C
	WRITE (5,10)
10	FORMAT (' In subroutine SUB2. Returning ....')
	RETURN
	END