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