anchor.diff:  
       end subroutine
   
  +    !>------------------------------------------------------------
  +    !! broadcast a 3d array that may need to be allocated on remote images
  +    !!
  +    !! (this needs to be moved to co_util)
  +    !!------------------------------------------------------------
       subroutine distribute_3d_array(arr, source, first, last)
           implicit none
           real, allocatable, intent(inout) :: arr(:,:,:)
  
positive.code:     end function
  
  
      subroutine set_curfile_curstep(bc, time, file_list, time_var)
          implicit none
          type(boundary_t),   intent(inout) :: bc
  
negative.code:     end subroutine
  
  
      !>------------------------------------------------------------
      !! broadcast a 2d array that may need to be allocated on remote images
      !!
      !! (this needs to be moved to co_util)
      !!------------------------------------------------------------
      subroutine distribute_2d_array(arr, source, first, last)
          implicit none
          real, allocatable, intent(inout) :: arr(:,:)
  