{ Calcul de la matrice 4x4 obtenue          }
{ par produit de deux matrices 4x4 de reels }

action produitMatrices4x4(t1,t2,t)
  Donnees             t1,t2 : tableau [4][4] de reel  { tableaux a multiplier  }
  Donnees / Resultat  t : tableau [4][4] de reel      { tableau resultat       }
  Locales i,j,k : entier                  { indices de boucle pour             }
          aux : tableau [4][4] de reel    { tableau auxiliaire de calcul       }
  pour i de 0 à 3 faire
    pour j de 0 à 3 faire
      aux[i][j] := 0.0
      pour k de 0 à 3 faire
        aux[i][j] := aux[i][j] + t1[i][k]*t2[k][j]
      fait
    fait
  fait
  copieMatrice(aux,t);
fin action