integer function a(n,m)
n = 5
m = 8
integer :: X(n), Y(m)
X = [1,2,3,4,5]
end function