LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-25 13:53:49 +01:00
Code Issues Releases Wiki Activity

Removed traceback

Browse Source
This commit is contained in:
Anthony Scemama 2018-07-27 11:48:50 +02:00
parent 93f1f74108
commit 92b9515f24
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/Determinants/Fock_diag.irp.f
View File

@ -22,18 +22,18 @@ subroutine build_fock_tmp(fock_diag_tmp,det_ref,Nint)
if (Ne(1) /= elec_alpha_num) then if (Ne(1) /= elec_alpha_num) then
print *, 'Error in build_fock_tmp (alpha)', Ne(1), Ne(2) print *, 'Error in build_fock_tmp (alpha)', Ne(1), Ne(2)
call debug_det(det_ref,N_int) call debug_det(det_ref,N_int)
print *, occ(:,1) ! print *, occ(:,1)
print *, occ(:,2) ! print *, occ(:,2)
do i=1,10000 ! do i=1,10000
occ(i,1) = fock_diag_tmp(1,mo_tot_num+i) !traceback ! occ(i,1) = fock_diag_tmp(1,mo_tot_num+i) !traceback
enddo ! enddo
stop -1 stop -1
endif endif
if (Ne(2) /= elec_beta_num) then if (Ne(2) /= elec_beta_num) then
print *, 'Error in build_fock_tmp (beta)', Ne(1), Ne(2) ! print *, 'Error in build_fock_tmp (beta)', Ne(1), Ne(2)
do i=1,10000 ! do i=1,10000
occ(i,1) = fock_diag_tmp(1,mo_tot_num+i) !traceback ! occ(i,1) = fock_diag_tmp(1,mo_tot_num+i) !traceback
enddo ! enddo
stop -1 stop -1
endif endif