fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-16 19:02:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixed missing bind(c)

Browse Source
This commit is contained in:
Cirdans-Home
2021-06-04 16:49:05 +02:00
parent ce1da012c9
commit bee4bebd7a
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/base/psb_c_serial_cbind_mod.F90
+2 -2
View File
@@ -157,7 +157,7 @@ contains
end function psb_c_cmat_name_print
function psb_c_cvect_set_scal(x,val) result(info)
function psb_c_cvect_set_scal(x,val) bind(c) result(info)
use psb_base_mod
implicit none
@@ -180,7 +180,7 @@ contains
end function psb_c_cvect_set_scal
function psb_c_cvect_set_vect(x,val,n) result(info)
function psb_c_cvect_set_vect(x,val,n) bind(c) result(info)
use psb_base_mod
implicit none
cbind/base/psb_d_serial_cbind_mod.F90
+2 -2
View File
@@ -157,7 +157,7 @@ contains
end function psb_c_dmat_name_print
function psb_c_dvect_set_scal(x,val) result(info)
function psb_c_dvect_set_scal(x,val) bind(c) result(info)
use psb_base_mod
implicit none
@@ -180,7 +180,7 @@ contains
end function psb_c_dvect_set_scal
function psb_c_dvect_set_vect(x,val,n) result(info)
function psb_c_dvect_set_vect(x,val,n) bind(c) result(info)
use psb_base_mod
implicit none
cbind/base/psb_s_serial_cbind_mod.F90
+2 -2
View File
@@ -157,7 +157,7 @@ contains
end function psb_c_smat_name_print
function psb_c_svect_set_scal(x,val) result(info)
function psb_c_svect_set_scal(x,val) bind(c) result(info)
use psb_base_mod
implicit none
@@ -180,7 +180,7 @@ contains
end function psb_c_svect_set_scal
function psb_c_svect_set_vect(x,val,n) result(info)
function psb_c_svect_set_vect(x,val,n) bind(c) result(info)
use psb_base_mod
implicit none
cbind/base/psb_z_serial_cbind_mod.F90
+2 -2
View File
@@ -157,7 +157,7 @@ contains
end function psb_c_zmat_name_print
function psb_c_zvect_set_scal(x,val) result(info)
function psb_c_zvect_set_scal(x,val) bind(c) result(info)
use psb_base_mod
implicit none
@@ -180,7 +180,7 @@ contains
end function psb_c_zvect_set_scal
function psb_c_zvect_set_vect(x,val,n) result(info)
function psb_c_zvect_set_vect(x,val,n) bind(c) result(info)
use psb_base_mod
implicit none