Télécharger poufrm.eso

Retour à la liste

Numérotation des lignes :

  1. C POUFRM SOURCE CHAT 05/01/13 02:18:51 5004
  2. SUBROUTINE POUFRM(IWRK,KERRE,VECT)
  3. C-----------------------------------------------------------------------
  4. C ROUTINE DE REMISE A JOUR DU VECTEUR DEFINISSANT LE REPERE LOCAL
  5. C POUR LA POUTRE
  6. C-----------------------------------------------------------------------
  7. C ENTREE
  8. C IWRK POINTEUR SUR SEGMENT DE TRAVAIL
  9. C VECT LE VECTEUR A REACTUALISER
  10. C SORTIE
  11. C KERRE INDICE D'ERREUR ( 0 SI TOUT EST OK )
  12. C-----------------------------------------------------------------------
  13. IMPLICIT INTEGER(I-N)
  14. IMPLICIT REAL*8(A-H,O-Z)
  15. SEGMENT/IWRK/(XDDL(LRE)*D,XE(3,NBNN)*D,WORK(LW)*D)
  16. DIMENSION VECT(*),P(3,3),XX(2),YY(2),ZZ(2)
  17. C
  18. KERRE=0
  19. DO 2 I=1,2
  20. XX(I)=XE(1,I)
  21. YY(I)=XE(2,I)
  22. 2 ZZ(I)=XE(3,I)
  23. C
  24. C CALCUL DE LA MATRICE DE PASSAGE
  25. C
  26. CALL POUPAS(XX,YY,ZZ,VECT,P,KERRE)
  27. IF(KERRE.NE.0) GO TO 999
  28. C
  29. C REACTUALISATION DU VECTEUR
  30. C
  31. CALL POUREA(XX,YY,ZZ,XDDL,WORK,P,VECT,KERRE)
  32. 999 RETURN
  33. END
  34.  
  35.  

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