mirror of
https://github.com/LCPQ/quantum_package
synced 2025-01-03 10:05:57 +01:00
Fix ENDIF
This commit is contained in:
parent
d4cb0b24a8
commit
5de188d963
@ -68,7 +68,7 @@ program fci_zmq
|
|||||||
print *, 'N_states = ', N_states
|
print *, 'N_states = ', N_states
|
||||||
IF (correlation_energy_ratio_max .NE. 1.d0) THEN
|
IF (correlation_energy_ratio_max .NE. 1.d0) THEN
|
||||||
print*, 'correlation_ratio = ', correlation_energy_var
|
print*, 'correlation_ratio = ', correlation_energy_var
|
||||||
ENDDO
|
ENDIF
|
||||||
|
|
||||||
do k=1, N_states
|
do k=1, N_states
|
||||||
print*,'State ',k
|
print*,'State ',k
|
||||||
|
Loading…
Reference in New Issue
Block a user