Initialize INFO

4 years ago · 3e318e1a84
parent 9a2ea73d81
commit 3e318e1a84
5 changed files with 8 additions and 0 deletions
--- a/base/modules/serial/psb_c_vect_mod.F90
+++ b/base/modules/serial/psb_c_vect_mod.F90
@ -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)
--- a/base/modules/serial/psb_d_vect_mod.F90
+++ b/base/modules/serial/psb_d_vect_mod.F90
@ -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)
--- a/base/modules/serial/psb_s_vect_mod.F90
+++ b/base/modules/serial/psb_s_vect_mod.F90
@ -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)
--- a/base/modules/serial/psb_z_vect_mod.F90
+++ b/base/modules/serial/psb_z_vect_mod.F90
@ -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)
--- a/prec/psb_s_base_prec_mod.mod0
+++ b/prec/psb_s_base_prec_mod.mod0