check_ints Subroutine

subroutine check_ints(answer, ints)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: answer
integer, intent(in), allocatable :: ints(:)

Source Code

subroutine check_ints(answer,ints) 
integer,intent(in),allocatable :: ints(:) 
integer,intent(in) :: answer
   !  if mask test fails, change database status for specified entry to -1 and stop program, else continue
   if(allocated(ints))then
      call unit_check('empty',size(ints).eq.answer,'size is',answer)
   endif
end subroutine check_ints