From b83b6f0f5b68396e97b5eef421e3e5365513c1b6 Mon Sep 17 00:00:00 2001
From: Lorenzo Figini <lorenzo.figini@istp.cnr.it>
Date: Thu, 21 Feb 2013 09:48:15 +0000
Subject: [PATCH] added missing save in common for ddr11 variable

---
 src/gray.f | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/gray.f b/src/gray.f
index 1d92780..16e3505 100644
--- a/src/gray.f
+++ b/src/gray.f
@@ -399,7 +399,7 @@ c
       common/epolar/ex,ey,ez
 c
       common/nplr/anpl,anpr
-      common/ddd/ddr,an2s,an2,fdia,bdotgr,ddi
+      common/ddd/ddr,an2s,an2,fdia,bdotgr,ddi,ddr11
       common/nprw/anprr,anpri
 c
       common/wrk/ywrk,ypwrk
@@ -515,7 +515,7 @@ c
 
       else
 
-      If(index_rt.eq.3) then
+c      If(index_rt.eq.3) then
       write(4,*) ' '
       write(8,*) ' '
       write(9,*) ' '
@@ -523,7 +523,7 @@ c
       write(12,*) ' '
       write(48,*) ' '
 
-      end if
+c      end if
       end if
       return
       end
@@ -2976,7 +2976,7 @@ c
 c
       common/gr/gr2
       common/dgr/dgr2,dgr,ddgr
-      common/ddd/dd,an2s,an2,fdia,bdotgr,ddi
+      common/ddd/dd,an2s,an2,fdia,bdotgr,ddi,ddr11
       common/mode/sox
       common/nplr/anpl,anpr
       common/bb/bv
@@ -3736,7 +3736,7 @@ c
       common/dgrad2jk/dgrad2v
       common/gradjk/gri
       common/ggradjk/ggri
-      common/ddd/dd,an2s,an2,fdia,bdotgr,ddi
+      common/ddd/dd,an2s,an2,fdia,bdotgr,ddi,ddr11
 c
       ui=(0.0d0,1.0d0)
       csth=anz0c
@@ -3997,7 +3997,7 @@ c
       common/dgrad2jk/dgrad2v
       common/gradjk/gri
       common/ggradjk/ggri
-      common/ddd/dd,an2s,an2,fdia,bdotgr,ddi
+      common/ddd/dd,an2s,an2,fdia,bdotgr,ddi,ddr11
 c
       csth=anz0c
       snth=sqrt(1.0d0-csth**2)
@@ -4148,7 +4148,7 @@ c
       common/dgrad2jk/dgrad2v
       common/gradjk/gri
       common/ggradjk/ggri
-      common/ddd/dd,an2s,an2,fdia,bdotgr,ddi
+      common/ddd/dd,an2s,an2,fdia,bdotgr,ddi,ddr11
       common/yyrfl/yyrfl
 
       do j=1,nrayr