Télécharger la plaquette Cast3M


fr en

Télécharger trspos.eso

Retour à la liste

Numérotation des lignes : 

trspos

  1. C TRSPOS    SOURCE    CHAT      05/01/13    03:52:58     5004
  2.       SUBROUTINE TRSPOS (MAT,L1,L2,  MATT)
  3. ************************************************************************
  4. *
  5. *                             T R S P O S
  6. *                             -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. *     TRANSPOSITION D'UNE MATRICE RECTANGULAIRE.
  12. *
  13. *     PROCEDURE GENERIQUE FONCTIONNANT POUR LES TYPES "INTEGER", "REAL".
  14. *
  15. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
  16. * -----------
  17. *
  18. *     MAT     (E)  MATRICE A TRANSPOSER.
  19. *     L1      (E)  NOMBRE DE LIGNES DE LA MATRICE.
  20. *     L2      (E)  NOMBRE DE COLONNES DE LA MATRICE.
  21. *     MATT    (S)  MATRICE TRANSPOSEE.
  22. *
  23.       IMPLICIT INTEGER(I-N)
  24.       DIMENSION MAT(L1,L2),MATT(L2,L1)
  25.       INTEGER L1,L2
  26. *
  27. * AUTEUR, DATE DE CREATION:
  28. * -------------------------
  29. *
  30. *     PASCAL MANIGOT     24 FEVRIER 1986
  31. *
  32. * LANGAGE:
  33. * --------
  34. *
  35. *     FORTRAN77
  36. *
  37. ************************************************************************
  38. *
  39.       DO 100 I=1,L1
  40.          DO 100 J=1,L2
  41.             MATT(J,I) = MAT(I,J)
  42.   100       CONTINUE
  43. *        END DO
  44. *     END DO
  45. *
  46.       END
  47.  
  48.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales