<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_MINI_INFO_PRINT'><A href='../../html_code/obs/da_mini_info_print.inc.html#DA_MINI_INFO_PRINT' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
subroutine da_mini_info_print(print_unit, oi_each, re_each, gr_each, k),2
!-----------------------------------------------------------------------
! Purpose: TBD
!-----------------------------------------------------------------------
implicit none
type (each_level_type), intent(in) :: oi_each
type (residual_type), intent(in) :: re_each, gr_each
integer, intent(in) :: print_unit, k
if (trace_use) call da_trace_entry
("da_mini_info_print")
write(unit=print_unit, fmt='(a,i3,8e12.4)') &
' oi ', k, &
oi_each%u%inv, oi_each%v%inv, &
oi_each%t%inv, oi_each%p%inv, oi_each%q%inv
write(unit=print_unit, fmt='(a,i3,8e12.4)') &
' re ', k, &
re_each%u, re_each%v, re_each%t, re_each%p, re_each%q
write(unit=print_unit, fmt='(a,i3,8e12.4)') &
' grad ', k, &
gr_each%u, gr_each%v, gr_each%t, gr_each%p, gr_each%q
if (trace_use) call da_trace_exit("da_mini_info_print")
end subroutine da_mini_info_print