Télécharger la plaquette Cast3M


fr en

Télécharger trpose.eso

Retour à la liste

Numérotation des lignes : 

trpose

  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