Beispielprogramme

Matrixmultiplikation:

• Sourcen: matmul.f90 , kinds.f90

• Standard-Funktion matmul

• real(kind=8) entspr. double precision bei HP-UX-f90
  kind-Nummer nicht portabel

• forall-Konstrukt, drückt Parallelität aus:
     forall (i = 1:n, j = 1:n)
       a(i,j) = i + j
       b(i,j) = i - j
     end forall
      
  
  

Matrixmultiplikation mit Blas-Routine:

• Sourcen: matmul-blas.f90 , blas.f90

• Modul kinds für portable Datentypen
• Anpassung der BLAS-Routine an Fortran90 durch eigene Interface-Routine
• vorgeschlagenes Fortran95-Interface für BLAS
  • generische Funktionen
  • Matrixgrößen: logisch = physikalisch
  • keine Parameter für Matrixgrößen
  • besondere Parameter (Transponierung, Addition) optional

Rationale Zahlen als abstrakter Datentyp:

• Sourcen: ratiofarm.f90
• Rationale Zahl = Struktur aus Zähler und Nenner
• Funktionen für die Bruch-Arithmetik
• Brüche wie Standard-Datentypen durch Operatoren
• Normaldarstellung durch interne Funktionen zum Kürzen