mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-25 05:51:46 +02:00
Final print
This commit is contained in:
parent
38831926db
commit
6f68bc69e9
@ -10,8 +10,9 @@ program fci_zmq
|
|||||||
|
|
||||||
double precision :: hf_energy_ref
|
double precision :: hf_energy_ref
|
||||||
logical :: has
|
logical :: has
|
||||||
double precision :: relative_error, absolute_error
|
double precision :: relative_error, absolute_error
|
||||||
integer :: N_states_p
|
integer :: N_states_p
|
||||||
|
character*(512) :: fmt
|
||||||
|
|
||||||
relative_error=PT2_relative_error
|
relative_error=PT2_relative_error
|
||||||
absolute_error=PT2_absolute_error
|
absolute_error=PT2_absolute_error
|
||||||
@ -87,7 +88,6 @@ program fci_zmq
|
|||||||
! call write_double(6,correlation_energy_ratio, 'Correlation ratio')
|
! call write_double(6,correlation_energy_ratio, 'Correlation ratio')
|
||||||
! print *, ''
|
! print *, ''
|
||||||
!
|
!
|
||||||
! character*(512) :: fmt
|
|
||||||
! N_states_p = min(N_det,N_states)
|
! N_states_p = min(N_det,N_states)
|
||||||
! print *, ''
|
! print *, ''
|
||||||
! write(fmt,*) '(''# ============'',', N_states_p, '(1X,''=========================''))'
|
! write(fmt,*) '(''# ============'',', N_states_p, '(1X,''=========================''))'
|
||||||
|
Loading…
Reference in New Issue
Block a user