← Back to branch summary

~nickpapior/siesta/tddft-work

« back to all changes in this revision

Viewing changes to Src/m_ts_tri_init.F90

  • Committer: Rafi Ullah
  • Date: 2017-08-30 14:09:10 UTC
  • mfrom: (611.1.19 trunk)
  • Revision ID: rraffiu@gmail.com-20170830140910-bhu0osuh4d59wn8e
Merged with trunk-630

Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/m_ts_tri_init.F90
227
227
    end do
228
228
    call rgn_delete(r_tmp)
229
229
 
230
 
 
 
230
    
231
231
    ! Calculate size of the tri-diagonal matrix
232
232
    els = nnzs_tri(c_Tri%n,c_Tri%r)
 
233
    ! check if there are overflows
 
234
    if ( els < int(nnzs_tri_dp(c_Tri%n, c_Tri%r)) ) then
 
235
       call die('transiesta: Memory consumption is too large')
 
236
    end if
 
237
 
233
238
    
234
239
    if ( IONode ) then
235
240
       write(*,'(a)') 'transiesta: Established a near-optimal partition &
236
241
            &for the tri-diagonal matrix.'
237
242
 
238
243
       call rgn_print(c_Tri, name = 'BTD partitions' , &
239
 
            seq_max = 10 , collapse = .false. )
 
244
            seq_max = 10 , repeat = .true. )
240
245
 
241
246
       write(*,'(a,i0,a,i0)') 'transiesta: Matrix elements in tri / full: ', &
242
247
            els,' / ',no_u_TS**2
715
720
      
716
721
      ! Calculate size of the tri-diagonal matrix
717
722
      els = nnzs_tri(ctri%n,ctri%r)
718
 
    
 
723
      ! check if there are overflows
 
724
      if ( els < int(nnzs_tri_dp(ctri%n, ctri%r)) ) then
 
725
         call die('transiesta: Memory consumption is too large, &
 
726
              &try another pivoting scheme.')
 
727
      end if
 
728
      
719
729
      if ( IONode ) then
720
730
         call rgn_print(ctri, name = 'BTD partitions' , &
721
 
              seq_max = 10 , indent = 3 , collapse = .false. )
 
731
              seq_max = 8 , indent = 3 , repeat = .true. )
722
732
         
723
733
         pad = no_u_TS ** 2
724
734
         write(*,'(tr3,a,i0,'' / '',f9.5)') &