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

psblas3-mcbind

Browse Source 
cbind/base/psb_d_serial_cbind_mod.F90

Use interoperable types.
This commit is contained in:
Salvatore Filippone
2017-02-17 11:24:43 +00:00
parent 1002d815e3
commit c2828d9dd7
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/base/psb_d_serial_cbind_mod.F90
+5 -5
View File
@@ -12,7 +12,7 @@ contains
implicit none
integer(c_int) :: res
type(psb_c_object_type) :: xh
type(psb_c_dvector) :: xh
type(psb_d_vect_type), pointer :: vp
integer :: info
@@ -31,7 +31,7 @@ contains
integer(c_int) :: res
real(c_double) :: v(*)
type(psb_c_object_type) :: xh
type(psb_c_dvector) :: xh
type(psb_d_vect_type), pointer :: vp
real(psb_dpk_), allocatable :: fv(:)
@@ -53,7 +53,7 @@ contains
implicit none
integer(c_int) :: res
type(psb_c_object_type) :: xh
type(psb_c_dvector) :: xh
type(psb_d_vect_type), pointer :: vp
integer :: info
@@ -75,7 +75,7 @@ contains
implicit none
integer(c_int) :: res
type(psb_c_object_type) :: mh
type(psb_c_dspmat) :: mh
type(psb_dspmat_type), pointer :: ap
integer :: info
@@ -98,7 +98,7 @@ contains
implicit none
integer(c_int) :: res
type(psb_c_object_type) :: mh
type(psb_c_dspmat) :: mh
type(psb_dspmat_type), pointer :: ap
integer :: info