From e1e9ae0941bd366c2f3f717d67a6e11cbe45502e Mon Sep 17 00:00:00 2001 From: ydamour Date: Mon, 23 Jan 2023 19:04:33 +0100 Subject: [PATCH] fix warning --- src/ao_one_e_ints/point_charges.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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