Esope source files

   1 : C CDP       SOURCE    CHAT      05/01/12    21:51:34     5004           
   2 :       SUBROUTINE CDP(TENS,ADP,RDP,VDP)                                          
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 :       DIMENSION TENS(3)                                                         
   6 : C                                                                               
   7 : C----------------------------------------------------                           
   8 : C     CETTE ROUTINE PERMET DE CALCULER LA VALEUR    |                           
   9 : C     DU DRUCKER PRAGER                             |                           
  10 : C----------------------------------------------------                           
  11 : C                                                                               
  12 :       VDP=TENS(1)*TENS(1)+TENS(2)*TENS(2)-TENS(1)*TENS(2)                       
  13 :      1 +3.D0*TENS(3)*TENS(3)                                                    
  14 :       VDP=SQRT(VDP)+ADP*(TENS(1)+TENS(2))-RDP                                   
  15 :       RETURN                                                                    
  16 :       END                                                                       
  17 :