diff --git a/src/gray.f b/src/gray.f index 663f2e4..8c5124e 100644 --- a/src/gray.f +++ b/src/gray.f @@ -491,14 +491,14 @@ c If(index_rt.eq.1) then - write(4,*)' #sst R z phi psi rhot ne Te Br Bphi Bz Jphi'// - .' N Npl ki alpha tau Pt Jcd dIds nh iohkw index_rt' + write(4,*)' #sst R z phi psi rhot ne Te Br Bphi Bz Jphi '// + .'N Npl ki alpha tau Pt Jcd dIds nh iohkw index_rt' write(8,*) ' #istep j k xt yt zt rt psin' write(9,*) ' #istep j k xt yt zt rt psin' write(17,*) ' #sst Dr_11 Dr_Nr1 Di_Nr1' write(33,*) ' #i j k sst x y R z psi tauv Npl alpha' write(12,*) ' #i sst psi w1 w2' - write(7,*)'#Icd Pa Jphimx dPdVmx'// + write(7,*)'#Icd Pa Jphimx dPdVmx '// .'rhotj rhotjava rhotp rhotpav '// .'drhotjava drhotpav stmx polpsi polchi index_rt' write(48,*) '#psi rhot Jphi Jcda dPdV Icdins Pins P% index_rt'