check_strs Subroutine

subroutine check_strs(answer, strs)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: answer
character(len=:), intent(in), allocatable :: strs(:)

Variables

Type Visibility Attributes Name Initial
integer, public :: k

Source Code

subroutine check_strs(answer,strs) 
integer,intent(in)           :: answer
character(len=:),allocatable,intent(in)  :: strs(:) 
integer k 
   if ( allocated(strs) ) then 
       if(unit_check_level.gt.0)then
          print *, "strs: val = ", ( strs( k ) // " ", k=1,size(strs) ) 
          print *, "      len_elem = ", len(strs( 1 )) 
       endif
      call unit_check('empty',size(strs).eq.answer,'size is',answer)
   endif 
end subroutine check_strs