10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-07-03 01:45:59 +02:00

Fix Print

This commit is contained in:
Anouar Benali 2017-04-21 10:30:34 -05:00
parent b79ff2ee6b
commit d4cb0b24a8

View File

@ -66,6 +66,10 @@ program fci_zmq
print *, 'N_det = ', N_det print *, 'N_det = ', N_det
print *, 'N_states = ', N_states print *, 'N_states = ', N_states
IF (correlation_energy_ratio_max .NE. 1.d0) THEN
print*, 'correlation_ratio = ', correlation_energy_var
ENDDO
do k=1, N_states do k=1, N_states
print*,'State ',k print*,'State ',k
print *, 'PT2 = ', pt2(k) print *, 'PT2 = ', pt2(k)