2014-05-19 18:35:56 +02:00
|
|
|
BEGIN_PROVIDER [double precision, mo_dipole_x , (mo_tot_num_align,mo_tot_num)]
|
|
|
|
&BEGIN_PROVIDER [double precision, mo_dipole_y , (mo_tot_num_align,mo_tot_num)]
|
|
|
|
&BEGIN_PROVIDER [double precision, mo_dipole_z , (mo_tot_num_align,mo_tot_num)]
|
|
|
|
BEGIN_DOC
|
|
|
|
! array of the integrals of MO_i * x MO_j
|
|
|
|
! array of the integrals of MO_i * y MO_j
|
|
|
|
! array of the integrals of MO_i * z MO_j
|
|
|
|
END_DOC
|
|
|
|
implicit none
|
|
|
|
|
2016-09-22 11:28:27 +02:00
|
|
|
call ao_to_mo( &
|
|
|
|
ao_dipole_x, &
|
|
|
|
size(ao_dipole_x,1), &
|
|
|
|
mo_dipole_x, &
|
2016-09-22 12:28:12 +02:00
|
|
|
size(mo_dipole_x,1) &
|
2016-09-22 11:28:27 +02:00
|
|
|
)
|
|
|
|
call ao_to_mo( &
|
|
|
|
ao_dipole_y, &
|
|
|
|
size(ao_dipole_y,1), &
|
|
|
|
mo_dipole_y, &
|
2016-09-22 12:28:12 +02:00
|
|
|
size(mo_dipole_y,1) &
|
2016-09-22 11:28:27 +02:00
|
|
|
)
|
|
|
|
call ao_to_mo( &
|
|
|
|
ao_dipole_z, &
|
|
|
|
size(ao_dipole_z,1), &
|
|
|
|
mo_dipole_z, &
|
2016-09-22 12:28:12 +02:00
|
|
|
size(mo_dipole_z,1) &
|
2016-09-22 11:28:27 +02:00
|
|
|
)
|
|
|
|
|
2014-05-19 18:35:56 +02:00
|
|
|
END_PROVIDER
|
|
|
|
|
|
|
|
BEGIN_PROVIDER [double precision, mo_spread_x , (mo_tot_num_align,mo_tot_num)]
|
|
|
|
&BEGIN_PROVIDER [double precision, mo_spread_y , (mo_tot_num_align,mo_tot_num)]
|
|
|
|
&BEGIN_PROVIDER [double precision, mo_spread_z , (mo_tot_num_align,mo_tot_num)]
|
|
|
|
BEGIN_DOC
|
|
|
|
! array of the integrals of MO_i * x^2 MO_j
|
|
|
|
! array of the integrals of MO_i * y^2 MO_j
|
|
|
|
! array of the integrals of MO_i * z^2 MO_j
|
|
|
|
END_DOC
|
|
|
|
implicit none
|
2016-09-22 11:28:27 +02:00
|
|
|
call ao_to_mo( &
|
|
|
|
ao_spread_x, &
|
|
|
|
size(ao_spread_x,1), &
|
|
|
|
mo_spread_x, &
|
2016-09-22 12:28:12 +02:00
|
|
|
size(mo_spread_x,1) &
|
2016-09-22 11:28:27 +02:00
|
|
|
)
|
|
|
|
call ao_to_mo( &
|
|
|
|
ao_spread_y, &
|
|
|
|
size(ao_spread_y,1), &
|
|
|
|
mo_spread_y, &
|
2016-09-22 12:28:12 +02:00
|
|
|
size(mo_spread_y,1) &
|
2016-09-22 11:28:27 +02:00
|
|
|
)
|
|
|
|
call ao_to_mo( &
|
|
|
|
ao_spread_z, &
|
|
|
|
size(ao_spread_z,1), &
|
|
|
|
mo_spread_z, &
|
2016-09-22 12:28:12 +02:00
|
|
|
size(mo_spread_z,1) &
|
2016-09-22 11:28:27 +02:00
|
|
|
)
|
2014-05-19 18:35:56 +02:00
|
|
|
END_PROVIDER
|
|
|
|
|