← Back to branch summary

~albertog/siesta/ag-spin-texture

« back to all changes in this revision

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

  • Committer: Nick Papior
  • Date: 2018-10-18 17:45:15 UTC
  • mfrom: (560.1.456 4.1)
  • Revision ID: nickpapior@gmail.com-20181018174515-0zcinhu6tyolui08
Merged r1015-1016, merged OMP bug in dm_charge

Show diffs side-by-side

added added

removed removed

Lines of Context:
Util/TS/TBtrans/m_tbt_options.F90
835
835
    ! Removal of keys
836
836
    rem_DOS_Elecs = 'DOS-Elecs' .in. save_DATA
837
837
    if ( rem_DOS_Elecs ) then
838
 
       if ( any(Elecs(:)%out_of_core) ) &
839
 
            call delete(save_DATA,'DOS-Elecs')
840
 
       if ( 'Sigma-only' .in. save_DATA ) &
841
 
            call delete(save_DATA,'DOS-Elecs')
 
838
      ! Currently the TBTGF files does not contain the DOS
 
839
      if ( all(Elecs(:)%out_of_core) ) &
 
840
          call delete(save_DATA,'DOS-Elecs')
 
841
      if ( 'Sigma-only' .in. save_DATA ) &
 
842
          call delete(save_DATA,'DOS-Elecs')
842
843
    end if
843
844
    
844
845
    rem_T_Gf = 'T-Gf' .in. save_DATA
845
846
    if ( N_Elec > 3 ) then
846
 
       call delete(save_DATA,'T-Gf')
 
847
      call delete(save_DATA,'T-Gf')
847
848
    end if
848
849
 
849
850
    if ( .not. IONode ) return