Esope source files

   1 : C DEFJOI    SOURCE    AM        11/05/03    21:15:39     6955           
   2 : C POUGR1    SOURCE    AM        10/09/20    21:15:23     6756           
   3 :       SUBROUTINE DEFJOI(DEPL,LRE,DEFO,NDEP)
   4 : C-----------------------------------------------------------------------        
   5 : C  ROUTINE DE CALCUL DES DEFORMATIONS POUR L'ELEMENT JOI1
   6 : C                                                                               
   7 : C  ENTREE                                                                       
   8 : C          DEPL   DEPLACEMENTS                                  
   9 : C                                                                               
  10 : C  SORTIE                                                                       
  11 : C          DEFO    DEFORMATIONS
  12 : C-----------------------------------------------------------------------        
  13 :       IMPLICIT INTEGER(I-N)
  14 :       IMPLICIT REAL*8(A-H,O-Z)
  15 :       DIMENSION DEFO(*),DEPL(LRE)                                                     
  16 : *  CALCUL DES DEFORMATIONS
  17 :       DO I=1,NDEP                                                                     
  18 :        DEFO(I)=(DEPL(I+NDEP)-DEPL(I))
  19 :       ENDDO
  20 :       RETURN                                                                    
  21 :       END       
  22 :