Home
last modified time | relevance | path

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

/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/analysis/static/
H A Dsolve_LINEQ_iter_contact.f902208 integer, allocatable :: iwUr(:), iwUc(:), iwLr(:), iwLc(:) local
2230 allocate(iwUr(hecMAT%N))
2232 iwUr = 0
2243 if (iwUc(j) > 0) iwUr(i) = iwUr(i) + 1
2276 (hecMAT%indexU(i) - hecMAT%indexU(i-1)) + iwUr(i)
2449 deallocate(iwUr, iwUc, iwLr, iwLc)