Télécharger trspod.eso

Retour à la liste

Numérotation des lignes :

  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