integer function a(n,m)
implicit real (n)
implicit integer (m)
implicit real*8 (k)
integer :: X(m), Y(m)
n = 5
m = 8
X = [1,2,3,4,5,6,7,8]
end function