! Module for Power
Module work

integer n

complex, allocatable :: A(:,:), w0(:), z0(:), z(:)

complex lambda
real TOL
integer lnit

end module work
