Télécharger la plaquette Cast3M


fr en

Télécharger trsmat.eso

Retour à la liste

Numérotation des lignes : 

trsmat

  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 PPARAM
  24. -INC CCOPTIO
  25. C
  26.       CALL QUETYP(MONTYP,0    ,IRETOU)
  27.       IF (IRETOU.EQ.0) THEN
  28.          CALL ERREUR(533)
  29.          RETURN
  30.       ENDIF
  31. *
  32.       IF (MONTYP.EQ.'RIGIDITE') THEN
  33.          CALL LIROBJ('RIGIDITE',MRIGID,1,IRETOU)
  34.          IF (IERR.NE.0) RETURN
  35.          CALL DUAL01(MRIGID,MRIGI2)
  36.          CALL ECROBJ('RIGIDITE',MRIGI2)
  37.       ELSEIF (MONTYP.EQ.'MATRIK  ') THEN
  38.          CALL LIROBJ('MATRIK',MATRIK,1,IRETOU)
  39.          IF (IERR.NE.0) RETURN
  40.          CALL TRSMTK(MATRIK,MATRI2)
  41.          CALL ECROBJ('MATRIK',MATRI2)
  42.       ELSE
  43.          MOTERR(1:8)=MONTYP
  44.          CALL ERREUR(39)
  45.       ENDIF
  46.       RETURN
  47. C
  48.       END
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  

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