99
call tce_dgeev('n','v',nxtrials,dbl_mb(k_hbar),nxtrials,
99
c call tce_dgeev('n','v',nxtrials,dbl_mb(k_hbar),nxtrials,
100
call util_dgeev('n','v',nxtrials,dbl_mb(k_hbar),nxtrials,
100
101
1 omega,dbl_mb(k_ei),dbl_mb(k_vl),1,dbl_mb(k_vr),nxtrials,
101
102
2 dbl_mb(k_wk),4*nxtrials,info)
102
103
if (info.ne.0) call errquit('tce_eom_xdiagon: dgeev failed',info,