From 9f445e5cd19e44cc96e607b4003c4681893427d0 Mon Sep 17 00:00:00 2001 From: Lorenzo Figini Date: Thu, 11 Apr 2013 14:00:26 +0000 Subject: [PATCH] removed duplicate print in projxyzt --- src/gray.f | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/gray.f b/src/gray.f index 02db2b3..20aa448 100644 --- a/src/gray.f +++ b/src/gray.f @@ -422,11 +422,11 @@ c xxm=x*1.0d-2 yym=y*1.0d-2 c - if(index_rt.gt.1) then - taujk=tauv(j,k,i)+tau1v(j,k) - else - taujk=tauv(j,k,i) - end if + if(index_rt.gt.1) then + taujk=tauv(j,k,i)+tau1v(j,k) + else + taujk=tauv(j,k,i) + end if c central ray only begin if(j.eq.1) then @@ -5718,8 +5718,8 @@ c c end do c - if(.not.(iproj.eq.0.and.j.eq.1)) - . write(nfile,111) istep,j,k,xti,yti,zti,rti,psinv11 +c if(.not.(iproj.eq.0.and.j.eq.1)) +c . write(nfile,111) istep,j,k,xti,yti,zti,rti,psinv11 if(iproj.eq.1) write(nfile,*) ' ' end do c