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