zhangyiss/DSurfTomo
1
0
Fork 0
mirror of https://github.com/HongjianFang/DSurfTomo.git synced 2025-05-08 00:01:14 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

small bug fixed

Browse Source
This commit is contained in:
Hongjian 2020-04-19 14:07:47 -04:00
parent 74e80f4b74
commit d8424b27b5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/main.f90
View File

@ -410,6 +410,7 @@ program SurfTomo
! ADDING REGULARIZATION TERM ! ADDING REGULARIZATION TERM
if (vorotomo /= 0) then if (vorotomo /= 0) then
nrow = 0
hvratio = dvxd*(nx-3)*111.19/depz(nz-1) hvratio = dvxd*(nx-3)*111.19/depz(nz-1)
dv = 0 dv = 0
dvstd = 0 dvstd = 0
@ -420,7 +421,8 @@ program SurfTomo
do i = 1,nar do i = 1,nar
nrow(iw(1+i)) = nrow(iw(1+i))+1 nrow(iw(1+i)) = nrow(iw(1+i))+1
enddo 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 parallel &
!$omp default(private) & !$omp default(private) &
!$omp shared(leniw,lenrw,col,nrow,rw,cbst,goxd,gozd,dvxd,dvzd,depz,maxvp) & !$omp shared(leniw,lenrw,col,nrow,rw,cbst,goxd,gozd,dvxd,dvzd,depz,maxvp) &