var/da/da_reporting/da_message2.inc

   1 subroutine da_message2(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(0,*) strs(i)
  14    end do
  15
  16 end subroutine da_message2
  17
  18