Searched refs:iwUr (Results 1 – 1 of 1) sorted by relevance
2208 integer, allocatable :: iwUr(:), iwUc(:), iwLr(:), iwLc(:) local2230 allocate(iwUr(hecMAT%N))2232 iwUr = 02243 if (iwUc(j) > 0) iwUr(i) = iwUr(i) + 12276 (hecMAT%indexU(i) - hecMAT%indexU(i-1)) + iwUr(i)2449 deallocate(iwUr, iwUc, iwLr, iwLc)