LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-24 13:23:41 +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
print *, 'Error in build_fock_tmp (alpha)', Ne(1), Ne(2)
call debug_det(det_ref,N_int)
print *, occ(:,1)
print *, occ(:,2)
do i=1,10000
occ(i,1) = fock_diag_tmp(1,mo_tot_num+i) !traceback
enddo
! print *, occ(:,1)
! print *, occ(:,2)
! do i=1,10000
! occ(i,1) = fock_diag_tmp(1,mo_tot_num+i) !traceback
! enddo
stop -1
endif
if (Ne(2) /= elec_beta_num) then
print *, 'Error in build_fock_tmp (beta)', Ne(1), Ne(2)
do i=1,10000
occ(i,1) = fock_diag_tmp(1,mo_tot_num+i) !traceback
enddo
! print *, 'Error in build_fock_tmp (beta)', Ne(1), Ne(2)
! do i=1,10000
! occ(i,1) = fock_diag_tmp(1,mo_tot_num+i) !traceback
! enddo
stop -1
endif