corrected error in print of resonance radius for analytical equilibrium

2013-05-16 09:27:25 +00:00 · 2013-05-16 09:27:25 +00:00 · 1cc09021c0
commit 1cc09021c0
parent a93b56495c
1 changed files with 1 additions and 1 deletions
--- 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