/dports/science/siesta/siesta-4.1.5/Src/ |
H A D | m_sparsity_handling.F90 | 97 if ( l_ncol(lio) == 0 ) cycle 201 if ( l_ncol(lio) /= 0 ) then 206 num(lio) = l_ncol(lio) 251 list(indx+1:indx+l_ncol(lio)) = l_col(ind+1:ind+l_ncol(lio)) 252 indx = indx + l_ncol(lio) 445 if ( l_ncol(lio) /= 0 ) then 588 if ( l_ncol(lio) /= 0 ) then 600 num(lio) = l_ncol(lio) 725 ncol(io) = l_ncol(lio) 805 if ( l_ncol(lio) /= 0 ) then [all …]
|
H A D | m_ts_dm_update.F90 | 140 integer, pointer :: l_ncol(:) , l_ptr(:) , l_col(:) local 199 if ( l_ncol(lio) /= 0 ) then 234 if ( l_ncol(lio) /= 0 ) then 269 if ( l_ncol(lio) /= 0 ) then 311 if ( l_ncol(lio) /= 0 ) then 373 integer, pointer :: l_ncol(:) , l_ptr(:) , l_col(:) local 420 if ( l_ncol(lio) /= 0 ) then 451 if ( l_ncol(lio) /= 0 ) then 509 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 702 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local [all …]
|
H A D | m_ts_sparse_helper.F90 | 144 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 287 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 312 if ( l_ncol(io) /= 0 ) then 322 do ind = l_ptr(io) + 1 , l_ptr(io) + l_ncol(io) 430 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 554 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 577 if ( l_ncol(io) /= 0 ) then 701 if ( l_ncol(lio) > 0 ) then 796 if ( l_ncol(lio) > 0 ) then 885 if ( l_ncol(lio) > 0 ) then [all …]
|
H A D | m_ts_fullg.F90 | 631 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 671 if ( l_ncol(io) /= 0 ) then 679 do ind = l_ptr(io) + 1 , l_ptr(io) + l_ncol(io) 703 if ( l_ncol(io) /= 0 ) then 720 if ( l_ncol(io) /= 0 ) then 740 if ( l_ncol(io) /= 0 ) then 759 if ( l_ncol(io) /= 0 ) then 775 if ( l_ncol(io) /= 0 ) then 830 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 860 if ( l_ncol(io) /= 0 ) then [all …]
|
H A D | m_ts_trig.F90 | 687 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 727 if ( l_ncol(io) /= 0 ) then 760 if ( l_ncol(io) /= 0 ) then 782 if ( l_ncol(io) /= 0 ) then 812 if ( l_ncol(io) /= 0 ) then 837 if ( l_ncol(io) /= 0 ) then 839 do ind = l_ptr(io) + 1 , l_ptr(io) + l_ncol(io) 859 if ( l_ncol(io) /= 0 ) then 906 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 937 if ( l_ncol(io) /= 0 ) then [all …]
|
H A D | m_ts_sparse.F90 | 436 integer, pointer :: l_ncol(:) => null() local 482 call attach(sp_uc,n_col=l_ncol,list_ptr=l_ptr,list_col=l_col, & 502 do ind = l_ptr(io) + 1 , l_ptr(io) + l_ncol(io) 554 call attach(ts_sp,n_col=l_ncol,list_ptr=l_ptr,list_col=l_col) 557 if ( l_ncol(io) /= 0 ) then 558 call sort_quick(l_ncol(io), l_col(l_ptr(io)+1:)) 602 integer, pointer :: l_ncol(:) => null() local 632 call attach(s_sp,n_col=l_ncol,list_ptr=l_ptr,list_col=l_col) 649 do ind = l_ptr(lio) + 1 , l_ptr(lio) + l_ncol(lio) 737 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local [all …]
|
H A D | m_ts_trik.F90 | 722 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 764 if ( l_ncol(io) /= 0 ) then 769 do ind = l_ptr(io) + 1 , l_ptr(io) + l_ncol(io) 795 if ( l_ncol(io) /= 0 ) then 815 if ( l_ncol(io) /= 0 ) then 839 if ( l_ncol(io) /= 0 ) then 862 if ( l_ncol(io) /= 0 ) then 882 if ( l_ncol(io) /= 0 ) then 927 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 958 if ( l_ncol(io) /= 0 ) then [all …]
|
H A D | m_ts_fullk.F90 | 700 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 739 if ( l_ncol(io) /= 0 ) then 747 do ind = l_ptr(io) + 1 , l_ptr(io) + l_ncol(io) 771 if ( l_ncol(io) /= 0 ) then 787 if ( l_ncol(io) /= 0 ) then 806 if ( l_ncol(io) /= 0 ) then 825 if ( l_ncol(io) /= 0 ) then 840 if ( l_ncol(io) /= 0 ) then 892 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 922 if ( l_ncol(io) /= 0 ) then [all …]
|
H A D | m_ts_mumps_init.F90 | 171 integer, pointer :: l_ptr(:),l_ncol(:), l_col(:) local 200 n_col=l_ncol,list_col=l_col,nrows_g=nr, & 218 if ( l_ncol(io) /= 0 ) then 222 do ind = l_ptr(io) + 1 , l_ptr(io) + l_ncol(io) 309 integer, pointer :: l_ptr(:), l_ncol(:), l_col(:) local 313 n_col=l_ncol,list_col=l_col,nrows_g=nr) 325 if ( l_ncol(io) /= 0 ) then ! no entries 327 do j = 1 , l_ncol(io)
|
H A D | m_ts_mumpsg.F90 | 655 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 671 call attach(s,n_col=l_ncol,list_ptr=l_ptr,list_col=l_col, & 705 Hn = l_ncol(io) 735 Hn = l_ncol(io) 753 Hn = l_ncol(io) 774 Hn = l_ncol(io) 799 Hn = l_ncol(io) 822 Hn = l_ncol(io) 865 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 882 l_ncol => n_col(sp) [all …]
|
H A D | m_ts_debug.F90 | 121 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 124 call attach(sp,n_col=l_ncol,list_ptr=l_ptr,list_col=l_col, & 133 if ( l_ncol(io) == 0 ) cycle 134 do j = 1 , l_ncol(io)
|
H A D | m_monitor.F90 | 58 integer, pointer :: l_ncol(:) => null() local 126 n_col=l_ncol,list_ptr=l_ptr,list_col=l_col) 137 do j = 1 , l_ncol(io)
|
H A D | m_ts_mumpsk.F90 | 693 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 708 call attach(s,n_col=l_ncol,list_ptr=l_ptr,list_col=l_col, & 742 Hn = l_ncol(io) 771 Hn = l_ncol(io) 789 Hn = l_ncol(io) 810 Hn = l_ncol(io) 835 Hn = l_ncol(io) 858 Hn = l_ncol(io) 899 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 911 l_ncol => n_col(sp) [all …]
|
H A D | ts_energies.F90 | 61 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 79 n_col=l_ncol,list_ptr=l_ptr,list_col=l_col, & 95 do ind = l_ptr(lio) + 1 , l_ptr(lio) + l_ncol(lio)
|
H A D | ts_charge.F90 | 61 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 71 n_col=l_ncol,list_ptr=l_ptr,list_col=l_col, & 87 do ind = l_ptr(lio) + 1 , l_ptr(lio) + l_ncol(lio)
|
H A D | ts_dq.F90 | 157 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 171 n_col=l_ncol,list_ptr=l_ptr,list_col=l_col, & 196 do ind = l_ptr(lio) + 1 , l_ptr(lio) + l_ncol(lio) 637 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 644 n_col=l_ncol,list_ptr=l_ptr,list_col=l_col, & 663 do ind = l_ptr(lio) + 1 , l_ptr(lio) + l_ncol(lio)
|
H A D | m_ts_weight.F90 | 195 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 222 call attach(sp,n_col=l_ncol,list_ptr=l_ptr,list_col=l_col, & 331 if ( l_ncol(lio) /= 0 ) then 336 lio_connect: do j = 1 , l_ncol(lio) 450 if ( l_ncol(lio) /= 0 ) then 467 SFIND(l_col(l_ptr(lio)+1:l_ptr(lio)+l_ncol(lio)), s_col(sind))
|
H A D | m_ts_electype.F90 | 1734 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 1777 call attach(this%sp,n_col=l_ncol,list_ptr=l_ptr,list_col=l_col, & 1820 idx00: do ind = l_ptr(i) + 1 , l_ptr(i) + l_ncol(i) 1845 idx01: do ind = l_ptr(i) + 1 , l_ptr(i) + l_ncol(i) 1941 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 1976 call attach(this%sp,n_col=l_ncol,list_ptr=l_ptr,list_col=l_col, & 2002 idx02: do ind = l_ptr(i) + 1 , l_ptr(i) + l_ncol(i) 2061 idx01: do ind = l_ptr(i) + 1 , l_ptr(i) + l_ncol(i)
|
H A D | m_region.F90 | 654 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 658 n_col=l_ncol,list_ptr=l_ptr,list_col=l_col) 688 do ind = l_ptr(io) + 1 , l_ptr(io) + l_ncol(io) 754 do ind = l_ptr(io) + 1 , l_ptr(io) + l_ncol(io) 834 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 840 n_col=l_ncol,list_ptr=l_ptr,list_col=l_col) 842 call rgn_sp_sort_explicit(r,n,nzs,l_ncol,l_ptr,l_col, &
|
H A D | m_ts_rgn2trimat.F90 | 94 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 326 call attach(sp,n_col=l_ncol,list_ptr=l_ptr,list_col=l_col, & 336 if ( l_ncol(io) == 0 ) cycle 337 do j = 1 , l_ncol(io)
|
/dports/science/siesta/siesta-4.1.5/Util/TS/TBtrans/ |
H A D | m_tbt_delta.F90 | 852 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 862 n_col=l_ncol, list_ptr=l_ptr, list_col=l_col) 878 if ( l_ncol(jo) /= 0 ) then 881 do ind = l_ptr(jo) + 1 , l_ptr(jo) + l_ncol(jo) 918 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 928 n_col=l_ncol, list_ptr=l_ptr, list_col=l_col) 943 if ( l_ncol(jo) /= 0 ) then 945 do ind = l_ptr(jo) + 1 , l_ptr(jo) + l_ncol(jo)
|
H A D | m_tbt_sparse_helper.F90 | 113 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 130 call attach(sp, n_col=l_ncol,list_ptr=l_ptr,list_col=l_col) 189 do ind = l_ptr(lio) + 1 , l_ptr(lio) + l_ncol(lio)
|
H A D | m_tbt_tri_scat.F90 | 436 n_col=l_ncol, list_ptr=l_ptr, list_col=l_col) 470 if ( l_ncol(jo) > 0 ) then 471 col => l_col(l_ptr(jo)+1:l_ptr(jo)+l_ncol(jo)) 686 n_col=l_ncol, list_ptr=l_ptr, list_col=l_col) 717 if ( l_ncol(jo) > 0 ) then 1581 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 1598 n_col=l_ncol, list_ptr=l_ptr, list_col=l_col) 1633 do ind = l_ptr(io) + 1 , l_ptr(io) + l_ncol(io) 1707 n_col=l_ncol, list_ptr=l_ptr, list_col=l_col) 1742 if ( l_ncol(jo) < 1 ) then [all …]
|
H A D | m_tbt_kregions.F90 | 322 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 329 n_col=l_ncol,list_ptr=l_ptr,list_col=l_col) 339 if ( l_ncol(io) == 0 ) cycle 340 periodic = any(l_col(l_ptr(io)+1:l_ptr(io)+l_ncol(io)) > no_u)
|
H A D | m_tbt_trik.F90 | 1760 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 1773 call attach(sp, n_col=l_ncol, list_ptr=l_ptr, list_col=l_col) 1789 do ind = l_ptr(io) + 1 , l_ptr(io) + l_ncol(io) 2238 integer, pointer :: l_ncol(:), l_ptr(:), l_col(:) local 2247 call attach(sp, n_col=l_ncol, list_ptr=l_ptr, list_col=l_col) 2259 if ( l_ncol(io) /= 0 ) then 2261 call ssearch_init(ss, l_col(l_ptr(io)+1:l_ptr(io) + l_ncol(io)))
|