From 69a60559ebb3942f856616a6f9ef386189421712 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Thu, 22 Sep 2016 12:28:12 +0200 Subject: [PATCH] Bug with gfortran --- src/Integrals_Monoelec/kin_mo_ints.irp.f | 2 +- src/Integrals_Monoelec/pot_mo_ints.irp.f | 4 ++-- src/Integrals_Monoelec/pot_mo_pseudo_ints.irp.f | 2 +- src/Integrals_Monoelec/spread_dipole_mo.irp.f | 12 ++++++------ 4 files changed, 10 insertions(+), 10 deletions(-) diff --git a/src/Integrals_Monoelec/kin_mo_ints.irp.f b/src/Integrals_Monoelec/kin_mo_ints.irp.f index 2cd00376..2301c23d 100644 --- a/src/Integrals_Monoelec/kin_mo_ints.irp.f +++ b/src/Integrals_Monoelec/kin_mo_ints.irp.f @@ -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 diff --git a/src/Integrals_Monoelec/pot_mo_ints.irp.f b/src/Integrals_Monoelec/pot_mo_ints.irp.f index 27be6906..6798b509 100644 --- a/src/Integrals_Monoelec/pot_mo_ints.irp.f +++ b/src/Integrals_Monoelec/pot_mo_ints.irp.f @@ -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 diff --git a/src/Integrals_Monoelec/pot_mo_pseudo_ints.irp.f b/src/Integrals_Monoelec/pot_mo_pseudo_ints.irp.f index 9553aa6d..f2fee5f4 100644 --- a/src/Integrals_Monoelec/pot_mo_pseudo_ints.irp.f +++ b/src/Integrals_Monoelec/pot_mo_pseudo_ints.irp.f @@ -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 diff --git a/src/Integrals_Monoelec/spread_dipole_mo.irp.f b/src/Integrals_Monoelec/spread_dipole_mo.irp.f index da91bee5..aa5ef8aa 100644 --- a/src/Integrals_Monoelec/spread_dipole_mo.irp.f +++ b/src/Integrals_Monoelec/spread_dipole_mo.irp.f @@ -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