C BMATSC    SOURCE    CHAT      05/01/12    21:41:15     5004           
      SUBROUTINE BMATSC(NBNO,LRE,SHPC,YOUNR,REL)    
C====================================================================C        
C                                                                    C 
C     INPUT                                                          C  
C                                                                    C 
C     NBNO           : NOMBRE DE NOEUDS                              C
C     LRE            : NOMBRE DE COLONNES DE LA MATRICE B            C      
C     SHPC(6,20,*) : FONCTIONS D'INTERPOLATION ET LEURS DERIVEES     C  
C     YOUNR          : MODULE D'YOUNG * AIRE D'ACIER / RADIUS        C
C                                                                    C 
C     OUTPUT                                                         C  
C                                                                    C 
C     REL(LRE,LRE)   : MATRICE DE RAIDEUR                            C 
C                                                                    C 
C====================================================================C 
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
      DIMENSION REL(LRE,*),SHPC(6,20,*) 
      DO 100 II=1,NBNO
C --- DNIM: la fonction d'interpolation Ni 
      DNIM=SHPC(1,II,1)
      I0=2*II-1
      DO 100 JJ=1,II
C --- DNJM: la fonction d'interpolation Nj 
      DNJM=SHPC(1,JJ,1)
      J0=2*JJ-1
C --- Bloc  II
      REL(I0,I0)=YOUNR*DNIM*DNIM
C --- Block IJ
      REL(I0,J0)=YOUNR*DNIM*DNJM
C --- Block JJ
      REL(J0,J0)=YOUNR*DNJM*DNJM  
      REL(J0,I0)=REL(I0,J0)
 100  CONTINUE
      END