1 : C TTET4F SOURCE CHAT 05/01/13 03:54:32 5004 2 : SUBROUTINE TTET4F(POINTS,IINTE) 3 : ************************************************************************ 4 : * 5 : * T T E T 4 F 6 : * ----------- 7 : * 8 : * FONCTION: 9 : * --------- 10 : * ACQUISITION DES CARACTERISTIQUES D'INTEGRATION 11 : * POUR L'ELEMENT DE THERMIQUE TET4 12 : * 13 : * 14 : * MODULES UTILISES: 15 : * ----------------- 16 : * 17 : IMPLICIT INTEGER(I-N) 18 : -INC SMINTE 19 : * 20 : * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN) 21 : * ----------- 22 : * 23 : * POINTS (E) CHAINE DE CARACTERES: 'NOEUDS' OU 'GAUSS' 24 : * IINTE (S) ENTIER,POINTEUR SUR LE SEGMENT MINTE. 25 : * 26 : CHARACTER*(*) POINTS 27 : * 28 : * CONSTANTES: 29 : * ----------- 30 : * 31 : * NBPGAU NOMBRE DE POINTS DE GAUSS. 32 : * NBNO NOMBRE DE NOEUDS DANS L'ELEMENT. 33 : * 34 : * VARIABLES: 35 : * ---------- 36 : * 37 : SAVE IPINT1,IPINT2 38 : * 39 : * AUTEUR, DATE DE CREATION: 40 : * ------------------------- 41 : * 42 : * DENIS ROBERT,LE 16 FEVRIER 1988. 43 : * 44 : * LANGAGE: 45 : * -------- 46 : * 47 : * ESOPE + FORTRAN77 48 : * 49 : ************************************************************************ 50 : DATA IPINT1,IPINT2 /0,0/ 51 : * 52 : IF (IPINT1.NE.0.AND.POINTS(1:5).EQ.'GAUSS') THEN 53 : IINTE=IPINT1 54 : ELSEIF (IPINT2.NE.0.AND.POINTS(1:5).EQ.'NOEUD') THEN 55 : IINTE=IPINT2 56 : ELSE 57 : NBPGAU=5 58 : NBNO=4 59 : * 60 : SEGINI,MINTE 61 : IINTE=MINTE 62 : IF(POINTS(1:5).EQ.'GAUSS')THEN 63 : IPINT1=IINTE 64 : ELSE 65 : IPINT2=IINTE 66 : ENDIF 66 : CALL TTET4A(POINTS,QSIGAU,ETAGAU,DZEGAU,POIGAU,SHPTOT) 67 : SEGDES,MINTE 67 : CALL SAVSEG(IINTE) 68 : ENDIF 69 : * 70 : END 71 :
© Cast3M 2003 - All rights reserved.
Disclaimer