Home
last modified time | relevance | path

Searched refs:l_ncol (Results 1 – 25 of 25) sorted by relevance

/dports/science/siesta/siesta-4.1.5/Src/
H A Dm_sparsity_handling.F9097 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 Dm_ts_dm_update.F90140 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 Dm_ts_sparse_helper.F90144 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 Dm_ts_fullg.F90631 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 Dm_ts_trig.F90687 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 Dm_ts_sparse.F90436 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 Dm_ts_trik.F90722 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 Dm_ts_fullk.F90700 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 Dm_ts_mumps_init.F90171 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 Dm_ts_mumpsg.F90655 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 Dm_ts_debug.F90121 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 Dm_monitor.F9058 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 Dm_ts_mumpsk.F90693 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 Dts_energies.F9061 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 Dts_charge.F9061 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 Dts_dq.F90157 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 Dm_ts_weight.F90195 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 Dm_ts_electype.F901734 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 Dm_region.F90654 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 Dm_ts_rgn2trimat.F9094 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 Dm_tbt_delta.F90852 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 Dm_tbt_sparse_helper.F90113 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 Dm_tbt_tri_scat.F90436 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 Dm_tbt_kregions.F90322 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 Dm_tbt_trik.F901760 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)))