	REAL FUNCTION COMPUTE(A,B,C,D,E)
	REAL A,B,C,D,E
	D = C*(A+B)
	E = (A+B)/2
	COMPUTE = D-E
	END

C	gfortran-8 -S -O1 HPC_p58.f
