Google
 

Trailing-Edge - PDP-10 Archives - BB-4157F-BM_1983 - fortran/test/ovl1.for
There are 9 other files named ovl1.for in the archive. Click here to see a list.
	SUBROUTINE OVL1(IVAR)

C THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
C   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
C 
C COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1982, 1983

	IMPLICIT DOUBLE PRECISION (D)
	IMPLICIT COMPLEX (C)
	IMPLICIT INTEGER (A)

	TYPE 1
1	FORMAT (30x,'	OVL1 CALLS OVL3'/)

	NUM=0
	CALL OVL3(NUM)
	TYPE 2
2	FORMAT (30x,'	RETURN TO OVL1'/)
	IF (NUM.NE.1) TYPE 100
100	FORMAT(' ?Error. Variable not returned from OVL3.')

	IVAR=1
	RETURN
	END