! Genereaza vectorul de start w0:
subroutine w0gen(v)
use work

complex v(n)

! Code bellow:
! ...

end subroutine w0gen
