From 615306005662e03bfc6fdcf2b5f10710774e9a2f Mon Sep 17 00:00:00 2001 From: Daniela Farina Date: Tue, 10 Jul 2012 12:22:00 +0000 Subject: [PATCH] modified header of file 7 --- src/gray.f | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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'