Télécharger la plaquette Cast3M


fr en

Télécharger tuyrot.eso

Retour à la liste

Numérotation des lignes : 

tuyrot

  1. C TUYROT    SOURCE    CHAT      05/01/13    03:57:27     5004
  2.       SUBROUTINE TUYROT(REL,LRE,P,ICLE)
  3. C-----------------------------------------------------------------------
  4. C  ROUTINE DE PASSAGE D UNE MATRICE ELEMENTAIRE DES AXES LOCAUX AUX AXES
  5. C  GLOBAUX
  6. C
  7. C  ENTREE
  8. C         LRE    NOMBRE DE LIGNES DU TABLEAU REL
  9. C         P      MATRICE DE PASSAGE
  10. C         REL    MATRICE ELEMENTAIRE EN AXES LOCAUX
  11. C         ICLE   1 POUR L'INSTANT
  12. C
  13. C  SORTIE
  14. C         REL    MATRICE ELEMENTAIRE EN AXES GLOBAUX
  15. C
  16. C-----------------------------------------------------------------------
  17.       IMPLICIT INTEGER(I-N)
  18.       IMPLICIT REAL*8(A-H,O-Z)
  19.       DIMENSION REL(LRE,*),P(3,*)
  20. *
  21. *     CAS ICLE = 1
  22. *
  23.       IF(ICLE.EQ.1) THEN
  24. *
  25. *       BLOCS 1 ET 3 PUIS 2
  26. *
  27.         LRE2=LRE/2
  28.         CALL TUYRO2(REL,LRE,P,0,0,1)
  29.         CALL TUYRO2(REL,LRE,P,LRE2,LRE2,1)
  30.         CALL TUYRO2(REL,LRE,P,0,LRE2,0)
  31. *
  32. *       SYMETRISATION
  33. *
  34.         DO 1 I=1,LRE
  35.         DO 1 J=1,I
  36.         REL(I,J)=REL(J,I)
  37.  1      CONTINUE
  38. *
  39.       ENDIF
  40.       RETURN
  41.       END
  42.  
  43.  

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