| subroutine resid_par |
( |
integer, intent(in) |
firstrow, |
|
|
integer, intent(in) |
nrows, |
|
|
integer, intent(in) |
nequ, |
|
|
integer, intent(in) |
nterm, |
|
|
integer, dimension(nequ+1), intent(in) |
iat, |
|
|
integer, dimension(nterm), intent(in) |
ja, |
|
|
real(kind=double), dimension(nterm), intent(in) |
coef_A, |
|
|
real(kind=double), dimension(nrows), intent(in) |
x_loc, |
|
|
real(kind=double), dimension(nequ), intent(inout) |
vscr, |
|
|
real(kind=double), dimension(nrows), intent(inout) |
vscr_loc, |
|
|
real(kind=double), dimension(nrows), intent(in) |
b_loc, |
|
|
real(kind=double), dimension(nrows), intent(out) |
r_loc |
|
) |
| |