mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-17 01:31:47 +02:00
56 lines
1.9 KiB
Fortran
56 lines
1.9 KiB
Fortran
|
|
||
|
subroutine give_all_mos_at_r(r,mos_array)
|
||
|
implicit none
|
||
|
double precision, intent(in) :: r(3)
|
||
|
double precision, intent(out) :: mos_array(mo_num)
|
||
|
double precision :: aos_array(ao_num)
|
||
|
call give_all_aos_at_r(r,aos_array)
|
||
|
call dgemv('N',mo_num,ao_num,1.d0,mo_coef_transp,mo_num,aos_array,1,0.d0,mos_array,1)
|
||
|
end
|
||
|
|
||
|
subroutine give_all_mos_and_grad_at_r(r,mos_array,mos_grad_array)
|
||
|
implicit none
|
||
|
double precision, intent(in) :: r(3)
|
||
|
double precision, intent(out) :: mos_array(mo_num)
|
||
|
double precision, intent(out) :: mos_grad_array(mo_num,3)
|
||
|
integer :: i,j,k
|
||
|
double precision :: aos_array(ao_num),aos_grad_array(ao_num,3)
|
||
|
call give_all_aos_and_grad_at_r(r,aos_array,aos_grad_array)
|
||
|
mos_array=0d0
|
||
|
mos_grad_array=0d0
|
||
|
do j = 1, mo_num
|
||
|
do k=1, ao_num
|
||
|
mos_array(j) += mo_coef(k,j)*aos_array(k)
|
||
|
mos_grad_array(j,1) += mo_coef(k,j)*aos_grad_array(k,1)
|
||
|
mos_grad_array(j,2) += mo_coef(k,j)*aos_grad_array(k,2)
|
||
|
mos_grad_array(j,3) += mo_coef(k,j)*aos_grad_array(k,3)
|
||
|
enddo
|
||
|
enddo
|
||
|
end
|
||
|
|
||
|
|
||
|
subroutine give_all_mos_and_grad_and_lapl_at_r(r,mos_array,mos_grad_array,mos_lapl_array)
|
||
|
implicit none
|
||
|
double precision, intent(in) :: r(3)
|
||
|
double precision, intent(out) :: mos_array(mo_num)
|
||
|
double precision, intent(out) :: mos_grad_array(mo_num,3),mos_lapl_array(mo_num,3)
|
||
|
integer :: i,j,k
|
||
|
double precision :: aos_array(ao_num),aos_grad_array(ao_num,3),aos_lapl_array(ao_num,3)
|
||
|
call give_all_aos_and_grad_and_lapl_at_r(r,aos_array,aos_grad_array,aos_lapl_array)
|
||
|
mos_array=0d0
|
||
|
mos_grad_array=0d0
|
||
|
mos_lapl_array=0d0
|
||
|
do j = 1, mo_num
|
||
|
do k=1, ao_num
|
||
|
mos_array(j) += mo_coef(k,j)*aos_array(k)
|
||
|
mos_grad_array(j,1) += mo_coef(k,j)*aos_grad_array(k,1)
|
||
|
mos_grad_array(j,2) += mo_coef(k,j)*aos_grad_array(k,2)
|
||
|
mos_grad_array(j,3) += mo_coef(k,j)*aos_grad_array(k,3)
|
||
|
mos_lapl_array(j,1) += mo_coef(k,j)*aos_lapl_array(k,1)
|
||
|
mos_lapl_array(j,2) += mo_coef(k,j)*aos_lapl_array(k,2)
|
||
|
mos_lapl_array(j,3) += mo_coef(k,j)*aos_lapl_array(k,3)
|
||
|
enddo
|
||
|
enddo
|
||
|
end
|
||
|
|