c -------------------------------------------------------------------
c programme principal test d'outils matrices
c -------------------------------------------------------------------
      program main
      implicit none
      integer dl,dc,nl1,nc1,nl2,nc2,nl3,nc3
      parameter(dl=10,dc=10)
      real m1(dl,dc),m2(dl,dc),m3(dl,dc),x
      print *,'entrez une matrice'
      call saisie(m1,nl1,nc1,dl,dc)
      print *,'pour vérification :'
      call affichage(m1,nl1,nc1,dl,dc)
      print *,'voyons si après copie on a le même résultat :'
      call copie(m1,m2,nl1,nc1,nl2,nc2,dl,dc)
      call affichage(m2,nl2,nc2,dl,dc)
      print*,'en en faisant la somme, a-t-on le double ?'
      call somme(m1,m2,m3,nl1,nc1,nl2,nc2,nl3,nc3,dl,dc)
      call affichage(m3,nl3,nc3,dl,dc)
      print *,'entrez une seconde matrice, compatible pour la'
      print *,'multiplier à la première (',nc1,' lignes)'
      call saisie(m2,nl2,nc2,dl,dc)
      call affichage(m2,nl2,nc2,dl,dc)
      print *,'par quel réel allons nous la multiplier ?'
      read *,x
      call produitreel(x,m2,m2,nl2,nc2,nl2,nc2,dl,dc)
      call affichage(m2,nl2,nc2,dl,dc)
      print *,'le produit des deux matrices vaut :'
      call produit(m1,m2,m3,nl1,nc1,nl2,nc2,nl3,nc3,dl,dc)
      call affichage(m3,nl3,nc3,dl,dc)
      end program main