PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-10-20 23:08:24 +02:00
Code Releases Activity

Less prints in truncate_wf

Browse Source
This commit is contained in:
Anthony Scemama 2024-09-27 16:25:10 +02:00
parent 44bfee0c6b
commit 13ae95fac5
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/tools/truncate_wf.irp.f
View File

@ -56,9 +56,14 @@ subroutine routine_s2
double precision :: accu(N_states)
print *, 'Weights of the CFG'
do i=1,N_det
integer :: step
step = max(1,N_det/100)
do i=1,N_det-1,step
print *, i, real(weight_configuration(det_to_configuration(i),:)), real(sum(weight_configuration(det_to_configuration(i),:)))
enddo
i=N_det
print *, i, real(weight_configuration(det_to_configuration(i),:)), real(sum(weight_configuration(det_to_configuration(i),:)))
print*, 'Min weight of the configuration?'
read(5,*) wmin