diff --git a/src/gray.f b/src/gray.f
index 1191d54..7099036 100644
--- a/src/gray.f
+++ b/src/gray.f
@@ -1019,7 +1019,7 @@ c
       implicit none
 c local variables
       integer :: i,k,ierr
-      real(wp_) :: rni,rres,zzres,zmx,zmn,dal,drn,drrm,dzzm,rrm,zzm,zrm
+      real(wp_) :: rni,rres,zzres,zmx,zmn,dal,drn,drrm,dzzm,rrm,zzm
 c common/external functions/variables
       real(wp_) :: bres
 c
@@ -1044,7 +1044,7 @@ c
           rrm=rr0m+drrm
           zzm=zr0m+dzzm
           rcon(i,k)=rrm
-          zcon(i,k)=zrm
+          zcon(i,k)=zzm
           write(71,111) i,rni,rrm,zzm
         end do
         write(71,*) ' '