<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_MESSAGE'><A href='../../html_code/reporting/da_message.inc.html#DA_MESSAGE' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
subroutine da_message(strs) 97
!-----------------------------------------------------------------------
! Purpose: TBD
!-----------------------------------------------------------------------
implicit none
character(len=*), intent(in) :: strs(:)
integer :: i
do i=1,size(strs)
write(unit=stdout,fmt='(a)') trim(strs(i))
end do
write(unit=stdout,fmt=*) " "
end subroutine da_message