mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-10-05 07:45:59 +02:00
28 lines
643 B
Fortran
28 lines
643 B
Fortran
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
|
|
|