program test

implicit none

integer:: n
real(8):: x = 2.5d0, y = 3.3d0

n = intfunc(x, y)

print *, n

stop
end


integer function intfunc(x, y)

implicit none

real(8), intent(in):: x
real(8), intent(in):: y

intfunc = int(x) + int(y)

end function

サンプルなので、特に意味ある処理をしてあるわけじゃないですが、、。