complex a(Nmax),p(Nmax),y(Nmax),yf(Nmax),lsa(Nmax),lsb(Nmax)
real xp(Nmax)
common/arrays/a,p,y,yf,xp,lsa,lsb
