← Back to branch summary

~nickpapior/siesta/tddft-work

« back to all changes in this revision

Viewing changes to Util/TS/TBtrans/tbt_end.F90

  • Committer: Rafi Ullah
  • Date: 2017-09-27 12:02:36 UTC
  • mfrom: (611.1.22 trunk)
  • Revision ID: rraffiu@gmail.com-20170927120236-68zal54nt0bu1jxp
Merged with trunk-633

Show diffs side-by-side

added added

removed removed

Lines of Context:
Util/TS/TBtrans/tbt_end.F90
19
19
  use alloc, only   : alloc_report
20
20
  use m_timestamp, only : timestamp
21
21
  use m_wallclock, only : wallclock
 
22
#ifdef NCDF_4
 
23
  use m_tbt_delta, only: delete_delta
 
24
  use m_tbt_dH, only: dH
 
25
  use m_tbt_dSE, only: dSE
 
26
#endif
22
27
 
23
28
#ifdef MPI
24
29
  integer :: MPIerror
25
30
#endif
26
31
 
 
32
#ifdef NCDF_4
 
33
  call delete_delta(dH)
 
34
  call delete_delta(dSE)
 
35
#endif
 
36
  
27
37
  ! Stop time counter
28
38
  call timer( 'tbtrans', 2 )
29
39
  call timer( 'all', 3 )