fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix typo in vectordev_mod

Browse Source
This commit is contained in:
Salvatore Filippone
2024-02-20 13:46:58 +01:00
parent 2d3773df98
commit d95077ffd6
5 changed files with 4 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cuda/psb_c_vectordev_mod.F90
+1 -3
View File
@@ -28,8 +28,6 @@
! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
! POSSIBILITY OF SUCH DAMAGE.
!
module psb_c_vectordev_mod
use psb_base_vectordev_mod
@@ -322,7 +320,7 @@ module psb_c_vectordev_mod
use iso_c_binding
integer(c_int) :: res
integer(c_int), value :: n
type(c_float_complex), value :: alpha, beta,gamma,delta
complex(c_float_complex), value :: alpha, beta,gamma,delta
type(c_ptr), value :: deviceVecX, deviceVecY, deviceVecZ
end function abgdxyzMultiVecDeviceFloatComplex
end interface
cuda/psb_d_vectordev_mod.F90
+1 -3
View File
@@ -28,8 +28,6 @@
! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
! POSSIBILITY OF SUCH DAMAGE.
!
module psb_d_vectordev_mod
use psb_base_vectordev_mod
@@ -322,7 +320,7 @@ module psb_d_vectordev_mod
use iso_c_binding
integer(c_int) :: res
integer(c_int), value :: n
type(c_double), value :: alpha, beta,gamma,delta
real(c_double), value :: alpha, beta,gamma,delta
type(c_ptr), value :: deviceVecX, deviceVecY, deviceVecZ
end function abgdxyzMultiVecDeviceDouble
end interface
cuda/psb_i_vectordev_mod.F90
-2
View File
@@ -28,8 +28,6 @@
! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
! POSSIBILITY OF SUCH DAMAGE.
!
module psb_i_vectordev_mod
use psb_base_vectordev_mod
cuda/psb_s_vectordev_mod.F90
+1 -3
View File
@@ -28,8 +28,6 @@
! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
! POSSIBILITY OF SUCH DAMAGE.
!
module psb_s_vectordev_mod
use psb_base_vectordev_mod
@@ -322,7 +320,7 @@ module psb_s_vectordev_mod
use iso_c_binding
integer(c_int) :: res
integer(c_int), value :: n
type(c_float), value :: alpha, beta,gamma,delta
real(c_float), value :: alpha, beta,gamma,delta
type(c_ptr), value :: deviceVecX, deviceVecY, deviceVecZ
end function abgdxyzMultiVecDeviceFloat
end interface
cuda/psb_z_vectordev_mod.F90
+1 -3
View File
@@ -28,8 +28,6 @@
! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
! POSSIBILITY OF SUCH DAMAGE.
!
module psb_z_vectordev_mod
use psb_base_vectordev_mod
@@ -322,7 +320,7 @@ module psb_z_vectordev_mod
use iso_c_binding
integer(c_int) :: res
integer(c_int), value :: n
type(c_double_complex), value :: alpha, beta,gamma,delta
complex(c_double_complex), value :: alpha, beta,gamma,delta
type(c_ptr), value :: deviceVecX, deviceVecY, deviceVecZ
end function abgdxyzMultiVecDeviceDoubleComplex
end interface