diff --git a/src/Determinants/Fock_diag.irp.f b/src/Determinants/Fock_diag.irp.f index 75c577ed..396926c9 100644 --- a/src/Determinants/Fock_diag.irp.f +++ b/src/Determinants/Fock_diag.irp.f @@ -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