	SUBROUTINE FILL(A,N)
	REAL A(*)
	INTEGER N
	DO I=1,N
		A(I) = 4*I + N
	ENDDO
	END

C	gfortran-8 -S -O1 HPC_p60.f
C	gfortran-8 -S -O2 HPC_p60.f
