Esope source files

   1 : C JOIGR1    SOURCE    AM        11/05/03    21:17:18     6955           
   2 :       SUBROUTINE JOIGR1(DEPLA,GRAD,LRE,NGRA,IDIM)
   3 : C-----------------------------------------------------------------------        
   4 : C  ROUTINE DE CALCUL DES GRADIENTS POUR L'ELEMENT JOI1
   5 : C                                                                               
   6 : C  ENTREE                                                                       
   7 : C          DEPLA   DEPLACEMENTS                                  
   8 : C                                                                               
   9 : C  SORTIE                                                                       
  10 : C          GRAD    GRADIENTS AUX 2 NOEUDS    6 PAR NOEUD
  11 : C-----------------------------------------------------------------------        
  12 :       IMPLICIT INTEGER(I-N)
  13 :       IMPLICIT REAL*8(A-H,O-Z)
  14 :       DIMENSION GRAD(*),DEPLA(LRE)                                                     
  15 : *  CALCUL DES GRADIENTS
  15 :       CALL ZERO(GRAD,NGRA,1)
  16 :       IF(IDIM.EQ.3) THEN                                                                         
  17 :        GRAD(1)=(DEPLA(7)-DEPLA(1))
  18 :        GRAD(4)=(DEPLA(8)-DEPLA(2))
  19 :        GRAD(7)=(DEPLA(9)-DEPLA(3))
  20 :       ELSE IF(IDIM.EQ.2) THEN 
  21 :        GRAD(1)=(DEPLA(4)-DEPLA(1))
  22 :        GRAD(3)=(DEPLA(5)-DEPLA(2))
  23 :       ENDIF
  24 :       RETURN                                                                    
  25 :       END                                                                       
  26 :  
  27 :  
  28 :  
  29 :