var/da/da_reporting/da_message.inc

   1 subroutine da_message(strs)
   2
   3    !-----------------------------------------------------------------------
   4    ! Purpose: TBD
   5    !-----------------------------------------------------------------------
   6
   7    implicit none
   8
   9    character(len=*), intent(in) :: strs(:)
  10    integer :: i
  11
  12    do i=1,size(strs)
  13       write(unit=stdout,fmt='(a)') trim(strs(i))
  14    end do
  15    write(unit=stdout,fmt=*) " "
  16
  17 end subroutine da_message
  18
  19