read PEKERIS: PaperPara(psi,x,y,r,u,v,w,F,10,16,A,E,e,Z,l,m,n,1,5); quit: