Télécharger la plaquette Cast3M


fr en

Télécharger trspod.eso

Retour à la liste

Numérotation des lignes : 

trspod

  1. C TRSPOD    SOURCE    CHAT      05/01/13    03:52:53     5004
  2.       SUBROUTINE TRSPOD (A,L1,L2,AT)
  3. ************************************************************************
  4. *
  5. *                             T R S P O D
  6. *                             -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. *     TRANSPOSITION D'UNE MATRICE RECTANGULAIRE EN DOUBLE PRECISION
  12. *
  13. *
  14. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
  15. * -----------
  16. *
  17. *     A       (E)  MATRICE A TRANSPOSER.
  18. *     L1      (E)  NOMBRE DE LIGNES DE LA MATRICE.
  19. *     L2      (E)  NOMBRE DE COLONNES DE LA MATRICE.
  20. *     AT      (S)  MATRICE TRANSPOSEE.
  21. *
  22.       IMPLICIT INTEGER(I-N)
  23.       IMPLICIT REAL*8(A-H,O-Z)
  24.       DIMENSION A(L1,L2),AT(L2,L1)
  25. *
  26. * LANGAGE:
  27. * --------
  28. *
  29. *     FORTRAN77
  30. *
  31. ************************************************************************
  32. *
  33.       DO 100 I=1,L1
  34.          DO 100 J=1,L2
  35.             AT(J,I) = A(I,J)
  36.   100       CONTINUE
  37. *        END DO
  38. *     END DO
  39. *
  40.       END
  41.  
  42.  

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