Minor fixes to silence Intel compiler warnings.

amgprec/impl/level/amg_c_base_onelev_memory_use.f90

@@ -68,7 +68,7 @@ contains
     character(1024)    :: prefix_
     integer(psb_epk_), allocatable  :: sz(:)
 
-
+    info = psb_success_
     call psb_erractionsave(err_act)
 
     ctxt = lv%base_desc%get_ctxt()

amgprec/impl/level/amg_d_base_onelev_memory_use.f90

@@ -68,7 +68,7 @@ contains
     character(1024)    :: prefix_
     integer(psb_epk_), allocatable  :: sz(:)
 
-
+    info = psb_success_
     call psb_erractionsave(err_act)
 
     ctxt = lv%base_desc%get_ctxt()

amgprec/impl/level/amg_s_base_onelev_memory_use.f90

@@ -68,7 +68,7 @@ contains
     character(1024)    :: prefix_
     integer(psb_epk_), allocatable  :: sz(:)
 
-
+    info = psb_success_
     call psb_erractionsave(err_act)
 
     ctxt = lv%base_desc%get_ctxt()

amgprec/impl/level/amg_z_base_onelev_memory_use.f90

@@ -68,7 +68,7 @@ contains
     character(1024)    :: prefix_
     integer(psb_epk_), allocatable  :: sz(:)
 
-
+    info = psb_success_
     call psb_erractionsave(err_act)
 
     ctxt = lv%base_desc%get_ctxt()

amgprec/impl/solver/amg_c_mumps_solver_apply.F90

@@ -65,7 +65,8 @@ subroutine c_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
   character(len=20)   :: name='c_mumps_solver_apply'
 
   call psb_erractionsave(err_act)
-
+  info = psb_success_
+  
 #if defined(AMG_HAVE_MUMPS) 
   info = psb_success_
   trans_ = psb_toupper(trans)

amgprec/impl/solver/amg_c_mumps_solver_apply_vect.F90

@@ -59,11 +59,11 @@ subroutine c_mumps_solver_apply_vect(alpha,sv,x,beta,y,desc_data,&
   integer(psb_ipk_)  :: err_act
   character(len=20)  :: name='c_mumps_solver_apply_vect'
 
+  info = psb_success_
 #if defined(AMG_HAVE_MUMPS) 
 
   call psb_erractionsave(err_act)
 
-  info = psb_success_
   !
   ! For non-iterative solvers, init and initu are ignored.
   !

amgprec/impl/solver/amg_c_mumps_solver_bld.F90

@@ -69,10 +69,8 @@ subroutine c_mumps_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
   integer(psb_ipk_)  :: np, iam, me, i, err_act, debug_unit, debug_level
   character(len=20)  :: name='c_mumps_solver_bld', ch_err
 
-#if defined(AMG_HAVE_MUMPS) 
-
   info=psb_success_
-
+#if defined(AMG_HAVE_MUMPS) 
   call psb_erractionsave(err_act)
   debug_unit  = psb_get_debug_unit()
   debug_level = psb_get_debug_level()

amgprec/impl/solver/amg_d_mumps_solver_apply.F90

@@ -65,7 +65,8 @@ subroutine d_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
   character(len=20)   :: name='d_mumps_solver_apply'
 
   call psb_erractionsave(err_act)
-
+  info = psb_success_
+  
 #if defined(AMG_HAVE_MUMPS) 
   info = psb_success_
   trans_ = psb_toupper(trans)

amgprec/impl/solver/amg_d_mumps_solver_apply_vect.F90

@@ -59,11 +59,11 @@ subroutine d_mumps_solver_apply_vect(alpha,sv,x,beta,y,desc_data,&
   integer(psb_ipk_)  :: err_act
   character(len=20)  :: name='d_mumps_solver_apply_vect'
 
+  info = psb_success_
 #if defined(AMG_HAVE_MUMPS) 
 
   call psb_erractionsave(err_act)
 
-  info = psb_success_
   !
   ! For non-iterative solvers, init and initu are ignored.
   !

amgprec/impl/solver/amg_d_mumps_solver_bld.F90

@@ -69,10 +69,8 @@ subroutine d_mumps_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
   integer(psb_ipk_)  :: np, iam, me, i, err_act, debug_unit, debug_level
   character(len=20)  :: name='d_mumps_solver_bld', ch_err
 
-#if defined(AMG_HAVE_MUMPS) 
-
   info=psb_success_
-
+#if defined(AMG_HAVE_MUMPS) 
   call psb_erractionsave(err_act)
   debug_unit  = psb_get_debug_unit()
   debug_level = psb_get_debug_level()

amgprec/impl/solver/amg_s_mumps_solver_apply.F90

@@ -65,7 +65,8 @@ subroutine s_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
   character(len=20)   :: name='s_mumps_solver_apply'
 
   call psb_erractionsave(err_act)
-
+  info = psb_success_
+  
 #if defined(AMG_HAVE_MUMPS) 
   info = psb_success_
   trans_ = psb_toupper(trans)

amgprec/impl/solver/amg_s_mumps_solver_apply_vect.F90

@@ -59,11 +59,11 @@ subroutine s_mumps_solver_apply_vect(alpha,sv,x,beta,y,desc_data,&
   integer(psb_ipk_)  :: err_act
   character(len=20)  :: name='s_mumps_solver_apply_vect'
 
+  info = psb_success_
 #if defined(AMG_HAVE_MUMPS) 
 
   call psb_erractionsave(err_act)
 
-  info = psb_success_
   !
   ! For non-iterative solvers, init and initu are ignored.
   !

amgprec/impl/solver/amg_s_mumps_solver_bld.F90

@@ -69,10 +69,8 @@ subroutine s_mumps_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
   integer(psb_ipk_)  :: np, iam, me, i, err_act, debug_unit, debug_level
   character(len=20)  :: name='s_mumps_solver_bld', ch_err
 
-#if defined(AMG_HAVE_MUMPS) 
-
   info=psb_success_
-
+#if defined(AMG_HAVE_MUMPS) 
   call psb_erractionsave(err_act)
   debug_unit  = psb_get_debug_unit()
   debug_level = psb_get_debug_level()

amgprec/impl/solver/amg_z_mumps_solver_apply.F90

@@ -65,7 +65,8 @@ subroutine z_mumps_solver_apply(alpha,sv,x,beta,y,desc_data,&
   character(len=20)   :: name='z_mumps_solver_apply'
 
   call psb_erractionsave(err_act)
-
+  info = psb_success_
+  
 #if defined(AMG_HAVE_MUMPS) 
   info = psb_success_
   trans_ = psb_toupper(trans)

amgprec/impl/solver/amg_z_mumps_solver_apply_vect.F90

@@ -59,11 +59,11 @@ subroutine z_mumps_solver_apply_vect(alpha,sv,x,beta,y,desc_data,&
   integer(psb_ipk_)  :: err_act
   character(len=20)  :: name='z_mumps_solver_apply_vect'
 
+  info = psb_success_
 #if defined(AMG_HAVE_MUMPS) 
 
   call psb_erractionsave(err_act)
 
-  info = psb_success_
   !
   ! For non-iterative solvers, init and initu are ignored.
   !

amgprec/impl/solver/amg_z_mumps_solver_bld.F90

@@ -69,10 +69,8 @@ subroutine z_mumps_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
   integer(psb_ipk_)  :: np, iam, me, i, err_act, debug_unit, debug_level
   character(len=20)  :: name='z_mumps_solver_bld', ch_err
 
-#if defined(AMG_HAVE_MUMPS) 
-
   info=psb_success_
-
+#if defined(AMG_HAVE_MUMPS) 
   call psb_erractionsave(err_act)
   debug_unit  = psb_get_debug_unit()
   debug_level = psb_get_debug_level()