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