1 : C BMATSC SOURCE CHAT 05/01/12 21:41:15 5004 2 : SUBROUTINE BMATSC(NBNO,LRE,SHPC,YOUNR,REL) 3 : C====================================================================C 4 : C C 5 : C INPUT C 6 : C C 7 : C NBNO : NOMBRE DE NOEUDS C 8 : C LRE : NOMBRE DE COLONNES DE LA MATRICE B C 9 : C SHPC(6,20,*) : FONCTIONS D'INTERPOLATION ET LEURS DERIVEES C 10 : C YOUNR : MODULE D'YOUNG * AIRE D'ACIER / RADIUS C 11 : C C 12 : C OUTPUT C 13 : C C 14 : C REL(LRE,LRE) : MATRICE DE RAIDEUR C 15 : C C 16 : C====================================================================C 17 : IMPLICIT INTEGER(I-N) 18 : IMPLICIT REAL*8(A-H,O-Z) 19 : DIMENSION REL(LRE,*),SHPC(6,20,*) 20 : DO 100 II=1,NBNO 21 : C --- DNIM: la fonction d'interpolation Ni 22 : DNIM=SHPC(1,II,1) 23 : I0=2*II-1 24 : DO 100 JJ=1,II 25 : C --- DNJM: la fonction d'interpolation Nj 26 : DNJM=SHPC(1,JJ,1) 27 : J0=2*JJ-1 28 : C --- Bloc II 29 : REL(I0,I0)=YOUNR*DNIM*DNIM 30 : C --- Block IJ 31 : REL(I0,J0)=YOUNR*DNIM*DNJM 32 : C --- Block JJ 33 : REL(J0,J0)=YOUNR*DNJM*DNJM 34 : REL(J0,I0)=REL(I0,J0) 35 : 100 CONTINUE 36 : END 37 : 38 :
© Cast3M 2003 - All rights reserved.
Disclaimer