From f5bd253c51b4a0ab9fc7e7940badf053247f04f0 Mon Sep 17 00:00:00 2001
From: jmlloren <jmlloren>
Date: Thu, 21 Jul 2005 16:12:27 +0000
Subject: [PATCH] Modificado el calculo del potencial de confinamiento en la
 region de la WL. Solamente estaba implementada la region del punto cuantico.

---
 pot_slat.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pot_slat.f90 b/pot_slat.f90
index 112de84..5508c9a 100755
--- a/pot_slat.f90
+++ b/pot_slat.f90
@@ -1003,7 +1003,7 @@ XD:   DO I_X=1,XDim
           END IF
 
           CHI = 0
-          IF (RHO.LE.RD.AND.ZETA.GE.-D.AND.ZETA.LE.ZM) THEN
+          IF (ZETA.GE.-D.AND.ZETA.LE.ZM) THEN
                   CHI = 1
                   IF(I_N1.NE.0.OR.I_N2.NE.0.OR.I_N3.NE.0) THEN
                           WRITE(16,*)I_N1,I_N2,I_N3
-- 
2.11.4.GIT