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 : * 63 : CALL QUETYP(CTYP,0,IRETOU) 64 : IF (IRETOU.EQ.0) THEN 64 : CALL ERREUR(533) 65 : RETURN 66 : ENDIF 67 : * 68 : IF (CTYP.EQ.'MAILLAGE') THEN 68 : CALL ENVVOL 69 : * 70 : ELSE IF (CTYP.EQ.'TABLE ') THEN 70 : CALL ENVSPE 71 : ELSE 72 : MOTERR(1:8) = CTYP 72 : CALL ERREUR(39) 73 : ENDIF 74 : RETURN 75 : * 76 : END 77 :
© Cast3M 2003 - All rights reserved.
Disclaimer