diff --git a/src/CalSurfG.f90 b/src/CalSurfG.f90
index b377e99..06b1005 100644
--- a/src/CalSurfG.f90
+++ b/src/CalSurfG.f90
@@ -1349,8 +1349,8 @@ subroutine CalSurfG(nx,ny,nz,nparpi,vels,iw,rw,col,dsurf, &
         ! a little stupid, remember to change latter
         if (igrt(srcnum,knumi) == 1) then
         call gridder(velf0)
-        count11=count11+1
         endif
+        count11=count11+1
         CALL rpaths(x,z,fdm,rcxf(istep,srcnum,knumi),rczf(istep,srcnum,knumi),writepath)
         row(1:nparpi)=0.0
         do jj=1,nvz
diff --git a/src/DSurfTomo b/src/DSurfTomo
index aa51c56..a8f2dea 100755
Binary files a/src/DSurfTomo and b/src/DSurfTomo differ
diff --git a/src/main.f90 b/src/main.f90
index dea509f..7c7e848 100644
--- a/src/main.f90
+++ b/src/main.f90
@@ -561,7 +561,7 @@ program SurfTomo
     do k=1,nz-1
       do j=1,ny-2
         do i=1,nx-2
-          write(64,'(5f8.4)') gozd+(j-1)*dvzd,goxd-(i-1)*dvxd,depz(k),vsf(i+1,j+1,k)
+          write(64,'(5f9.3)') gozd+(j-1)*dvzd,goxd-(i-1)*dvxd,depz(k),vsf(i+1,j+1,k)
         enddo
       enddo
     enddo
@@ -582,8 +582,8 @@ program SurfTomo
     do k=1,nz-1
       do j=1,ny-2
         do i=1,nx-2
-          write(65,'(5f8.4)') gozd+(j-1)*dvzd,goxd-(i-1)*dvxd,depz(k),vsftrue(i+1,j+1,k)
-          write(63,'(5f8.4)') gozd+(j-1)*dvzd,goxd-(i-1)*dvxd,depz(k),vsf(i+1,j+1,k)
+          write(65,'(5f9.3)') gozd+(j-1)*dvzd,goxd-(i-1)*dvxd,depz(k),vsftrue(i+1,j+1,k)
+          write(63,'(5f9.3)') gozd+(j-1)*dvzd,goxd-(i-1)*dvxd,depz(k),vsf(i+1,j+1,k)
         enddo
       enddo
     enddo
@@ -603,7 +603,7 @@ program SurfTomo
     do k=1,nz-1
       do j=1,ny-2
         do i=1,nx-2
-          write(64,'(5f8.4)') gozd+(j-1)*dvzd,goxd-(i-1)*dvxd,depz(k),vsf(i+1,j+1,k)
+          write(64,'(5f9.3)') gozd+(j-1)*dvzd,goxd-(i-1)*dvxd,depz(k),vsf(i+1,j+1,k)
         enddo
       enddo
     enddo