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

disable output of lsmr

Browse Source
This commit is contained in:
Hongjian Fang 2020-04-21 06:54:49 -04:00
parent d8424b27b5
commit e4d1c1549f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/voronoiproj.f90
View File

@ -158,14 +158,14 @@ subroutine voronoiproj(leniw,lenrw,colg,nrow,rw,dres,goxd,dvxd,gozd,dvzd,depz,&
! using lsmr to solve for the projection coefficients ! using lsmr to solve for the projection coefficients
!print*, 'LSMR beginning ...' !print*, 'LSMR beginning ...'
!nout = -1 nout = -1
nout = 36 !nout = 36
open(nout,file='lsmrout_sub.txt') !open(nout,file='lsmrout_sub.txt')
call LSMR(nd, ncells, leniwgp, lenrwgp,iwgp,rwgp,dres,damp,& call LSMR(nd, ncells, leniwgp, lenrwgp,iwgp,rwgp,dres,damp,&
atol, btol, conlim, itnlim, localSize,nout,& atol, btol, conlim, itnlim, localSize,nout,&
xunknown, istop, itn, anorm, acond,rnorm, arnorm, xnorm) xunknown, istop, itn, anorm, acond,rnorm, arnorm, xnorm)
close(nout) !close(nout)
do ii = 1,ncells do ii = 1,ncells
xunknown(ii) = xunknown(ii)/norm(ii) xunknown(ii) = xunknown(ii)/norm(ii)
enddo enddo