C BERECHNET EINE TAFEL DES GAUSS'SCHEN FEHLERINTEGRALS
C MIT HILFE DES FUNCTION-UNTERPROGRAMMS GAUSS(OGR)
C FORTRAN II / LIB15.RL / OPTION (O)
	DIMENSION GF(10)
	CALL OOPEN('DTA1','GFI')
	DO 5 J=0,40
	DO 3 I=0,9
	FI=FLOAT(I)*0.01
	FJ=FLOAT(J)*0.1
	OGR=FI+FJ
3	GF(I)=GAUSS(OGR)
	WRITE(1,100)(GF(K),K=0,9)
100	FORMAT(5F10.6,/,10X,5F10.6)
	WRITE(4,105)(GF(K),K=0,9)
105	FORMAT(F9.6)
5	CONTINUE
	CALL OCLOSE
	CALL EXIT
	END