2014-05-25 01:18:41 +02:00
|
|
|
BEGIN_PROVIDER [ double precision, H_matrix_all_dets,(N_det,N_det) ]
|
2014-05-13 13:57:58 +02:00
|
|
|
implicit none
|
|
|
|
|
BEGIN_DOC
|
2014-10-27 22:06:03 +01:00
|
|
|
! H matrix on the basis of the slater determinants defined by psi_det
|
2014-05-13 13:57:58 +02:00
|
|
|
END_DOC
|
|
|
|
|
integer :: i,j
|
|
|
|
|
double precision :: hij
|
2014-09-29 18:17:30 +02:00
|
|
|
call i_H_j(psi_det(1,1,1),psi_det(1,1,1),N_int,hij)
|
|
|
|
|
!$OMP PARALLEL DO SCHEDULE(GUIDED) PRIVATE(i,j,hij) &
|
|
|
|
|
!$OMP SHARED (N_det, psi_det, N_int,H_matrix_all_dets)
|
2014-05-13 13:57:58 +02:00
|
|
|
do i =1,N_det
|
|
|
|
|
do j =i,N_det
|
|
|
|
|
call i_H_j(psi_det(1,1,i),psi_det(1,1,j),N_int,hij)
|
|
|
|
|
H_matrix_all_dets(i,j) = hij
|
|
|
|
|
H_matrix_all_dets(j,i) = hij
|
|
|
|
|
enddo
|
|
|
|
|
enddo
|
2014-09-29 18:17:30 +02:00
|
|
|
!$OMP END PARALLEL DO
|
2014-05-13 13:57:58 +02:00
|
|
|
END_PROVIDER
|
2014-05-25 01:18:41 +02:00
|
|
|
|
