c--------------------------------------------------------------------- | |
c--------------------------------------------------------------------- | |
subroutine adi | |
c--------------------------------------------------------------------- | |
c--------------------------------------------------------------------- | |
call compute_rhs | |
call txinvr | |
call x_solve | |
call y_solve | |
call z_solve | |
call add | |
return | |
end | |