Esope source files

   1 : C TRSMAT    SOURCE    GOUNAND   11/05/24    21:16:21     6976           
   2 :       SUBROUTINE TRSMAT
   3 : C***********************************************************************
   4 : C NOM         : TRSMTK
   5 : C DESCRIPTION : Transposition d'une matrice (type MATRIK ou RIGIDITE)
   6 : C
   7 : C
   8 : C LANGAGE     : ESOPE
   9 : C AUTEUR      : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  10 : C               mél : stephane.gounand@cea.fr
  11 : C***********************************************************************
  12 : C VERSION    : v1, 18/05/2011, version initiale
  13 : C HISTORIQUE : v1, 18/05/2011, création
  14 : C HISTORIQUE :
  15 : C HISTORIQUE :
  16 : C***********************************************************************
  17 : C     
  18 : C**** Les includes
  19 : C     
  20 :       IMPLICIT REAL*8 (A-H,O-Z)
  21 :       IMPLICIT INTEGER(I-N)
  22 :       CHARACTER*8 MONTYP
  23 : -INC CCOPTIO
  24 : C  
  24 :       CALL QUETYP(MONTYP,0    ,IRETOU)                                          
  25 :       IF (IRETOU.EQ.0) THEN                                                     
  25 :          CALL ERREUR(533)                                                       
  26 :          RETURN                                                                 
  27 :       ENDIF       
  28 : *
  29 :       IF (MONTYP.EQ.'RIGIDITE') THEN
  29 :          CALL LIROBJ('RIGIDITE',MRIGID,1,IRETOU)
  30 :          IF (IERR.NE.0) RETURN
  30 :          CALL DUAL01(MRIGID,MRIGI2)
  30 :          CALL ECROBJ('RIGIDITE',MRIGI2)
  31 :       ELSEIF (MONTYP.EQ.'MATRIK  ') THEN
  31 :          CALL LIROBJ('MATRIK',MATRIK,1,IRETOU)
  32 :          IF (IERR.NE.0) RETURN
  32 :          CALL TRSMTK(MATRIK,MATRI2)
  32 :          CALL ECROBJ('MATRIK',MATRI2)
  33 :       ELSE
  34 :          MOTERR(1:8)=MONTYP
  34 :          CALL ERREUR(39)
  35 :       ENDIF
  36 :       RETURN                                                                    
  37 : C      
  38 :       END
  39 :  
  40 :  
  41 :  
  42 :  
  43 :  
  44 :  
  45 :  
  46 :