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