From 592dc2462d87ec2b6e99beb8e369be693d0a3605 Mon Sep 17 00:00:00 2001
From: jmlloren <jmlloren>
Date: Fri, 2 Sep 2005 08:33:05 +0000
Subject: [PATCH] Se fijan las constantes aun cuando solo se solicita el
 calculo del potencial de confinamiento. De otra forma la deformacion
 homogenea no esta bien calculada.

---
 poten.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/poten.f90 b/poten.f90
index 6286235..cb0d2b0 100755
--- a/poten.f90
+++ b/poten.f90
@@ -152,6 +152,8 @@
  
       IF(POT_Action.NE.0) THEN
 
+         IF (STR_Action.EQ.0 .AND. PZO_Action.EQ.0) CALL CONSTANTS_STR( )
+
          WRITE(6,*)"Begins the calculation of the Confinement Potential"
 
          ALLOCATE (EEL(1:XDim,1:YDim,1:ZDim),EHHUP(1:XDim,1:YDim,1:ZDim), &
-- 
2.11.4.GIT