Télécharger tuyfrm.eso

Retour à la liste

Numérotation des lignes :

  1. C TUYFRM SOURCE CHAT 05/01/13 03:57:13 5004
  2. SUBROUTINE TUYFRM(IWRK,KERRE,VEC1,VEC2)
  3. C-----------------------------------------------------------------------
  4. C ROUTINE DE REMISE A JOUR DES VECTEURS DEFINISSANT LE REPERE LOCAL
  5. C ET L'AXE DE LA FISSURE POUR LE TUYAU FISSURE
  6. C HYPOTHESE DES PETITES ROTATIONS
  7. C-----------------------------------------------------------------------
  8. C ENTREE
  9. C IWRK POINTEUR SUR SEGMENT DE TRAVAIL
  10. C VEC1 LE VECTEUR DIRECTION A REACTUALISER
  11. C VEC2 LE VECTEUR ORIENTATION A REACTUALISER
  12. C SORTIE
  13. C KERRE INDICE D'ERREUR ( 0 SI TOUT EST OK )
  14. C-----------------------------------------------------------------------
  15. IMPLICIT INTEGER(I-N)
  16. IMPLICIT REAL*8(A-H,O-Z)
  17.  
  18. -INC PPARAM
  19. -INC CCOPTIO
  20. SEGMENT/IWRK/(XDDL(LRE)*D,XE(3,NBNN)*D,WORK(LW)*D)
  21. DIMENSION VEC1(*),VEC2(*),OMEG(3)
  22. C
  23. KERRE=0
  24. IF (IDIM.EQ.3) THEN
  25. DO 1 I=1,IDIM
  26. 1 OMEG(I)=0.5D00*(XDDL(3+I)+XDDL(9+I))
  27. CALL ROTVEC(VEC1,OMEG,IDIM,KERRE)
  28. IF(KERRE.NE.0) GO TO 666
  29. CALL ROTVEC(VEC2,OMEG,IDIM,KERRE)
  30. ENDIF
  31. C
  32. 666 RETURN
  33. END
  34.  
  35.  

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