Télécharger recang.eso

Retour à la liste

Numérotation des lignes :

recang
  1. C RECANG SOURCE CB215821 20/11/25 13:38:42 10792
  2. SUBROUTINE RECANG(ITRES,IPOS,IPTR,XANGLE)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. *--------------------------------------------------------------------*
  6. * *
  7. * Recherche le déplacements généralisé de rotation *
  8. * *
  9. * Param}tres: *
  10. * *
  11. * e ITRES table résultat issue de l'opérateur Dyne *
  12. * e IPOS position de XTEMP dans le listreel des temps *
  13. * e IPTR point de repère du mode de rotation,dans la base modale*
  14. * es XANGLE valeur de la rotation *
  15. * Auteur, date de création: *
  16. * *
  17. * Samuel DURAND le 15 Octobre 1996. *
  18. * *
  19. *--------------------------------------------------------------------*
  20.  
  21. -INC PPARAM
  22. -INC CCOPTIO
  23. -INC SMCHPOI
  24. -INC SMELEME
  25. LOGICAL L0,L1
  26. * Recherche du champoint des déplacements généralisés
  27. CALL ACCTAB(ITRES,'ENTIER',IPOS,X0,' ',L0,IP0,
  28. & 'TABLE',I1,X1,' ',L1,ITDEP)
  29. CALL ACCTAB(ITDEP,'MOT',I0,X0,'DEPLACEMENT',L0,IP0,
  30. & 'CHPOINT',I1,X1,' ',L1,ICHPT)
  31. MCHPOI = ICHPT
  32. IF (MCHPOI.EQ.0) THEN
  33. * le CHPOINT des déplacements modaux est nul
  34. MOTERR(1:8) = 'RCDEPL'
  35. CALL ERREUR(170)
  36. RETURN
  37. ENDIF
  38. SEGACT MCHPOI
  39. NSOU = IPCHP(/1)
  40. DO 10 ISOU = 1,NSOU
  41. MSOUPO = IPCHP(ISOU)
  42. SEGACT MSOUPO
  43. * on cherche la valeur du champ correspondant au point de
  44. * rotation
  45. MELEME = IGEOC
  46. SEGACT MELEME
  47. MPOVAL = IPOVAL
  48. SEGACT MPOVAL
  49. N2 = NUM(/2)
  50. DO 12 I = 1,N2
  51. IF (NUM(1,I).EQ.IPTR) THEN
  52. XANGLE=VPOCHA(I,1)
  53. ENDIF
  54. 12 CONTINUE
  55. SEGDES MPOVAL,MELEME,MSOUPO
  56. 10 CONTINUE
  57. SEGDES MCHPOI
  58. *
  59. END
  60.  
  61.  
  62.  
  63.  
  64.  

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