Télécharger trpose.eso

Retour à la liste

Numérotation des lignes :

  1. C TRPOSE SOURCE CHAT 05/01/13 03:52:25 5004
  2. SUBROUTINE TRPOSE(BPSS)
  3. C======================================================================
  4. C
  5. C TRANSPOSE UNE MATRICE 3,3
  6. C
  7. C======================================================================
  8. IMPLICIT INTEGER(I-N)
  9. IMPLICIT REAL*8 (A-H,O-Z)
  10. DIMENSION BPSS(3,*)
  11. C
  12. XTRA=BPSS(2,3)
  13. BPSS(2,3)=BPSS(3,2)
  14. BPSS(3,2)=XTRA
  15. C
  16. XTRA=BPSS(1,3)
  17. BPSS(1,3)=BPSS(3,1)
  18. BPSS(3,1)=XTRA
  19. C
  20. XTRA=BPSS(1,2)
  21. BPSS(1,2)=BPSS(2,1)
  22. BPSS(2,1)=XTRA
  23. C
  24. RETURN
  25. END
  26.  
  27.  
  28.  

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