C BERECHNET DIE NORMALVERTEILING NACH DER BEZIEHUNG
C P=2.*GFI-1. / BENUTZT DIE TAFEL GFI.DA AUF DTA1
C FORTRAN II / OPTION (IO)
	DIMENSION GFI(401)
	CALL IOPEN('DTA1','GFI')
	READ(4,100)(GFI(I),I=1,401)
100	FORMAT(F9.6)
	CALLOOPEN('DTA1','NORM')
	DO 5 I=1,401
	GFI(I)=2.*GFI(I)-1.
5	WRITE(4,100)GFI(I)
	CALL OCLOSE
	CALL EXIT
	END