From 1cc09021c0928ebdc87da62afe5d996c3505de10 Mon Sep 17 00:00:00 2001
From: Lorenzo Figini <lorenzo.figini@istp.cnr.it>
Date: Thu, 16 May 2013 09:27:25 +0000
Subject: [PATCH] corrected error in print of resonance radius for analytical
 equilibrium

---
 src/gray.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/gray.f b/src/gray.f
index 46505e2..3d48d4a 100644
--- a/src/gray.f
+++ b/src/gray.f
@@ -933,7 +933,7 @@ c
 c     print resonant B iequil=1
 c
       write(70,*)'#i Btot  R  z'
-      rres=bres*rr0m/b0
+      rres=b0*rr0m/bres
       zmx=zr0m+rpam
       zmn=zr0m-rpam
       do i=1,21