From b0d1b090212ca02a282e1997c60fcbf901246415 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 16 Jan 2019 11:53:29 +0000 Subject: [PATCH] Emergency fix for silly interface mistake with MUMPS. --- mlprec/impl/solver/mld_c_mumps_solver_bld.F90 | 6 +++--- mlprec/impl/solver/mld_d_mumps_solver_bld.F90 | 2 +- mlprec/impl/solver/mld_s_mumps_solver_bld.F90 | 6 +++--- mlprec/impl/solver/mld_z_mumps_solver_bld.F90 | 6 +++--- 4 files changed, 10 insertions(+), 10 deletions(-) diff --git a/mlprec/impl/solver/mld_c_mumps_solver_bld.F90 b/mlprec/impl/solver/mld_c_mumps_solver_bld.F90 index 84fe61d5..b4693191 100644 --- a/mlprec/impl/solver/mld_c_mumps_solver_bld.F90 +++ b/mlprec/impl/solver/mld_c_mumps_solver_bld.F90 @@ -104,7 +104,7 @@ allocate(sv%id,stat=info) if (info /= psb_success_) then info=psb_err_alloc_dealloc_ - call psb_errpush(info,name,a_err='mld_dmumps_default') + call psb_errpush(info,name,a_err='mld_cmumps_default') goto 9999 end if end if @@ -114,7 +114,7 @@ sv%id%job = -1 sv%id%par = 1 call cmumps(sv%id) - !WARNING: CALLING dMUMPS WITH JOB=-1 DESTROY THE SETTING OF DEFAULT:TO FIX + !WARNING: CALLING cmumps WITH JOB=-1 DESTROY THE SETTING OF DEFAULT:TO FIX if (allocated(sv%icntl)) then do i=1,mld_mumps_icntl_size if (allocated(sv%icntl(i)%item)) then @@ -169,7 +169,7 @@ end if !call psb_barrier(ictxt) write(*,*)iam, ' calling mumps N,nz,nz_loc',sv%id%n,sv%id%nnz,sv%id%nnz_loc - call dmumps(sv%id) + call cmumps(sv%id) !call psb_barrier(ictxt) info = sv%id%infog(1) if (info /= psb_success_) then diff --git a/mlprec/impl/solver/mld_d_mumps_solver_bld.F90 b/mlprec/impl/solver/mld_d_mumps_solver_bld.F90 index 4cee533b..b0877e84 100644 --- a/mlprec/impl/solver/mld_d_mumps_solver_bld.F90 +++ b/mlprec/impl/solver/mld_d_mumps_solver_bld.F90 @@ -114,7 +114,7 @@ sv%id%job = -1 sv%id%par = 1 call dmumps(sv%id) - !WARNING: CALLING dMUMPS WITH JOB=-1 DESTROY THE SETTING OF DEFAULT:TO FIX + !WARNING: CALLING dmumps WITH JOB=-1 DESTROY THE SETTING OF DEFAULT:TO FIX if (allocated(sv%icntl)) then do i=1,mld_mumps_icntl_size if (allocated(sv%icntl(i)%item)) then diff --git a/mlprec/impl/solver/mld_s_mumps_solver_bld.F90 b/mlprec/impl/solver/mld_s_mumps_solver_bld.F90 index 3692d7f0..ae91cfa6 100644 --- a/mlprec/impl/solver/mld_s_mumps_solver_bld.F90 +++ b/mlprec/impl/solver/mld_s_mumps_solver_bld.F90 @@ -104,7 +104,7 @@ allocate(sv%id,stat=info) if (info /= psb_success_) then info=psb_err_alloc_dealloc_ - call psb_errpush(info,name,a_err='mld_dmumps_default') + call psb_errpush(info,name,a_err='mld_smumps_default') goto 9999 end if end if @@ -114,7 +114,7 @@ sv%id%job = -1 sv%id%par = 1 call smumps(sv%id) - !WARNING: CALLING dMUMPS WITH JOB=-1 DESTROY THE SETTING OF DEFAULT:TO FIX + !WARNING: CALLING smumps WITH JOB=-1 DESTROY THE SETTING OF DEFAULT:TO FIX if (allocated(sv%icntl)) then do i=1,mld_mumps_icntl_size if (allocated(sv%icntl(i)%item)) then @@ -169,7 +169,7 @@ end if !call psb_barrier(ictxt) write(*,*)iam, ' calling mumps N,nz,nz_loc',sv%id%n,sv%id%nnz,sv%id%nnz_loc - call dmumps(sv%id) + call smumps(sv%id) !call psb_barrier(ictxt) info = sv%id%infog(1) if (info /= psb_success_) then diff --git a/mlprec/impl/solver/mld_z_mumps_solver_bld.F90 b/mlprec/impl/solver/mld_z_mumps_solver_bld.F90 index 928107c5..c96502e1 100644 --- a/mlprec/impl/solver/mld_z_mumps_solver_bld.F90 +++ b/mlprec/impl/solver/mld_z_mumps_solver_bld.F90 @@ -104,7 +104,7 @@ allocate(sv%id,stat=info) if (info /= psb_success_) then info=psb_err_alloc_dealloc_ - call psb_errpush(info,name,a_err='mld_dmumps_default') + call psb_errpush(info,name,a_err='mld_zmumps_default') goto 9999 end if end if @@ -114,7 +114,7 @@ sv%id%job = -1 sv%id%par = 1 call zmumps(sv%id) - !WARNING: CALLING dMUMPS WITH JOB=-1 DESTROY THE SETTING OF DEFAULT:TO FIX + !WARNING: CALLING zmumps WITH JOB=-1 DESTROY THE SETTING OF DEFAULT:TO FIX if (allocated(sv%icntl)) then do i=1,mld_mumps_icntl_size if (allocated(sv%icntl(i)%item)) then @@ -169,7 +169,7 @@ end if !call psb_barrier(ictxt) write(*,*)iam, ' calling mumps N,nz,nz_loc',sv%id%n,sv%id%nnz,sv%id%nnz_loc - call dmumps(sv%id) + call zmumps(sv%id) !call psb_barrier(ictxt) info = sv%id%infog(1) if (info /= psb_success_) then