blob: 6e46da954a092807108862c16b7068c751689aba [file] [log] [blame]
c---------------------------------------------------------------------
c---------------------------------------------------------------------
subroutine adi
c---------------------------------------------------------------------
c---------------------------------------------------------------------
call compute_rhs
call txinvr
call x_solve
call y_solve
call z_solve
call add
return
end