7
subroutine siesta_end()
8
use alloc, only: alloc_report
10
use m_timestamp, only : timestamp
11
use m_wallclock, only : wallclock
12
use parallel, only: IOnode
14
use mpi_siesta, only: MPI_Finalize
22
!------------------------------------------------------------------------- BEGIN
23
! Output memory use up to the end of the program
24
call printmemory( 6, 1 )
26
! Print allocation report
27
call alloc_report( printNow=.true. )
30
call timer( 'siesta', 2 )
31
call timer( 'all', 3 )
33
! Print final date and time
35
call timestamp('End of run')
36
call wallclock('End of run')
41
call MPI_Finalize( MPIerror )
45
call cmlEndModule(mainXML)
46
call siesta_cml_exit()
48
!--------------------------------------------------------------------------- END
49
END subroutine siesta_end
50
END MODULE m_siesta_end