	SUBROUTINE	TEST2
	IMPLICIT	NONE
C
C
C
	INTEGER*4	C_VAR
	COMMON		/CFOO/ C_VAR
C
C
C
	INTEGER*4	PARAM1
	PARAMETER	(PARAM1 = 4096)
	INTEGER*4	PARAM2
	PARAMETER	(PARAM2 = PARAM1/8)
C
C
C
	REAL*4		BIG
	REAL*8		UNINIT_VAR(0:PARAM2+2), LOCAL_2, LOCAL_3, LOCAL_4, LOCAL_5, LOCAL_6
	INTEGER*4	LOCAL_7, LOCAL_8, LOCAL_9, LOCAL_10, I
C
	DATA		BIG/99999.99/
C
C
C
	UNINIT_VAR(0:PARAM2+2) = X'7FF0000000000001'
C
	LOCAL_2		= -400.0
	LOCAL_3		= -4500.
C
C
C
	LOCAL_7 = 3*C_VAR + MOD(3*C_VAR,2)
	LOCAL_4 = -LOCAL_3 / LOCAL_7
	LOCAL_9 = INT(-LOCAL_2 / LOCAL_4) + 1

	UNINIT_VAR(0) = BIG
	UNINIT_VAR(1) = 0.0
	DO I = 2, LOCAL_7
		UNINIT_VAR(I) = -(I-1)*LOCAL_4
		IF (ABS(UNINIT_VAR(I)-LOCAL_2) .LT. 0.01) THEN
			LOCAL_9 = I
			UNINIT_VAR(I) = LOCAL_2
		END IF
	END DO

	LOCAL_10 = LOCAL_9
C
C
C
	IF (LOCAL_5 .GT. 0.0D0) THEN
		IF (UNINIT_VAR(LOCAL_10) .LE. LOCAL_6) THEN
			LOCAL_8 = LOCAL_10 - 1
		ELSE
			LOCAL_8 = LOCAL_10
		END IF
	END IF
C
C
	RETURN
	END
