mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-26 14:31:44 +02:00
Removed traceback
This commit is contained in:
parent
93f1f74108
commit
92b9515f24
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user