Esope source files

   1 : C CPCONT    SOURCE    CHAT      05/01/12    22:26:00     5004           
   2 :       SUBROUTINE CPCONT(BDON,CDON,YNU,YOUN)                                     
   3 : C---------------------------------------------                                  
   4 : C   PERMET DE CALCULER LE TENSEUR EPSILLON                                      
   5 : C   A PARTIR DU TENSEUR SIGMA EN CONT 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))/YOUN                                        
  11 :       CDON(2)=(BDON(2)-YNU*BDON(1))/YOUN                                        
  12 :       CDON(3)=-(BDON(2)+BDON(1))/YOUN*YNU                                       
  13 :       CDON(4)=BDON(4)/YOUN*(1.D0+YNU)                                           
  14 :       RETURN                                                                    
  15 :       END                                                                       
  16 :