1 : C TQUA4 SOURCE CHAT 05/01/13 03:44:06 5004 2 : SUBROUTINE TQUA4(POINTS,IINTE) 3 : ************************************************************************ 4 : * 5 : * T Q U A 4 6 : * --------- 7 : * 8 : * FONCTION: 9 : * --------- 10 : * ACQUISITION DES CARACTERISTIQUES D'INTEGRATION 11 : * POUR L'ELEMENT DE THERMIQUE QUA4 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 : * NBPGAU NOMBRE DE POINTS DE GAUSS. 31 : * NBNO NOMBRE DE NOEUDS DANS L'ELEMENT. 32 : * 33 : * VARIABLES: 34 : * ---------- 35 : * 36 : SAVE IPINT1,IPINT2 37 : * 38 : * AUTEUR, DATE DE CREATION: 39 : * ------------------------- 40 : * 41 : * DENIS ROBERT,LE 22 DECEMBRE 1987. 42 : * 43 : * LANGAGE: 44 : * -------- 45 : * 46 : * ESOPE + FORTRAN77 47 : * 48 : ************************************************************************ 49 : DATA IPINT1,IPINT2 /0,0/ 50 : * 51 : IF (IPINT1.NE.0.AND.POINTS(1:5).EQ.'GAUSS') THEN 52 : IINTE=IPINT1 53 : ELSEIF (IPINT2.NE.0.AND.POINTS(1:5).EQ.'NOEUD') THEN 54 : IINTE=IPINT2 55 : ELSE 56 : NBPGAU=4 57 : NBNO=4 58 : * 59 : SEGINI,MINTE 60 : IINTE=MINTE 61 : IF(POINTS(1:5).EQ.'GAUSS')THEN 62 : IPINT1=IINTE 63 : ELSE 64 : IPINT2=IINTE 65 : ENDIF 65 : CALL TQUA4A(POINTS,QSIGAU,ETAGAU,POIGAU,SHPTOT) 66 : SEGDES,MINTE 66 : CALL SAVSEG(IINTE) 67 : ENDIF 68 : * 69 : END 70 :
© Cast3M 2003 - All rights reserved.
Disclaimer