Lines Matching refs:alhs
562 & alhs,afmap,ilwork,BC,iBC,iper, argument
576 real(kind=8),intent(in),dimension(annz) :: alhs local
618 if ((cfilter.eq.afmap(k)).and.(alhs(j).lt.rowmax(i))) then
619 rowmax(i) = alhs(j)
621 if ((cfilter.eq.afmap(k)).and.(alhs(j).gt.prowmax(i))) then
622 prowmax(i) = alhs(j)
638 if (alhs(j).lt.0) then ! negative entries
639 if (alhs(j) .lt. rowmax(i)) then
642 if (alhs(j) .lt. rowmax(k)) then
647 if (alhs(j) .gt. prowmax(i)) then
650 if (alhs(j) .gt. prowmax(k)) then
709 if (alhs(j).gt.0) deltal=-deltal
776 if (alhs(i).le.0) then ! negative
789 if (alhs(j).le.0) then