program fnmf
  implicit none
  BEGIN_DOC
! TODO : Put the documentation of the program here
  END_DOC
  read_wf = .True.
  TOUCH read_wf
  call run
end


subroutine run
 implicit none
 integer :: i, n_real
 double precision, allocatable :: beta(:), vr(:,:), vl(:,:)

 allocate(beta(mat_size), vr(mat_size,mat_size), vl(mat_size, mat_size))
 call lapack_g_non_sym_real(mat_size, H_dmc_mat, size(H_dmc_mat,1), &
  S_dmc_mat, size(S_dmc_mat,1), beta, n_real, vl, size(vl,1), vr, size(vr,1))

  print *, 'EV     VR    VL'
  print *, '---------------------------'
  do i=1,mat_size
    print '(3(F16.12,X))', beta(i), vr(i,1), vl(i,1)
  enddo
end