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