Télécharger la plaquette Cast3M


fr en

Télécharger pouvec.eso

Retour à la liste

Numérotation des lignes : 

pouvec

  1. C POUVEC    SOURCE    CB215821  26/08/24    21:17:53     12622          
  2.       SUBROUTINE POUVEC(U,V,P,ICOD)
  3. C-----------------------------------------------------------------------
  4. C  ROUTINE DE PASSAGE DU VECTEUR DEPLACEMENT GLOBAL AU LOCAL
  5. C                  OU DU VECTEUR FORCE LOCAL AU GLOBAL
  6. C
  7. C  ENTREE
  8. C  ------     U      DEPLACEMENTS GLOBAUX AUX 2 NOEUDS
  9. C                    OU FORCES LOCALES AUX 2 NOEUDS
  10. C             P      MATRICE DE PASSAGE
  11. C             ICOD   1  POUR Q-LOC =P*Q-GLOB
  12. C                    2  POUR F-GLOB=PT*F-LOC
  13. C
  14. C  SORTIE
  15. C  ------     V      DEPLACEMENTS LOCAUX AUX 2 NOEUDS
  16. C                    OU FORCES GLOBALES AUX 2 NOEUDS
  17. C-----------------------------------------------------------------------
  18.       IMPLICIT INTEGER(I-N)
  19.       IMPLICIT REAL*8(A-H,O-Z)
  20.       DIMENSION U(1),V(1),P(3,3)
  21. C
  22.       GO TO (100,200),ICOD
  23. 100   CONTINUE
  24.       DO 202 K=1,4
  25.       IDEC=(K-1)*3
  26.       DO 201 J=1,3
  27.       JJ=J+IDEC
  28.       V( JJ)=0.D00
  29.       DO 6 I=1,3
  30.       II=I+IDEC
  31.       V(JJ)=V(JJ)+P(J,I)*U(II)
  32.     6 CONTINUE
  33.   201 CONTINUE
  34.   202 CONTINUE
  35.       RETURN
  36. 200   CONTINUE
  37.       DO 204 K=1,4
  38.       IDEC=(K-1)*3
  39.       DO 203 J=1,3
  40.       JJ=J+IDEC
  41.       V(JJ)=0.D00
  42.       DO 7 I=1,3
  43.       II=I+IDEC
  44.       V(JJ)=V(JJ)+P(I,J)*U(II)
  45.     7 CONTINUE
  46.   203 CONTINUE
  47.   204 CONTINUE
  48.       RETURN
  49.       END
  50.  
  51.  
  52.  

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