Esope source files

   1 : C DPCONT    SOURCE    CHAT      05/01/12    22:54:38     5004           
   2 :       SUBROUTINE DPCONT(BDON,CDON,YNU,YOUN)                                     
   3 : C---------------------------------------------                                  
   4 : C   PERMET DE CALCULER LE TENSEUR EPSILLON                                      
   5 : C   A PARTIR DU TENSEUR SIGMA EN DEFO PLANES                                    
   6 : C---------------------------------------------                                  
   7 :       IMPLICIT INTEGER(I-N)
   8 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   9 :       DIMENSION CDON(*),BDON(*)                                                 
  10 :       CDON(1)=(BDON(1)-YNU*BDON(2)-YNU*BDON(3))/YOUN                            
  11 :       CDON(2)=(BDON(2)-YNU*BDON(1)-YNU*BDON(3))/YOUN                            
  12 :       CDON(3)=0.D0                                                              
  13 :       CDON(4)=BDON(4)/YOUN*(1.D0+YNU)                                           
  14 :       RETURN                                                                    
  15 :       END                                                                       
  16 :