1 : C ELFE SOURCE CHAT 05/01/12 23:31:45 5004 2 : SUBROUTINE ELFE 3 : C 4 : C ===================================================================== 5 : C 6 : C L' OPERATEUR ELFE CALCULE LES VIBRATIONS 7 : C A MOYENNE FREQUENCE EN UTILISANT UNE METHODE INTEGRALE AUX ELEMENTS 8 : C FRONTIERE. 9 : C 10 : C SYNTAXE : 11 : C 12 : C RESU1 = ELFE | TEST | TEMPS ) 13 : C | | ) SUPPRIMES 05/03/90 14 : C | | LAPLACE ..) 15 : C | 16 : C | LAPLACE | POUTRE ..... 17 : C | | EXTERNE SUPPRIMEE 05/03/90 18 : C | | PLAQUE .... 19 : C | 20 : C | STATIQUE | POUTRE ....! 21 : C | | PLAQUE ....! supprimes 15/12/92 22 : C | 23 : C | TEMPS POUTRE STRUC1 ATTAC1 TEMPS 24 : C DT1 CHARG1 ( M1 25 : C GREEN ( NFOIS NN ) ; 26 : C 27 : C OPTION TEST TEMPS 28 : C ----------------- 29 : C 30 : C 31 : C RESU1 : OBJET DE TYPE TABLE 32 : C LTF : OBJET DE TYPE LISTREEL (TEMPS) 33 : C GREEN : OBJET EVOLUTION CONTENANT LES FONCTIONS DE GREEN 34 : C E : MODULE DE YOUNG 35 : C RO : MASSE VOLUMIQUE 36 : C S : SECTION 37 : C IZ : MOMENT D INERTIE SUIVANT L AXE Z 38 : C COUPLAGE: MOT CLE PERMETTANT UNE RESOLUTION AVEC COUPLAGE 39 : C DECOUPLAGE: MOT CLE PERMETTANT UNE RESOLUTION AVEC DECOUPLAGE 40 : C 41 : C OPTION TEMPS 42 : C ------------ 43 : C SOLUT1 : OBJET DE TYPE SOLUTION DYNAMIQUE 44 : C STRUC1 : OBJET DE TYPE STRUCTURE, ENSEMBLE DES ELEMENTS DE POUTRE 45 : C ATTAC1 : OBJET DE TYPE ATTACHE, LIAISONS ENTRE LES ELEMENTS 46 : C TEMPS : FLOTTANT, VALEUR DU TEMPS DE CALCUL 47 : C DT1 : FLOTTANT, VALEUR DU PAS DE TEMPS 48 : C CHARG1 : OBJET DE TYPE CHARGEMENT 49 : C GREEN : OBJET EVOLUTION CONTENANT LES FONCTIONS DE GREEN 50 : C FACULTATIVEMENT 51 : C M1 : ENTIER, INDICE DE TRONCATURE , SI 0 PAS DE TRONCATURE 52 : C NFOI : MOT CLE 53 : C NN : CHPOINT RESULTAT DANS L'OBJET SOLUTION TOUT LES NN PAS 54 : C 55 : C VERSION : JUIN 86 56 : C PROGRAMMEUR : GUILBAUD 57 : C MODIFIE PAR P.MANIGOT EN MARS 1988 58 : C MODIFIE PAR X.VACELET EN JUIN 1989 59 : C MODIFIE PAR e de langre dec 1992 60 : C 61 : C ===================================================================== 62 : C 63 : IMPLICIT INTEGER(I-N) 64 : IMPLICIT REAL*8(A-H,O-Z) 65 : -INC CCOPTIO 66 : CHARACTER*40 CHA1 67 : CHARACTER*40 CHA2 68 : C 68 : CALL LIRCHA(CHA1,1,IRETOU) 69 : IF (IERR.NE.0) RETURN 70 : C 71 : C 72 : C 73 : IF (CHA1(1:5).EQ.'TEMPS') THEN 73 : CALL LIRCHA(CHA2,1,IRETOU) 74 : IF (IERR.NE.0) RETURN 75 : IF (CHA2(1:6).EQ.'POUTRE') THEN 75 : CALL ELFTEM 76 : RETURN 77 : ENDIF 78 : C 79 : ELSEIF (CHA1(1:7).EQ.'LAPLACE') THEN 79 : CALL LIRCHA(CHA2,1,IRETOU) 80 : IF (IERR.NE.0) RETURN 81 : IF (CHA2(1:6).EQ.'POUTRE') THEN 81 : CALL ELLP00 82 : RETURN 83 : ELSEIF (CHA2(1:4).EQ.'ACOU') THEN 83 : CALL ELLA00 84 : RETURN 85 : ELSEIF (CHA2(1:6).EQ.'PLAQUE') THEN 85 : CALL ELPDY2 86 : RETURN 87 : ENDIF 88 : C 89 : ENDIF 90 : C 91 : RETURN 92 : C 93 : END 94 :
© Cast3M 2003 - All rights reserved.
Disclaimer