Home
last modified time | relevance | path

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

/dports/science/siesta/siesta-4.1.5/Src/
H A Dm_ts_trimat_invert.F90229 integer :: sColF, eColF, sIdxF, eIdxF local
300 sColF = max(idx_o , 1)
303 if ( eColF < sColF ) &
306 sIdxF = (sColF-1) * sN + 1
317 eColT = min(eColF-sColF+1,no)
338 sNc = no - (eColF - sColF + 1)