diff --git a/src/ao_one_e_ints/point_charges.irp.f b/src/ao_one_e_ints/point_charges.irp.f
index c038458d..82388c0d 100644
--- a/src/ao_one_e_ints/point_charges.irp.f
+++ b/src/ao_one_e_ints/point_charges.irp.f
@@ -156,7 +156,7 @@ BEGIN_PROVIDER [ double precision, pts_charge_coord, (n_pts_charge,3) ]
   endif
  print*,'Coordinates for the point charges '
  do i = 1, n_pts_charge
-  write(*,'(I3,X,3(F16.8,X))'),i,pts_charge_coord(i,1:3)
+  write(*,'(I3,X,3(F16.8,X))') i,pts_charge_coord(i,1:3)
  enddo
 
 END_PROVIDER