Lines Matching refs:bs

10   PetscInt, intent(in) :: bs, ncols
11   MatScalar, intent(in) :: A(bs, ncols)
13   PetscScalar, intent(out) :: y(bs)
17   y(1:bs) = 0.0
19     y(1:bs) = y(1:bs) + A(1:bs, i)*x(i)
26   PetscInt, intent(in) :: bs, ncols
27   MatScalar, intent(in) :: A(bs, ncols)
29   PetscScalar, intent(inout) :: y(bs)
34     y(1:bs) = y(1:bs) + A(1:bs, i)*x(i)
41   PetscInt, intent(in) :: bs, ncols
42   MatScalar, intent(in) :: A(bs, ncols)
44   PetscScalar, intent(inout) :: y(bs)
49     y(1:bs) = y(1:bs) - A(1:bs, i)*x(i)
56   PetscInt, intent(in) :: bs, ncols
57   MatScalar, intent(in) :: A(bs, ncols)
58   PetscScalar, intent(in) :: x(bs)
64     y(i) = y(i) + sum(A(1:bs, i)*x(1:bs))
71   PetscInt, intent(in) :: bs
72   MatScalar, intent(in) :: B(bs, bs), C(bs, bs)
73   MatScalar, intent(inout) :: A(bs, bs)
77   do i = 1, bs
78     do j = 1, bs
79       A(i, j) = A(i, j) - sum(B(i, 1:bs)*C(1:bs, j))
87   PetscInt, intent(in) :: bs
88   MatScalar, intent(in) :: B(bs, bs), C(bs, bs)
89   MatScalar, intent(out) :: A(bs, bs)
93   do i = 1, bs
94     do j = 1, bs
95       A(i, j) = sum(B(i, 1:bs)*C(1:bs, j))