
                             
        
                      


COMPILERVERGLEICH                            Dr. G. Schlatte
=================

Ei de i de letzte PC-NEW verffentlichte Testprogram f 
da TURBO-PASCA vergleichbare Program i FORTRA erbracht f 
di dre FORTRAN-Versione folgend Ergebniss a de Eingab de 
Zah 1000 bi zu Ertne de Piepstone un de Erscheine de 
Ergebnisses:

FORTRAN-Versio          Zeit/s    Gr de .EXE-
                                   Files/Bytes
----------------------------------------------------------
DR-FORTRAN-77            4.2       70912
IBM-FORTRAN              7.1       31432
Professional-FORTRAN     4.8       29404

Gerechne wurd i Doubl Precisio mi de 8087-Co-Prozessor Di 
ausgegebene Zahlenwert sin be alle Compiler identisch Bei 
Professional-FORTRA wurd de Linke de IBM-FORTRA verwendet.


     program invsqr
     Geschwindigkeitstest
     double precision s,fn,a
     integer k,n
     write (*,*) 'Eingabe von n fr Geschwindigkeitstest, n=?` 
     read (*,*) n
     s=0.d0
     do 20 k=1,n
     a=dble(k)
     s=s+fn(a)
20   continue
     write(*,1) s,char(7)
1    format(1h,'summe=',d22.16,a1)
     stop
     end
     double precision function fn(x)
     double precision x
     fn=1./dsqrt(x)
     return
     end

.pa
