ABGDXYZ in vectordev_mod

nond-rep
Salvatore Filippone 10 months ago
parent 2391f64df6
commit 2a75d677d0

@ -304,7 +304,6 @@ module psb_c_vectordev_mod
end function asumMultiVecDeviceFloatComplex end function asumMultiVecDeviceFloatComplex
end interface end interface
interface axpbyMultiVecDevice interface axpbyMultiVecDevice
function axpbyMultiVecDeviceFloatComplex(n,alpha,deviceVecA,beta,deviceVecB) & function axpbyMultiVecDeviceFloatComplex(n,alpha,deviceVecA,beta,deviceVecB) &
& result(res) bind(c,name='axpbyMultiVecDeviceFloatComplex') & result(res) bind(c,name='axpbyMultiVecDeviceFloatComplex')
@ -316,6 +315,18 @@ module psb_c_vectordev_mod
end function axpbyMultiVecDeviceFloatComplex end function axpbyMultiVecDeviceFloatComplex
end interface end interface
interface abgdxyzMultiVecDevice
function abgdxyzMultiVecDeviceFloatComplex(n,alpha,beta,gamma,delta,deviceVecX,&
& deviceVecY,deviceVecZ) &
& result(res) bind(c,name='abgdxyzMultiVecDeviceFloatComplex')
use iso_c_binding
integer(c_int) :: res
integer(c_int), value :: n
type(c_float_complex), value :: alpha, beta,gamma,delta
type(c_ptr), value :: deviceVecX, deviceVecY, deviceVecZ
end function abgdxyzMultiVecDeviceFloatComplex
end interface
interface axyMultiVecDevice interface axyMultiVecDevice
function axyMultiVecDeviceFloatComplex(n,alpha,deviceVecA,deviceVecB) & function axyMultiVecDeviceFloatComplex(n,alpha,deviceVecA,deviceVecB) &
& result(res) bind(c,name='axyMultiVecDeviceFloatComplex') & result(res) bind(c,name='axyMultiVecDeviceFloatComplex')

@ -304,7 +304,6 @@ module psb_d_vectordev_mod
end function asumMultiVecDeviceDouble end function asumMultiVecDeviceDouble
end interface end interface
interface axpbyMultiVecDevice interface axpbyMultiVecDevice
function axpbyMultiVecDeviceDouble(n,alpha,deviceVecA,beta,deviceVecB) & function axpbyMultiVecDeviceDouble(n,alpha,deviceVecA,beta,deviceVecB) &
& result(res) bind(c,name='axpbyMultiVecDeviceDouble') & result(res) bind(c,name='axpbyMultiVecDeviceDouble')
@ -316,6 +315,18 @@ module psb_d_vectordev_mod
end function axpbyMultiVecDeviceDouble end function axpbyMultiVecDeviceDouble
end interface end interface
interface abgdxyzMultiVecDevice
function abgdxyzMultiVecDeviceDouble(n,alpha,beta,gamma,delta,deviceVecX,&
& deviceVecY,deviceVecZ) &
& result(res) bind(c,name='abgdxyzMultiVecDeviceDouble')
use iso_c_binding
integer(c_int) :: res
integer(c_int), value :: n
type(c_double), value :: alpha, beta,gamma,delta
type(c_ptr), value :: deviceVecX, deviceVecY, deviceVecZ
end function abgdxyzMultiVecDeviceDouble
end interface
interface axyMultiVecDevice interface axyMultiVecDevice
function axyMultiVecDeviceDouble(n,alpha,deviceVecA,deviceVecB) & function axyMultiVecDeviceDouble(n,alpha,deviceVecA,deviceVecB) &
& result(res) bind(c,name='axyMultiVecDeviceDouble') & result(res) bind(c,name='axyMultiVecDeviceDouble')

@ -304,7 +304,6 @@ module psb_s_vectordev_mod
end function asumMultiVecDeviceFloat end function asumMultiVecDeviceFloat
end interface end interface
interface axpbyMultiVecDevice interface axpbyMultiVecDevice
function axpbyMultiVecDeviceFloat(n,alpha,deviceVecA,beta,deviceVecB) & function axpbyMultiVecDeviceFloat(n,alpha,deviceVecA,beta,deviceVecB) &
& result(res) bind(c,name='axpbyMultiVecDeviceFloat') & result(res) bind(c,name='axpbyMultiVecDeviceFloat')
@ -316,6 +315,18 @@ module psb_s_vectordev_mod
end function axpbyMultiVecDeviceFloat end function axpbyMultiVecDeviceFloat
end interface end interface
interface abgdxyzMultiVecDevice
function abgdxyzMultiVecDeviceFloat(n,alpha,beta,gamma,delta,deviceVecX,&
& deviceVecY,deviceVecZ) &
& result(res) bind(c,name='abgdxyzMultiVecDeviceFloat')
use iso_c_binding
integer(c_int) :: res
integer(c_int), value :: n
type(c_float), value :: alpha, beta,gamma,delta
type(c_ptr), value :: deviceVecX, deviceVecY, deviceVecZ
end function abgdxyzMultiVecDeviceFloat
end interface
interface axyMultiVecDevice interface axyMultiVecDevice
function axyMultiVecDeviceFloat(n,alpha,deviceVecA,deviceVecB) & function axyMultiVecDeviceFloat(n,alpha,deviceVecA,deviceVecB) &
& result(res) bind(c,name='axyMultiVecDeviceFloat') & result(res) bind(c,name='axyMultiVecDeviceFloat')

@ -304,7 +304,6 @@ module psb_z_vectordev_mod
end function asumMultiVecDeviceDoubleComplex end function asumMultiVecDeviceDoubleComplex
end interface end interface
interface axpbyMultiVecDevice interface axpbyMultiVecDevice
function axpbyMultiVecDeviceDoubleComplex(n,alpha,deviceVecA,beta,deviceVecB) & function axpbyMultiVecDeviceDoubleComplex(n,alpha,deviceVecA,beta,deviceVecB) &
& result(res) bind(c,name='axpbyMultiVecDeviceDoubleComplex') & result(res) bind(c,name='axpbyMultiVecDeviceDoubleComplex')
@ -316,6 +315,18 @@ module psb_z_vectordev_mod
end function axpbyMultiVecDeviceDoubleComplex end function axpbyMultiVecDeviceDoubleComplex
end interface end interface
interface abgdxyzMultiVecDevice
function abgdxyzMultiVecDeviceDoubleComplex(n,alpha,beta,gamma,delta,deviceVecX,&
& deviceVecY,deviceVecZ) &
& result(res) bind(c,name='abgdxyzMultiVecDeviceDoubleComplex')
use iso_c_binding
integer(c_int) :: res
integer(c_int), value :: n
type(c_double_complex), value :: alpha, beta,gamma,delta
type(c_ptr), value :: deviceVecX, deviceVecY, deviceVecZ
end function abgdxyzMultiVecDeviceDoubleComplex
end interface
interface axyMultiVecDevice interface axyMultiVecDevice
function axyMultiVecDeviceDoubleComplex(n,alpha,deviceVecA,deviceVecB) & function axyMultiVecDeviceDoubleComplex(n,alpha,deviceVecA,deviceVecB) &
& result(res) bind(c,name='axyMultiVecDeviceDoubleComplex') & result(res) bind(c,name='axyMultiVecDeviceDoubleComplex')

Loading…
Cancel
Save