mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-08-30 07:53:39 +02:00
28 lines
643 B
FortranFixed
28 lines
643 B
FortranFixed
|
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
|
||
|
|