From 512dfb253201ee014f0761438f8a83b1b5e3ad73 Mon Sep 17 00:00:00 2001
From: jmlloren <jmlloren>
Date: Wed, 9 Mar 2005 15:37:14 +0000
Subject: [PATCH] Incluido el desplazamiento para un material isotropo.

---
 displ_mod.f90 | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

diff --git a/displ_mod.f90 b/displ_mod.f90
index fc9fe90..061df51 100755
--- a/displ_mod.f90
+++ b/displ_mod.f90
@@ -10,23 +10,19 @@ CONTAINS
      REAL, INTENT(IN   ) :: CHI
      REAL, INTENT(  OUT) :: EESUM,EEDIF,UUZZ
 
-     DOUBLE PRECISION :: AASUM,AADIF,AAPZ
+     DOUBLE PRECISION :: AASUM,AADIF,AAZZ
 
      !!! COMMON
      REAL :: RHO,ZETA,ETA
      COMMON /QAGON/RHO,ZETA,ETA
 
-!    ETA=1.E0
-!    CALL DPREST(AASUM,AADIF,AAPZ)
+     ETA=1.E0
+     CALL DPREST(AASUM,AADIF,AAZZ)
 
-!    EESUM = - BIAUX*(AASUM+CHI)+BISUM*CHI
-!    EEZZ  = + BIAUX*(AASUM+CHI)+BIZZ*CHI
-!    EEDIF = BIAUX*(AADIF-CHI)
-!    EERZ  = BIAUX*AARZ
+     EESUM = - BIAUX*(AASUM+CHI)
+     EEDIF = BIAUX*(AADIF-CHI)
+     UUZZ  = -BIAUX*AAZZ
 
-     WRITE(6,*)"NOT IMPLEMENTED YET. STOP"
-     STOP
-     
    END SUBROUTINE DSPLISO
 
    SUBROUTINE DSPLANISO(EESUM,EEDIF,UUZ,CHI)
-- 
2.11.4.GIT