diff --git a/src/gray_core.f90 b/src/gray_core.f90 index db73a26..5a2add2 100644 --- a/src/gray_core.f90 +++ b/src/gray_core.f90 @@ -237,7 +237,7 @@ contains do jk=1,params%raytracing%nray ! Save the step "zero" data call store_ray_data(params, equil, results%tables, & - i=0, jk=jk, s=stv(jk), P0=one, pos=yw(1:3,jk), & + i=0, jk=jk, s=stv(jk), P0=p0jk(jk), pos=yw(1:3,jk), & psi_n=-one, B=zero, b_n=[zero,zero,zero], k0=ak0, & N_pl=zero, N_pr=zero, N=yw(4:6,jk), N_pr_im=zero, & n_e=zero, T_e=zero, alpha=zero, tau=zero, dIds=zero, &