Esope source files

   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 :