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