Télécharger envelo.eso

Retour à la liste

Numérotation des lignes :

  1. C ENVELO SOURCE CHAT 05/01/12 23:40:50 5004
  2. SUBROUTINE ENVELO
  3. ************************************************************************
  4. *
  5. * E N V E L O
  6. * -----------
  7. *
  8. * SOUS-PROGRAMME ASSOCIE A L'OPERATEUR "ENVELOPPE"
  9. *
  10. * FONCTION:
  11. * ---------
  12. *
  13. * CALCULE UN ENVELOPPE
  14. * - SOIT D'UN VOLUME
  15. * - SOIT D'UNE SERIE DE SPECTRES
  16. *
  17. * PHRASE D'APPEL (EN GIBIANE):
  18. * ----------------------------
  19. *
  20. * RESU = ENVELOPPE DONNEE ;
  21. *
  22. * OPERANDES ET RESULTATS:
  23. * -----------------------
  24. *
  25. * CAS DU VOLUME :
  26. * DONNEE 'MAILLAGE' MAILLAGE
  27. * RESU 'MAILLAGE' ENVELOPPE DU MAILLAGE DONNE.
  28. *
  29. * CAS DU SPECTRE :
  30. * DONNEE 'TABLE ' TABLE CONTENANT N SPECTRES.
  31. * I VARIENT DE 1 A N
  32. * DONNEE I 'SPECTRE' : OBJET EVOLUTION
  33. * 'AMORTISSEMENT' : OBJET LISTREEL
  34. * RESU 'TABLE ' TABLE CONTENANT LE SPECTRE ENVELOPPE.
  35. * RESU 'SPECTRE' : OBJET EVOLUTION
  36. * 'AMORTISSEMENT' : OBJET LISTREEL
  37. *
  38. * MODULES UTILISES:
  39. * -----------------
  40. *
  41. IMPLICIT INTEGER(I-N)
  42. -INC CCOPTIO
  43. *
  44. *
  45. * VARIABLES:
  46. * ----------
  47. * CTYP : TYPE DE LA DONNEE.
  48. *
  49. *
  50. CHARACTER*8 CTYP
  51. *
  52. * AUTEUR, DATE DE CREATION:
  53. * -------------------------
  54. *
  55. * LIONEL VIVAN SEPTEMBRE 1988
  56. *
  57. * LANGAGE:
  58. * --------
  59. *
  60. * ESOPE + FORTRAN77 + EXTENSION: DECLARATION "REAL*8".
  61. *
  62. ************************************************************************
  63. *
  64. CALL QUETYP(CTYP,0,IRETOU)
  65. IF (IRETOU.EQ.0) THEN
  66. CALL ERREUR(533)
  67. RETURN
  68. ENDIF
  69. *
  70. IF (CTYP.EQ.'MAILLAGE') THEN
  71. CALL ENVVOL
  72. *
  73. ELSE IF (CTYP.EQ.'TABLE ') THEN
  74. CALL ENVSPE
  75. ELSE
  76. MOTERR(1:8) = CTYP
  77. CALL ERREUR(39)
  78. ENDIF
  79. RETURN
  80. *
  81. END
  82.  
  83.  

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