From d8424b27b559086cffe0881fb621abaa9f81dc5d Mon Sep 17 00:00:00 2001
From: Hongjian <fanghj1990@gmail.com>
Date: Sun, 19 Apr 2020 14:07:47 -0400
Subject: [PATCH] small bug fixed

---
 src/main.f90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/main.f90 b/src/main.f90
index de4d51e..51a0807 100644
--- a/src/main.f90
+++ b/src/main.f90
@@ -410,6 +410,7 @@ program SurfTomo
         ! ADDING REGULARIZATION TERM
         if (vorotomo /= 0) then
 
+            nrow = 0
             hvratio = dvxd*(nx-3)*111.19/depz(nz-1)
             dv = 0
             dvstd = 0
@@ -420,7 +421,8 @@ program SurfTomo
             do i = 1,nar
             nrow(iw(1+i)) = nrow(iw(1+i))+1
             enddo
-            print*,'no. of nonzero:',nar,minval(cbst),maxval(cbst)
+!            print*,sum(nrow(1:dall)),nar
+!            print*,'no. of nonzero:',nar!,minval(cbst),maxval(cbst)
             !$omp parallel &
             !$omp default(private) &
             !$omp shared(leniw,lenrw,col,nrow,rw,cbst,goxd,gozd,dvxd,dvzd,depz,maxvp) &