10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-22 20:35:19 +01:00

Final print

This commit is contained in:
Anthony Scemama 2017-11-22 16:23:56 +01:00
parent 38831926db
commit 6f68bc69e9

View File

@ -12,6 +12,7 @@ program fci_zmq
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,''=========================''))'