Télécharger dyne.eso

Retour à la liste

Numérotation des lignes :

  1. C DYNE SOURCE CHAT 05/01/12 23:18:14 5004
  2. SUBROUTINE DYNE
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. *--------------------------------------------------------------------*
  6. * *
  7. * Sous-programme de l'op{rateur DYNE *
  8. * __________________________________ *
  9. * *
  10. * Calcul d'une r{ponse dynamique @ l'aide d'algorithmes *
  11. * explicites: *
  12. * *
  13. * - algorithme de Plexus *
  14. * - algorithme de Fu - de Vogelaere. *
  15. * *
  16. * Auteur, date de cr{ation: *
  17. * _________________________ *
  18. * *
  19. * Denis ROBERT-MOUGIN & Lionel VIVAN ,le 19 mai 1989. *
  20. * *
  21. *--------------------------------------------------------------------*
  22. -INC CCOPTIO
  23. *
  24. CHARACTER*6 MOPLEX
  25. CHARACTER*20 MODEVO,MOALG,MODIFF
  26. DATA MOPLEX /'PLEXUS'/
  27. DATA MODEVO /'DE_VOGELAERE'/
  28. DATA MODIFF /'DIFFERENCES_CENTREES'/
  29. *
  30. * Quel algorithme a-t-on choisi ?
  31. *
  32. CALL MESLIR(-272)
  33. CALL LIRCHA(MOALG,1,IRET)
  34. IF (IRET.EQ.0) RETURN
  35. *
  36. IF (MOALG(1:6).EQ.MOPLEX) THEN
  37. *
  38. * Algorithme de Plexus
  39. * on s'en sert plus. Il ne figure pas dans la notice
  40. CALL DYNPLX
  41. RETURN
  42. ELSE IF (MOALG(1:12).EQ.MODEVO) THEN
  43. *
  44. * Algorithme de Fu - de Vogelaere
  45. *
  46. CALL DYNDEV
  47. RETURN
  48. ELSE IF (MOALG(1:20).EQ.MODIFF) THEN
  49. *
  50. * Algorithme des differences centrees (le meme que plexus)
  51. *
  52. CALL DYNDIF
  53. RETURN
  54. ELSE
  55. *
  56. * Erreur dans le choix de l'algorithme
  57. *
  58. CALL ERREUR(477)
  59. RETURN
  60. ENDIF
  61. *
  62. END
  63.  
  64.  
  65.  

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