integer function isamax(x, y, z)
integer, intent(in) :: x, z
real, intent(in) :: y
isamax = x + y + z
end function
