Группа :: Науки/Математика
Пакет: sparskit
Главная Изменения Спек Патчи Исходники Загрузить Gear Bugs and FR Repocop
c-----------------------------------------------------------------------
function distdot(n,x,ix,y,iy)
integer n, ix, iy
real*8 distdot, x(*), y(*), ddot
external ddot
distdot = ddot(n,x,ix,y,iy)
return
end
c-----end-of-distdot