Вызов подпрограммы LAPACK DSYEV и функции DDOT BLAS-2 с OpenMP? ⇐ C++

[Anonymous]

У меня есть код, который отлично работает в последовательном режиме, и я хочу изменить его для параллельного выполнения. Я изменил почти все части, где, по моему мнению, производительность значительно увеличится, но я застрял в том месте, где используются функция BLAS-2 DDOT и подпрограмма LAPACK DSYEV.

Часть кода, где используется подпрограмма DDOT, имеет следующий вид:

`n=0 сделать я = 1, нст сделать j=1, нст п=п+1 омега(n) =abs( een(j)-een(i)) J_mn(n) = ddot(nst,st_vecc(i,:),1,Hmat(:,j),1)**2 write(10,*) омега(n),J_mn(n)*(pi/(N_site*0.25*nst)) конец делать конец, делай` Что касается дсьев, то он имеет вид: call dsiev('V','L',nst,Hmat,nst,een,puna, lpuna, info)

Я перепробовал все возможные варианты, но всегда получаю следующее сообщение об ошибке:

194 | call dsiev('V','L',nst,Hmat,nst,een,puna, lpuna, info) 1 Ошибка: неожиданный оператор CALL в (1)