Directory of image this file is from
This file as a plain text file
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