! Module for Power
Module work

integer n

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

real lambda
real TOL
integer lnit

end module work
