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