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

! Code here:
! ...
! ...
! w0 = ...

end subroutine W0gen
