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

Initialize INFO

Browse Source
This commit is contained in:
Salvatore Filippone
2021-01-29 16:32:33 +01:00
parent 9a2ea73d81
commit 3e318e1a84
5 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/serial/psb_c_vect_mod.F90
+2
View File
@@ -1033,6 +1033,7 @@ contains
! Temp vectors
type(psb_c_vect_type) :: wtemp
info = 0
if( allocated(w%v) ) then
if (.not.present(aux)) then
allocate(wtemp%v, mold=w%v)
@@ -1080,6 +1081,7 @@ contains
! Temp vectors
type(psb_c_vect_type) :: wtemp
info = 0
if( allocated(w%v) ) then
if (.not.present(aux)) then
allocate(wtemp%v, mold=w%v)
base/modules/serial/psb_d_vect_mod.F90
+2
View File
@@ -1040,6 +1040,7 @@ contains
! Temp vectors
type(psb_d_vect_type) :: wtemp
info = 0
if( allocated(w%v) ) then
if (.not.present(aux)) then
allocate(wtemp%v, mold=w%v)
@@ -1087,6 +1088,7 @@ contains
! Temp vectors
type(psb_d_vect_type) :: wtemp
info = 0
if( allocated(w%v) ) then
if (.not.present(aux)) then
allocate(wtemp%v, mold=w%v)
base/modules/serial/psb_s_vect_mod.F90
+2
View File
@@ -1040,6 +1040,7 @@ contains
! Temp vectors
type(psb_s_vect_type) :: wtemp
info = 0
if( allocated(w%v) ) then
if (.not.present(aux)) then
allocate(wtemp%v, mold=w%v)
@@ -1087,6 +1088,7 @@ contains
! Temp vectors
type(psb_s_vect_type) :: wtemp
info = 0
if( allocated(w%v) ) then
if (.not.present(aux)) then
allocate(wtemp%v, mold=w%v)
base/modules/serial/psb_z_vect_mod.F90
+2
View File
@@ -1033,6 +1033,7 @@ contains
! Temp vectors
type(psb_z_vect_type) :: wtemp
info = 0
if( allocated(w%v) ) then
if (.not.present(aux)) then
allocate(wtemp%v, mold=w%v)
@@ -1080,6 +1081,7 @@ contains
! Temp vectors
type(psb_z_vect_type) :: wtemp
info = 0
if( allocated(w%v) ) then
if (.not.present(aux)) then
allocate(wtemp%v, mold=w%v)
prec/psb_s_base_prec_mod.mod0
BIN
View File
Binary file not shown.