{ Action de copie d'une matrice de reel       }
{ dans une matrice de reel supposee           }
{ de tailles identiques                       }
{ src : La matrice de reel source             }
{ dst : La matrice de reel cible              }
  
action copie(-> réel [][] src,
             réel [][] dst ->)
  entier n <- longueur(1,src);
  entier m <- longueur(2,src);
  entier i
  entier j
  pour i de 0 à n-1 faire
    pour j de 0 à m-1 faire
      dst[i][j] <- src[i][j]
    fait
  fait
fin action

{ Action de transposition d'une matrice       }
{ de reel dans une matrice de reel            }
{ supposee de tailles compatibles             }
{ src : La matrice de reel source             }
{ dst : La matrice de reel cible              }
  
action transposition(-> réel [][] src,
                     réel [][] dst ->)
  entier n <- longueur(1,src);
  entier m <- longueur(2,src);
  entier i
  entier j
  pour i de 0 à n-1 faire
    pour j de 0 à m-1 faire
      dst[j][i] <- src[i][j]
    fait
  fait
fin action

{ Action de transposition d'une matrice       }
{ carree de reel                              }
{ m : La matrice de reel à transposer         }
  
action transposition(-> réel [][] m ->)
  entier n <- longueur(m);
  entier i
  entier j
  réel aux
  pour i de 0 à n-2 faire
    pour j de i+1 à n-1 faire
      aux <- m[i][j]
      m[i][j] <- m[j][i]
      m[j][i] <- aux
    fait
  fait
fin action