C TRPOSE    SOURCE    CHAT      05/01/13    03:52:25     5004           
      SUBROUTINE TRPOSE(BPSS)                                                   
C======================================================================         
C                                                                               
C     TRANSPOSE UNE MATRICE 3,3                                                 
C                                                                               
C======================================================================         
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)                                                 
      DIMENSION BPSS(3,*)                                                       
C                                                                               
      XTRA=BPSS(2,3)                                                            
      BPSS(2,3)=BPSS(3,2)                                                       
      BPSS(3,2)=XTRA                                                            
C                                                                               
      XTRA=BPSS(1,3)                                                            
      BPSS(1,3)=BPSS(3,1)                                                       
      BPSS(3,1)=XTRA                                                            
C                                                                               
      XTRA=BPSS(1,2)                                                            
      BPSS(1,2)=BPSS(2,1)                                                       
      BPSS(2,1)=XTRA                                                            
C                                                                               
      RETURN                                                                    
      END