LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-11-03 20:54:00 +01:00
Code Issues Releases Wiki Activity

Bug with gfortran

Browse Source
This commit is contained in:
Anthony Scemama 2016-09-22 12:28:12 +02:00
parent dd60cda0ee
commit 69a60559eb
4 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Integrals_Monoelec/kin_mo_ints.irp.f
View File

@ -13,7 +13,7 @@ BEGIN_PROVIDER [double precision, mo_kinetic_integral, (mo_tot_num_align,mo_tot_
ao_kinetic_integral, &
size(ao_kinetic_integral,1), &
mo_kinetic_integral, &
size(mo_kinetic_integral,1), &
size(mo_kinetic_integral,1) &
)
endif
if (write_mo_one_integrals) then

4
src/Integrals_Monoelec/pot_mo_ints.irp.f
View File

@ -15,7 +15,7 @@ BEGIN_PROVIDER [double precision, mo_nucl_elec_integral, (mo_tot_num_align,mo_to
ao_nucl_elec_integral, &
size(ao_nucl_elec_integral,1), &
mo_nucl_elec_integral, &
size(mo_nucl_elec_integral,1), &
size(mo_nucl_elec_integral,1) &
)
endif
if (write_mo_one_integrals) then
@ -42,7 +42,7 @@ BEGIN_PROVIDER [double precision, mo_nucl_elec_integral_per_atom, (mo_tot_num_al
ao_nucl_elec_integral_per_atom(1,1,k), &
size(ao_nucl_elec_integral_per_atom,1), &
mo_nucl_elec_integral_per_atom(1,1,k), &
size(mo_nucl_elec_integral_per_atom,1), &
size(mo_nucl_elec_integral_per_atom,1) &
)
enddo
END_PROVIDER

2
src/Integrals_Monoelec/pot_mo_pseudo_ints.irp.f
View File

@ -13,7 +13,7 @@ BEGIN_PROVIDER [double precision, mo_pseudo_integral, (mo_tot_num_align,mo_tot_n
ao_pseudo_integral, &
size(ao_pseudo_integral,1), &
mo_pseudo_integral, &
size(mo_pseudo_integral,1), &
size(mo_pseudo_integral,1) &
)
endif
if (write_mo_one_integrals) then

12
src/Integrals_Monoelec/spread_dipole_mo.irp.f
View File

@ -12,19 +12,19 @@
ao_dipole_x, &
size(ao_dipole_x,1), &
mo_dipole_x, &
size(mo_dipole_x,1), &
size(mo_dipole_x,1) &
)
call ao_to_mo( &
ao_dipole_y, &
size(ao_dipole_y,1), &
mo_dipole_y, &
size(mo_dipole_y,1), &
size(mo_dipole_y,1) &
)
call ao_to_mo( &
ao_dipole_z, &
size(ao_dipole_z,1), &
mo_dipole_z, &
size(mo_dipole_z,1), &
size(mo_dipole_z,1) &
)
END_PROVIDER
@ -42,19 +42,19 @@ END_PROVIDER
ao_spread_x, &
size(ao_spread_x,1), &
mo_spread_x, &
size(mo_spread_x,1), &
size(mo_spread_x,1) &
)
call ao_to_mo( &
ao_spread_y, &
size(ao_spread_y,1), &
mo_spread_y, &
size(mo_spread_y,1), &
size(mo_spread_y,1) &
)
call ao_to_mo( &
ao_spread_z, &
size(ao_spread_z,1), &
mo_spread_z, &
size(mo_spread_z,1), &
size(mo_spread_z,1) &
)
END_PROVIDER