Searched refs:n_nzsg (Results 1 – 3 of 3) sorted by relevance
| /dports/science/siesta/siesta-4.1.5/Src/ |
| H A D | m_ts_sparse.F90 | 441 integer :: no_l, no_u, uc_n_nzs, n_nzsg local
483 nnzs=n_nzsg)
486 allocate(l_HS(n_nzsg))
487 call memory('A','L',n_nzsg,'transiesta')
565 call memory('D','L',n_nzsg,'transiesta')
|
| H A D | m_sparsity_handling.F90 | 688 integer :: lio, io, no_l, no_u, n_nzs, n_nzsg, Bn, ind, lind local
713 call MPI_AllReduce(n_nzs,n_nzsg, 1, MPI_Integer, MPI_SUM, &
716 allocate(ncol(no_u),n_ptr(no_u),col(n_nzsg))
752 if ( ind /= n_nzsg ) then
756 call newSparsity(out,no_u,no_u,n_nzsg,ncol,n_ptr,col, &
|
| H A D | m_ts_io.F90 | 1267 integer :: n_nzsg local
1302 call MPI_Reduce(n_nzs,n_nzsg,1,MPI_Integer, MPI_SUM, 0, &
1305 n_nzsg = n_nzs
1318 write(iu) na_u, no_u, no_s, nspin, n_nzsg
|