subroutine add_array(array,imax)
  integer, intent(in)    :: imax
  integer, intent(inout) :: array(imax)
  integer :: i

  do i = 1, imax
    array(i) = array(i) + 10
  enddo
end subroutine add_array