← Back to branch summary

~jose-soler/siesta/unfolding

« back to all changes in this revision

Viewing changes to Src/m_ts_tri_init.F90

  • Committer: Jose M Soler
  • Date: 2018-10-29 18:09:36 UTC
  • mfrom: (718.1.26 trunk)
  • Revision ID: jose.soler@uam.es-20181029180936-7p8z2sbde0mkvxoz
Merged with trunk-744

modified:
  Docs/Contributors.txt
  Docs/siesta.bib
  Docs/siesta.tex
  Docs/tbtrans.tex
  Docs/tex/fdf.tex
  Docs/tex/setup.tex
  RELEASE_NOTES
  Src/final_H_f_stress.F
  Src/grdsam.F
  Src/m_ts_options.F90
  Src/m_ts_tri_init.F90
  Src/m_ts_weight.F90
  Src/save_density_matrix.F90
  Src/state_init.F
  Util/TS/TBtrans/Makefile
  Util/TS/TBtrans/m_tbt_tri_init.F90

Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/m_ts_tri_init.F90
315
315
    ! Capture the min memory pivoting scheme
316
316
    character(len=64) :: min_mem_method
317
317
    real(dp) :: min_mem
 
318
 
 
319
    call timer('TS-analyze', 1)
318
320
    
319
321
    no_u_TS = nrows_g(sparse_pattern) - no_Buf
320
322
 
591
593
       call tri(r_El)
592
594
    end if
593
595
 
 
596
#ifndef TS_PVT_NO_GGPS
 
597
    ! Above pre-processor:
 
598
    ! Rather undocumented feature, however the GGPS is ridicously
 
599
    ! slow, so it could be useful to disable it.
 
600
 
594
601
    fmethod = trim(corb)//'+GGPS'
595
602
    if ( IONode ) write(*,fmt) trim(corb),'GGPS'
596
603
    call sp_pvt(n,tmpSp2,r_tmp, PVT_GGPS, sub = full)
630
637
       call rgn_atom2orb(r_tmp,na_u,lasto,r_El)
631
638
       call tri(r_El)
632
639
    end if
 
640
#endif
633
641
 
634
642
#ifdef SIESTA__METIS
 
643
#ifdef TS_PVT_METIS
635
644
    fmethod = trim(corb)//'+NodeND+priority'
636
645
    if ( IONode ) write(*,fmt) trim(corb),'NodeND+priority'
637
646
    call sp_pvt(n,tmpSp2,r_tmp, PVT_METIS_NODEND, sub = full, priority = priority%r)
693
702
    end if
694
703
 
695
704
#endif
 
705
#endif
696
706
    
697
707
    end do orb_atom_switch
698
708
 
716
726
       write(*,'(a,en11.3,a)') '  Memory: ', min_mem, ' GB'
717
727
       write(*,*) ! new-line
718
728
    end if
719
 
    
 
729
 
 
730
    call timer('TS-analyze', 2)
 
731
 
720
732
  contains
721
733
 
722
734
    ! Print out all relevant information for this