Esope source files

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