double complex za(mxpart,mxpart),zb(mxpart,mxpart)