subroutine variable01(m, n)
integer m,n
complex x(m), y(n), p1, p2, p3, p4
call matveca(x,m,y,p1,p2,p3,p4)
end