Esope source files

   1 : C DISTZ3    SOURCE    CHAT      05/01/12    22:51:48     5004           
   2 : C DISTZZ3    SOURCE    LOYS      85/10/04    21:36:49                            
   3 :       SUBROUTINE DISTZ3(XEL,SHP,NBNO,ZZ3)                                        
   4 : C=====================================================================          
   5 : C                                                                               
   6 : C     CALCULE NE FONCTION DE LA COTE AU POINT D INTEGRATION                                   
   7 : C       LA SOMME  (ZZi * DERIVEE DE Ni PAR RAPPORT A ETA)                                                 
   8 :                                                  
   9 : C                                                                               
  10 : C   ENTREES                                                                     
  11 : C     XEL(3,NBNO)=COORDONNEES DE L ELEMENT                                      
  12 : C     SHP(6,NBNO)=FONCTIONS DE FORME ET DERIVEES DE L ELEMENT                   
  13 : C     NBNO       =NOMBRE DE NOEUDS DE L ELEMENT                                 
  14 : C   SORTIES                                                                     
  15 : C     ZZ3         =COTE AU POINT DE GAUSS (POUR L AXISYMMETRIQUE )              
  16 : C                                                                               
  17 : C=======================================================================        
  18 :       IMPLICIT INTEGER(I-N)
  19 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  20 :       DIMENSION XEL(3,*)                                                        
  21 :       DIMENSION SHP(6,*)                                                        
  22 :       ZZ3=0.D0                                                                   
  23 :       DO 100 IA=1,NBNO                                                          
  24 :       ZZ3=ZZ3+SHP(3,IA)*XEL(2,IA)                                                 
  25 :   100 CONTINUE                                                                  
  26 :       RETURN                                                                    
  27 :       END                                                                       
  28 :  
  29 :