Télécharger la plaquette Cast3M


fr en

Télécharger envelo.eso

Retour à la liste

Numérotation des lignes : 

envelo

  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 PPARAM
  43. -INC CCOPTIO
  44. *
  45. *
  46. * VARIABLES:
  47. * ----------
  48. *     CTYP    :  TYPE DE LA DONNEE.
  49. *
  50. *
  51.       CHARACTER*8 CTYP
  52. *
  53. * AUTEUR, DATE DE CREATION:
  54. * -------------------------
  55. *
  56. *     LIONEL VIVAN       SEPTEMBRE 1988
  57. *
  58. * LANGAGE:
  59. * --------
  60. *
  61. *     ESOPE + FORTRAN77 + EXTENSION: DECLARATION "REAL*8".
  62. *
  63. ************************************************************************
  64. *
  65.       CALL QUETYP(CTYP,0,IRETOU)
  66.       IF (IRETOU.EQ.0) THEN
  67.          CALL ERREUR(533)
  68.          RETURN
  69.       ENDIF
  70. *
  71.       IF (CTYP.EQ.'MAILLAGE') THEN
  72.          CALL ENVVOL
  73. *
  74.       ELSE IF (CTYP.EQ.'TABLE   ') THEN
  75.          CALL ENVSPE
  76.            ELSE
  77.          MOTERR(1:8) = CTYP
  78.          CALL ERREUR(39)
  79.       ENDIF
  80.       RETURN
  81. *
  82.       END
  83.  
  84.  

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