LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2025-04-28 11:14:43 +02:00
Code Releases Activity

fix warning

Browse Source
This commit is contained in:
Yann Damour 2023-01-23 19:04:33 +01:00
parent 600ef80784
commit e1e9ae0941
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ao_one_e_ints/point_charges.irp.f
View File

@ -156,7 +156,7 @@ BEGIN_PROVIDER [ double precision, pts_charge_coord, (n_pts_charge,3) ]
endif endif
print*,'Coordinates for the point charges ' print*,'Coordinates for the point charges '
do i = 1, n_pts_charge 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 enddo
END_PROVIDER END_PROVIDER