Télécharger dynera.eso

Retour à la liste

Numérotation des lignes :

  1. C DYNERA SOURCE CB215821 16/04/15 21:15:13 8907
  2. SUBROUTINE DYNERA(IPCHP1,IPCHP2,IPCHP3,NSOR,IPTAB)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. ************************************************************************
  6. *
  7. * D Y N E R A
  8. * -----------
  9. *
  10. * FONCTION:
  11. * ---------
  12. * S-P ASSOCIE A L'OPERATEUR "DYNE"
  13. * ARCHIVAGE DES RESULTATS DANS LA TABLE DE SORTIE
  14. *
  15. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  16. * -----------
  17. *
  18. * IPCHP1 (E) POINTEUR SUR LE CHPOINT DE DEPLACEMENT
  19. * IPCHP2 (E) POINTEUR SUR LE CHPOINT DE VITESSE
  20. * IPCHP3 (E) POINTEUR SUR LE CHPOINT D'ACCELERATION
  21. * NSOR (E) NUMERO DE L'INSTANT DE SORTIE
  22. * IPTAB (S) POINTEUR SUR LA TABLE DE SORTIE ( ACTIVE )
  23. *
  24. * AUTEUR, DATE DE CREATION:
  25. * -------------------------
  26. *
  27. * DENIS ROBERT, LE 21 OCTOBRE 1988.
  28. *
  29. * LANGAGE:
  30. * --------
  31. *
  32. * ESOPE + FORTRAN77
  33. *
  34. ************************************************************************
  35. *
  36. * MODULES UTILISES:
  37. *
  38. -INC CCOPTIO
  39. -INC SMTABLE
  40. *
  41. INTEGER I0,I1,IP0,IP1
  42. REAL*8 X0,X1
  43. LOGICAL L0,L1
  44. *
  45. I0=0
  46. X0=0.D0
  47. L0=.FALSE.
  48. IP0=0
  49. I1=0
  50. X1=0.D0
  51. IP1=0
  52.  
  53. MTABLE=IPTAB
  54. *
  55. *--- INITIALISATION ET REMPLISSAGE DE LA PETITE TABLE
  56. *
  57. CALL CRTABL(MTAB1)
  58. IPTA1=MTAB1
  59. *
  60. *--- SOUS-TYPAGE DE LA PETITE TABLE : 'MOUVEMENT'
  61. *
  62. CALL ECCTAB(IPTA1,'MOT',I0,X0,'SOUSTYPE',L0,IP0,
  63. & 'MOT',I1,X1,'MOUVEMENT',L1,IP1)
  64. IF (IERR.NE.0) RETURN
  65. *
  66. *--- INDICE '<DEPLACEMENT' : CHPOINT DE DEPLACEMENT AU PAS N
  67. *
  68. CALL ECCTAB(IPTA1,'MOT',I0,X0,'<DEPLACEMENT',L0,IP0,
  69. & 'CHPOINT',I1,X1,' ',L1,IPCHP1)
  70. IF (IERR.NE.0) RETURN
  71. *
  72. *--- INDICE '<VITESSE' : CHPOINT DE VITESSE AU PAS N
  73. *
  74. CALL ECCTAB(IPTA1,'MOT',I0,X0,'<VITESSE',L0,IP0,
  75. & 'CHPOINT',I1,X1,' ',L1,IPCHP2)
  76. IF (IERR.NE.0) RETURN
  77. *
  78. *--- INDICE '<ACCELERATION' : CHPOINT D'ACCELERATION AU PAS N
  79. *
  80. CALL ECCTAB(IPTA1,'MOT',I0,X0,'<ACCELERATION',L0,IP0,
  81. & 'CHPOINT',I1,X1,' ',L1,IPCHP3)
  82. IF (IERR.NE.0) RETURN
  83. *
  84. *--- ON ECRIT LA PETITE TABLE DANS TTUF
  85. *
  86. CALL ECCTAB(IPTAB,'ENTIER',NSOR,X0,' ',L0,IP0,
  87. & 'TABLE',I1,X1,' ',L1,IPTA1)
  88. IF (IERR.NE.0) RETURN
  89. SEGDES,MTAB1
  90. *
  91. END
  92.  
  93.  
  94.  

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