mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-23 04:43:45 +01:00
fock(3e) DGEMM
This commit is contained in:
parent
7d04a650b7
commit
90ff4af1a0
@ -227,6 +227,7 @@ BEGIN_PROVIDER [ double precision, Fock_matrix_tc_mo_beta, (mo_num,mo_num) ]
|
||||
|
||||
call ao_to_mo_bi_ortho( Fock_matrix_tc_ao_beta, size(Fock_matrix_tc_ao_beta, 1) &
|
||||
, Fock_matrix_tc_mo_beta, size(Fock_matrix_tc_mo_beta, 1) )
|
||||
|
||||
if(three_body_h_tc) then
|
||||
PROVIDE fock_3e_uhf_mo_b
|
||||
Fock_matrix_tc_mo_beta += fock_3e_uhf_mo_b
|
||||
|
@ -1120,7 +1120,7 @@ subroutine test_fock_3e_uhf_mo_cs()
|
||||
|
||||
PROVIDE fock_3e_uhf_mo_cs fock_3e_uhf_mo_cs_old
|
||||
|
||||
thr_ih = 1d-10
|
||||
thr_ih = 1d-8
|
||||
norm = 0.d0
|
||||
diff_tot = 0.d0
|
||||
|
||||
@ -1135,7 +1135,7 @@ subroutine test_fock_3e_uhf_mo_cs()
|
||||
print *, ' problem in fock_3e_uhf_mo_cs on ', j, i
|
||||
print *, ' old value = ', I_old
|
||||
print *, ' new value = ', I_new
|
||||
stop
|
||||
!stop
|
||||
endif
|
||||
|
||||
norm += dabs(I_old)
|
||||
@ -1159,7 +1159,7 @@ subroutine test_fock_3e_uhf_mo_a()
|
||||
|
||||
PROVIDE fock_3e_uhf_mo_a fock_3e_uhf_mo_a_old
|
||||
|
||||
thr_ih = 1d-10
|
||||
thr_ih = 1d-8
|
||||
norm = 0.d0
|
||||
diff_tot = 0.d0
|
||||
|
||||
@ -1174,7 +1174,7 @@ subroutine test_fock_3e_uhf_mo_a()
|
||||
print *, ' problem in fock_3e_uhf_mo_a on ', j, i
|
||||
print *, ' old value = ', I_old
|
||||
print *, ' new value = ', I_new
|
||||
stop
|
||||
!stop
|
||||
endif
|
||||
|
||||
norm += dabs(I_old)
|
||||
@ -1198,7 +1198,7 @@ subroutine test_fock_3e_uhf_mo_b()
|
||||
|
||||
PROVIDE fock_3e_uhf_mo_b fock_3e_uhf_mo_b_old
|
||||
|
||||
thr_ih = 1d-10
|
||||
thr_ih = 1d-8
|
||||
norm = 0.d0
|
||||
diff_tot = 0.d0
|
||||
|
||||
@ -1213,7 +1213,7 @@ subroutine test_fock_3e_uhf_mo_b()
|
||||
print *, ' problem in fock_3e_uhf_mo_b on ', j, i
|
||||
print *, ' old value = ', I_old
|
||||
print *, ' new value = ', I_new
|
||||
stop
|
||||
!stop
|
||||
endif
|
||||
|
||||
norm += dabs(I_old)
|
||||
|
Loading…
Reference in New Issue
Block a user