mld2p4-2:

configure
 examples/fileread/data_input.f90
 examples/fileread/mld_cexample_1lev.f90
 examples/fileread/mld_cexample_ml.f90
 examples/fileread/mld_dexample_1lev.f90
 examples/fileread/mld_dexample_ml.f90
 examples/fileread/mld_sexample_1lev.f90
 examples/fileread/mld_sexample_ml.f90
 examples/fileread/mld_zexample_1lev.f90
 examples/fileread/mld_zexample_ml.f90
 examples/pdegen/data_input.f90
 examples/pdegen/mld_dexample_1lev.f90
 examples/pdegen/mld_dexample_ml.f90
 examples/pdegen/mld_sexample_1lev.f90
 examples/pdegen/mld_sexample_ml.f90
 mlprec/Makefile
 mlprec/mld_base_prec_type.f90
 mlprec/mld_c_as_smoother.f90
 mlprec/mld_c_diag_solver.f90
 mlprec/mld_c_id_solver.f90
 mlprec/mld_c_ilu_solver.f90
 mlprec/mld_c_inner_mod.f90
 mlprec/mld_c_jac_smoother.f90
 mlprec/mld_c_move_alloc_mod.f90
 mlprec/mld_c_prec_mod.f90
 mlprec/mld_c_prec_type.f90
 mlprec/mld_c_slu_solver.f90
 mlprec/mld_caggrmap_bld.f90
 mlprec/mld_caggrmat_asb.f90
 mlprec/mld_caggrmat_nosmth_asb.F90
 mlprec/mld_caggrmat_smth_asb.F90
 mlprec/mld_ccoarse_bld.f90
 mlprec/mld_cilu0_fact.f90
 mlprec/mld_ciluk_fact.f90
 mlprec/mld_cilut_fact.f90
 mlprec/mld_cmlprec_aply.f90
 mlprec/mld_cmlprec_bld.f90
 mlprec/mld_cprecaply.f90
 mlprec/mld_cprecbld.f90
 mlprec/mld_cprecinit.F90
 mlprec/mld_cprecset.F90
 mlprec/mld_cslu_bld.f90
 mlprec/mld_cslud_bld.f90
 mlprec/mld_csp_renum.f90
 mlprec/mld_cumf_bld.f90
 mlprec/mld_d_as_smoother.f90
 mlprec/mld_d_diag_solver.f90
 mlprec/mld_d_id_solver.f90
 mlprec/mld_d_ilu_solver.f90
 mlprec/mld_d_inner_mod.f90
 mlprec/mld_d_jac_smoother.f90
 mlprec/mld_d_move_alloc_mod.f90
 mlprec/mld_d_prec_mod.f90
 mlprec/mld_d_prec_type.f90
 mlprec/mld_d_slu_solver.f90
 mlprec/mld_d_sludist_solver.f90
 mlprec/mld_d_umf_solver.f90
 mlprec/mld_daggrmap_bld.f90
 mlprec/mld_daggrmat_asb.f90
 mlprec/mld_daggrmat_minnrg_asb.F90
 mlprec/mld_daggrmat_nosmth_asb.F90
 mlprec/mld_daggrmat_smth_asb.F90
 mlprec/mld_dcoarse_bld.f90
 mlprec/mld_dilu0_fact.f90
 mlprec/mld_diluk_fact.f90
 mlprec/mld_dilut_fact.f90
 mlprec/mld_dmlprec_aply.f90
 mlprec/mld_dmlprec_bld.f90
 mlprec/mld_dprecaply.f90
 mlprec/mld_dprecbld.f90
 mlprec/mld_dprecinit.F90
 mlprec/mld_dprecset.F90
 mlprec/mld_dslu_bld.f90
 mlprec/mld_dslud_bld.f90
 mlprec/mld_dsp_renum.f90
 mlprec/mld_s_as_smoother.f90
 mlprec/mld_s_diag_solver.f90
 mlprec/mld_s_id_solver.f90
 mlprec/mld_s_ilu_solver.f90
 mlprec/mld_s_inner_mod.f90
 mlprec/mld_s_jac_smoother.f90
 mlprec/mld_s_move_alloc_mod.f90
 mlprec/mld_s_prec_mod.f90
 mlprec/mld_s_prec_type.f90
 mlprec/mld_s_slu_solver.f90
 mlprec/mld_saggrmap_bld.f90
 mlprec/mld_saggrmat_asb.f90
 mlprec/mld_saggrmat_nosmth_asb.F90
 mlprec/mld_saggrmat_smth_asb.F90
 mlprec/mld_scoarse_bld.f90
 mlprec/mld_silu0_fact.f90
 mlprec/mld_siluk_fact.f90
 mlprec/mld_silut_fact.f90
 mlprec/mld_smlprec_aply.f90
 mlprec/mld_smlprec_bld.f90
 mlprec/mld_sprecaply.f90
 mlprec/mld_sprecbld.f90
 mlprec/mld_sprecinit.F90
 mlprec/mld_sprecset.F90
 mlprec/mld_sslu_bld.f90
 mlprec/mld_sslud_bld.f90
 mlprec/mld_ssp_renum.f90
 mlprec/mld_sumf_bld.f90
 mlprec/mld_z_as_smoother.f90
 mlprec/mld_z_diag_solver.f90
 mlprec/mld_z_id_solver.f90
 mlprec/mld_z_ilu_solver.f90
 mlprec/mld_z_inner_mod.f90
 mlprec/mld_z_jac_smoother.f90
 mlprec/mld_z_move_alloc_mod.f90
 mlprec/mld_z_prec_mod.f90
 mlprec/mld_z_prec_type.f90
 mlprec/mld_z_slu_solver.f90
 mlprec/mld_z_umf_solver.f90
 mlprec/mld_zaggrmap_bld.f90
 mlprec/mld_zaggrmat_asb.f90
 mlprec/mld_zaggrmat_nosmth_asb.F90
 mlprec/mld_zaggrmat_smth_asb.F90
 mlprec/mld_zas_aply.f90
 mlprec/mld_zas_bld.f90
 mlprec/mld_zbaseprec_aply.f90
 mlprec/mld_zbaseprec_bld.f90
 mlprec/mld_zcoarse_bld.f90
 mlprec/mld_zdiag_bld.f90
 mlprec/mld_zfact_bld.f90
 mlprec/mld_zilu0_fact.f90
 mlprec/mld_zilu_bld.f90
 mlprec/mld_ziluk_fact.f90
 mlprec/mld_zilut_fact.f90
 mlprec/mld_zmlprec_aply.f90
 mlprec/mld_zmlprec_bld.f90
 mlprec/mld_zprecaply.f90
 mlprec/mld_zprecbld.f90
 mlprec/mld_zprecinit.F90
 mlprec/mld_zprecset.F90
 mlprec/mld_zslu_bld.f90
 mlprec/mld_zslud_bld.f90
 mlprec/mld_zsp_renum.f90
 mlprec/mld_zumf_bld.f90
 tests/fileread/cf_sample.f90
 tests/fileread/data_input.f90
 tests/fileread/df_sample.f90
 tests/fileread/sf_sample.f90
 tests/fileread/zf_sample.f90
 tests/newslv/data_input.f90
 tests/newslv/mld_d_tlu_solver.f90
 tests/newslv/ppde.f90
 tests/newslv/spde.f90
 tests/pdegen/data_input.f90
 tests/pdegen/ppde.f90
 tests/pdegen/runs/ppde.inp
 tests/pdegen/spde.f90

Adapted psb_base_mod.
stopcriterion
Salvatore Filippone 15 years ago
parent 53d6992dea
commit 5fc55bfc4c

282
configure vendored

@ -1,13 +1,13 @@
#! /bin/sh #! /bin/sh
# Guess values for system-dependent variables and create Makefiles. # Guess values for system-dependent variables and create Makefiles.
# Generated by GNU Autoconf 2.65 for MLD2P4 2.0. # Generated by GNU Autoconf 2.66 for MLD2P4 2.0.
# #
# Report bugs to <bugreport@mld2p4.it>. # Report bugs to <bugreport@mld2p4.it>.
# #
# #
# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
# 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, # 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software
# Inc. # Foundation, Inc.
# #
# #
# This configure script is free software; the Free Software Foundation # This configure script is free software; the Free Software Foundation
@ -319,7 +319,7 @@ $as_echo X"$as_dir" |
test -d "$as_dir" && break test -d "$as_dir" && break
done done
test -z "$as_dirs" || eval "mkdir $as_dirs" test -z "$as_dirs" || eval "mkdir $as_dirs"
} || test -d "$as_dir" || as_fn_error "cannot create directory $as_dir" } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir"
} # as_fn_mkdir_p } # as_fn_mkdir_p
@ -359,19 +359,19 @@ else
fi # as_fn_arith fi # as_fn_arith
# as_fn_error ERROR [LINENO LOG_FD] # as_fn_error STATUS ERROR [LINENO LOG_FD]
# --------------------------------- # ----------------------------------------
# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are # Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
# provided, also output the error to LOG_FD, referencing LINENO. Then exit the # provided, also output the error to LOG_FD, referencing LINENO. Then exit the
# script with status $?, using 1 if that was 0. # script with STATUS, using 1 if that was 0.
as_fn_error () as_fn_error ()
{ {
as_status=$?; test $as_status -eq 0 && as_status=1 as_status=$1; test $as_status -eq 0 && as_status=1
if test "$3"; then if test "$4"; then
as_lineno=${as_lineno-"$2"} as_lineno_stack=as_lineno_stack=$as_lineno_stack as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
$as_echo "$as_me:${as_lineno-$LINENO}: error: $1" >&$3 $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4
fi fi
$as_echo "$as_me: error: $1" >&2 $as_echo "$as_me: error: $2" >&2
as_fn_exit $as_status as_fn_exit $as_status
} # as_fn_error } # as_fn_error
@ -533,7 +533,7 @@ test -n "$DJDIR" || exec 7<&0 </dev/null
exec 6>&1 exec 6>&1
# Name of the host. # Name of the host.
# hostname on some systems (SVR3.2, Linux) returns a bogus exit status, # hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status,
# so uname gets run too. # so uname gets run too.
ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q`
@ -807,7 +807,7 @@ do
ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'` ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'`
# Reject names that are not valid shell variable names. # Reject names that are not valid shell variable names.
expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
as_fn_error "invalid feature name: $ac_useropt" as_fn_error $? "invalid feature name: $ac_useropt"
ac_useropt_orig=$ac_useropt ac_useropt_orig=$ac_useropt
ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
case $ac_user_opts in case $ac_user_opts in
@ -833,7 +833,7 @@ do
ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'`
# Reject names that are not valid shell variable names. # Reject names that are not valid shell variable names.
expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
as_fn_error "invalid feature name: $ac_useropt" as_fn_error $? "invalid feature name: $ac_useropt"
ac_useropt_orig=$ac_useropt ac_useropt_orig=$ac_useropt
ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
case $ac_user_opts in case $ac_user_opts in
@ -1037,7 +1037,7 @@ do
ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'`
# Reject names that are not valid shell variable names. # Reject names that are not valid shell variable names.
expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
as_fn_error "invalid package name: $ac_useropt" as_fn_error $? "invalid package name: $ac_useropt"
ac_useropt_orig=$ac_useropt ac_useropt_orig=$ac_useropt
ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
case $ac_user_opts in case $ac_user_opts in
@ -1053,7 +1053,7 @@ do
ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'` ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'`
# Reject names that are not valid shell variable names. # Reject names that are not valid shell variable names.
expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
as_fn_error "invalid package name: $ac_useropt" as_fn_error $? "invalid package name: $ac_useropt"
ac_useropt_orig=$ac_useropt ac_useropt_orig=$ac_useropt
ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
case $ac_user_opts in case $ac_user_opts in
@ -1083,8 +1083,8 @@ do
| --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*)
x_libraries=$ac_optarg ;; x_libraries=$ac_optarg ;;
-*) as_fn_error "unrecognized option: \`$ac_option' -*) as_fn_error $? "unrecognized option: \`$ac_option'
Try \`$0 --help' for more information." Try \`$0 --help' for more information"
;; ;;
*=*) *=*)
@ -1092,7 +1092,7 @@ Try \`$0 --help' for more information."
# Reject names that are not valid shell variable names. # Reject names that are not valid shell variable names.
case $ac_envvar in #( case $ac_envvar in #(
'' | [0-9]* | *[!_$as_cr_alnum]* ) '' | [0-9]* | *[!_$as_cr_alnum]* )
as_fn_error "invalid variable name: \`$ac_envvar'" ;; as_fn_error $? "invalid variable name: \`$ac_envvar'" ;;
esac esac
eval $ac_envvar=\$ac_optarg eval $ac_envvar=\$ac_optarg
export $ac_envvar ;; export $ac_envvar ;;
@ -1110,13 +1110,13 @@ done
if test -n "$ac_prev"; then if test -n "$ac_prev"; then
ac_option=--`echo $ac_prev | sed 's/_/-/g'` ac_option=--`echo $ac_prev | sed 's/_/-/g'`
as_fn_error "missing argument to $ac_option" as_fn_error $? "missing argument to $ac_option"
fi fi
if test -n "$ac_unrecognized_opts"; then if test -n "$ac_unrecognized_opts"; then
case $enable_option_checking in case $enable_option_checking in
no) ;; no) ;;
fatal) as_fn_error "unrecognized options: $ac_unrecognized_opts" ;; fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;;
*) $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;; *) $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;;
esac esac
fi fi
@ -1139,7 +1139,7 @@ do
[\\/$]* | ?:[\\/]* ) continue;; [\\/$]* | ?:[\\/]* ) continue;;
NONE | '' ) case $ac_var in *prefix ) continue;; esac;; NONE | '' ) case $ac_var in *prefix ) continue;; esac;;
esac esac
as_fn_error "expected an absolute directory name for --$ac_var: $ac_val" as_fn_error $? "expected an absolute directory name for --$ac_var: $ac_val"
done done
# There might be people who depend on the old broken behavior: `$host' # There might be people who depend on the old broken behavior: `$host'
@ -1153,8 +1153,8 @@ target=$target_alias
if test "x$host_alias" != x; then if test "x$host_alias" != x; then
if test "x$build_alias" = x; then if test "x$build_alias" = x; then
cross_compiling=maybe cross_compiling=maybe
$as_echo "$as_me: WARNING: If you wanted to set the --build type, don't use --host. $as_echo "$as_me: WARNING: if you wanted to set the --build type, don't use --host.
If a cross compiler is detected then cross compile mode will be used." >&2 If a cross compiler is detected then cross compile mode will be used" >&2
elif test "x$build_alias" != "x$host_alias"; then elif test "x$build_alias" != "x$host_alias"; then
cross_compiling=yes cross_compiling=yes
fi fi
@ -1169,9 +1169,9 @@ test "$silent" = yes && exec 6>/dev/null
ac_pwd=`pwd` && test -n "$ac_pwd" && ac_pwd=`pwd` && test -n "$ac_pwd" &&
ac_ls_di=`ls -di .` && ac_ls_di=`ls -di .` &&
ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` || ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` ||
as_fn_error "working directory cannot be determined" as_fn_error $? "working directory cannot be determined"
test "X$ac_ls_di" = "X$ac_pwd_ls_di" || test "X$ac_ls_di" = "X$ac_pwd_ls_di" ||
as_fn_error "pwd does not report name of working directory" as_fn_error $? "pwd does not report name of working directory"
# Find the source files, if location was not specified. # Find the source files, if location was not specified.
@ -1210,11 +1210,11 @@ else
fi fi
if test ! -r "$srcdir/$ac_unique_file"; then if test ! -r "$srcdir/$ac_unique_file"; then
test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .." test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .."
as_fn_error "cannot find sources ($ac_unique_file) in $srcdir" as_fn_error $? "cannot find sources ($ac_unique_file) in $srcdir"
fi fi
ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work" ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work"
ac_abs_confdir=`( ac_abs_confdir=`(
cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error "$ac_msg" cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error $? "$ac_msg"
pwd)` pwd)`
# When building in place, set srcdir=. # When building in place, set srcdir=.
if test "$ac_abs_confdir" = "$ac_pwd"; then if test "$ac_abs_confdir" = "$ac_pwd"; then
@ -1254,7 +1254,7 @@ Configuration:
--help=short display options specific to this package --help=short display options specific to this package
--help=recursive display the short help of all the included packages --help=recursive display the short help of all the included packages
-V, --version display version information and exit -V, --version display version information and exit
-q, --quiet, --silent do not print \`checking...' messages -q, --quiet, --silent do not print \`checking ...' messages
--cache-file=FILE cache test results in FILE [disabled] --cache-file=FILE cache test results in FILE [disabled]
-C, --config-cache alias for \`--cache-file=config.cache' -C, --config-cache alias for \`--cache-file=config.cache'
-n, --no-create do not create output files -n, --no-create do not create output files
@ -1420,9 +1420,9 @@ test -n "$ac_init_help" && exit $ac_status
if $ac_init_version; then if $ac_init_version; then
cat <<\_ACEOF cat <<\_ACEOF
MLD2P4 configure 2.0 MLD2P4 configure 2.0
generated by GNU Autoconf 2.65 generated by GNU Autoconf 2.66
Copyright (C) 2009 Free Software Foundation, Inc. Copyright (C) 2010 Free Software Foundation, Inc.
This configure script is free software; the Free Software Foundation This configure script is free software; the Free Software Foundation
gives unlimited permission to copy, distribute and modify it. gives unlimited permission to copy, distribute and modify it.
_ACEOF _ACEOF
@ -1554,10 +1554,10 @@ fi
ac_fn_c_check_header_mongrel () ac_fn_c_check_header_mongrel ()
{ {
as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then : if eval "test \"\${$3+set}\"" = set; then :
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
$as_echo_n "checking for $2... " >&6; } $as_echo_n "checking for $2... " >&6; }
if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then : if eval "test \"\${$3+set}\"" = set; then :
$as_echo_n "(cached) " >&6 $as_echo_n "(cached) " >&6
fi fi
eval ac_res=\$$3 eval ac_res=\$$3
@ -1616,17 +1616,15 @@ $as_echo "$as_me: WARNING: $2: see the Autoconf documentation" >&2;}
$as_echo "$as_me: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&2;} $as_echo "$as_me: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&2;}
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5
$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} $as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;}
( cat <<\_ASBOX ( $as_echo "## ---------------------------------- ##
## ---------------------------------- ##
## Report this to bugreport@mld2p4.it ## ## Report this to bugreport@mld2p4.it ##
## ---------------------------------- ## ## ---------------------------------- ##"
_ASBOX
) | sed "s/^/$as_me: WARNING: /" >&2 ) | sed "s/^/$as_me: WARNING: /" >&2
;; ;;
esac esac
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
$as_echo_n "checking for $2... " >&6; } $as_echo_n "checking for $2... " >&6; }
if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then : if eval "test \"\${$3+set}\"" = set; then :
$as_echo_n "(cached) " >&6 $as_echo_n "(cached) " >&6
else else
eval "$3=\$ac_header_compiler" eval "$3=\$ac_header_compiler"
@ -1690,7 +1688,7 @@ ac_fn_c_check_header_compile ()
as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
$as_echo_n "checking for $2... " >&6; } $as_echo_n "checking for $2... " >&6; }
if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then : if eval "test \"\${$3+set}\"" = set; then :
$as_echo_n "(cached) " >&6 $as_echo_n "(cached) " >&6
else else
cat confdefs.h - <<_ACEOF >conftest.$ac_ext cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@ -1766,7 +1764,7 @@ ac_fn_c_check_func ()
as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
$as_echo_n "checking for $2... " >&6; } $as_echo_n "checking for $2... " >&6; }
if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then : if eval "test \"\${$3+set}\"" = set; then :
$as_echo_n "(cached) " >&6 $as_echo_n "(cached) " >&6
else else
cat confdefs.h - <<_ACEOF >conftest.$ac_ext cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@ -1959,7 +1957,7 @@ This file contains any messages produced by compilers while
running configure, to aid debugging if configure makes a mistake. running configure, to aid debugging if configure makes a mistake.
It was created by MLD2P4 $as_me 2.0, which was It was created by MLD2P4 $as_me 2.0, which was
generated by GNU Autoconf 2.65. Invocation command line was generated by GNU Autoconf 2.66. Invocation command line was
$ $0 $@ $ $0 $@
@ -2069,11 +2067,9 @@ trap 'exit_status=$?
{ {
echo echo
cat <<\_ASBOX $as_echo "## ---------------- ##
## ---------------- ##
## Cache variables. ## ## Cache variables. ##
## ---------------- ## ## ---------------- ##"
_ASBOX
echo echo
# The following way of writing the cache mishandles newlines in values, # The following way of writing the cache mishandles newlines in values,
( (
@ -2107,11 +2103,9 @@ $as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;;
) )
echo echo
cat <<\_ASBOX $as_echo "## ----------------- ##
## ----------------- ##
## Output variables. ## ## Output variables. ##
## ----------------- ## ## ----------------- ##"
_ASBOX
echo echo
for ac_var in $ac_subst_vars for ac_var in $ac_subst_vars
do do
@ -2124,11 +2118,9 @@ _ASBOX
echo echo
if test -n "$ac_subst_files"; then if test -n "$ac_subst_files"; then
cat <<\_ASBOX $as_echo "## ------------------- ##
## ------------------- ##
## File substitutions. ## ## File substitutions. ##
## ------------------- ## ## ------------------- ##"
_ASBOX
echo echo
for ac_var in $ac_subst_files for ac_var in $ac_subst_files
do do
@ -2142,11 +2134,9 @@ _ASBOX
fi fi
if test -s confdefs.h; then if test -s confdefs.h; then
cat <<\_ASBOX $as_echo "## ----------- ##
## ----------- ##
## confdefs.h. ## ## confdefs.h. ##
## ----------- ## ## ----------- ##"
_ASBOX
echo echo
cat confdefs.h cat confdefs.h
echo echo
@ -2201,7 +2191,12 @@ _ACEOF
ac_site_file1=NONE ac_site_file1=NONE
ac_site_file2=NONE ac_site_file2=NONE
if test -n "$CONFIG_SITE"; then if test -n "$CONFIG_SITE"; then
ac_site_file1=$CONFIG_SITE # We do not want a PATH search for config.site.
case $CONFIG_SITE in #((
-*) ac_site_file1=./$CONFIG_SITE;;
*/*) ac_site_file1=$CONFIG_SITE;;
*) ac_site_file1=./$CONFIG_SITE;;
esac
elif test "x$prefix" != xNONE; then elif test "x$prefix" != xNONE; then
ac_site_file1=$prefix/share/config.site ac_site_file1=$prefix/share/config.site
ac_site_file2=$prefix/etc/config.site ac_site_file2=$prefix/etc/config.site
@ -2216,7 +2211,11 @@ do
{ $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5 { $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5
$as_echo "$as_me: loading site script $ac_site_file" >&6;} $as_echo "$as_me: loading site script $ac_site_file" >&6;}
sed 's/^/| /' "$ac_site_file" >&5 sed 's/^/| /' "$ac_site_file" >&5
. "$ac_site_file" . "$ac_site_file" \
|| { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
as_fn_error $? "failed to load site script $ac_site_file
See \`config.log' for more details" "$LINENO" 5; }
fi fi
done done
@ -2292,7 +2291,7 @@ if $ac_cache_corrupted; then
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
{ $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5 { $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5
$as_echo "$as_me: error: changes in the environment can compromise the build" >&2;} $as_echo "$as_me: error: changes in the environment can compromise the build" >&2;}
as_fn_error "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5 as_fn_error $? "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5
fi fi
## -------------------- ## ## -------------------- ##
## Main body of script. ## ## Main body of script. ##
@ -2357,17 +2356,17 @@ PSBLAS_DIR="$pac_cv_psblas_dir";
$as_echo_n "checking for PSBLAS build dir... " >&6; } $as_echo_n "checking for PSBLAS build dir... " >&6; }
case $PSBLAS_DIR in case $PSBLAS_DIR in
/*) ;; /*) ;;
*) as_fn_error "The PSBLAS installation dir must be an absolute pathname *) as_fn_error $? "The PSBLAS installation dir must be an absolute pathname
specified with --with-psblas=/path/to/psblas" "$LINENO" 5 specified with --with-psblas=/path/to/psblas" "$LINENO" 5
esac esac
if test ! -d "$PSBLAS_DIR" ; then if test ! -d "$PSBLAS_DIR" ; then
as_fn_error "Could not find PSBLAS build dir $PSBLAS_DIR!" "$LINENO" 5 as_fn_error $? "Could not find PSBLAS build dir $PSBLAS_DIR!" "$LINENO" 5
fi fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $PSBLAS_DIR" >&5 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $PSBLAS_DIR" >&5
$as_echo "$PSBLAS_DIR" >&6; } $as_echo "$PSBLAS_DIR" >&6; }
pac_cv_status_file="$PSBLAS_DIR/Make.inc" pac_cv_status_file="$PSBLAS_DIR/Make.inc"
if test ! -f "$pac_cv_status_file" ; then if test ! -f "$pac_cv_status_file" ; then
as_fn_error "Could not find an installation in $PSBLAS_DIR." "$LINENO" 5 as_fn_error $? "Could not find an installation in $PSBLAS_DIR." "$LINENO" 5
fi fi
# #
@ -2376,16 +2375,22 @@ fi
# #
ac_aux_dir= ac_aux_dir=
for ac_dir in "$srcdir" "$srcdir/.." "$srcdir/../.."; do for ac_dir in "$srcdir" "$srcdir/.." "$srcdir/../.."; do
for ac_t in install-sh install.sh shtool; do if test -f "$ac_dir/install-sh"; then
if test -f "$ac_dir/$ac_t"; then ac_aux_dir=$ac_dir
ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install-sh -c"
ac_install_sh="$ac_aux_dir/$ac_t -c" break
break 2 elif test -f "$ac_dir/install.sh"; then
fi ac_aux_dir=$ac_dir
done ac_install_sh="$ac_aux_dir/install.sh -c"
break
elif test -f "$ac_dir/shtool"; then
ac_aux_dir=$ac_dir
ac_install_sh="$ac_aux_dir/shtool install -c"
break
fi
done done
if test -z "$ac_aux_dir"; then if test -z "$ac_aux_dir"; then
as_fn_error "cannot find install-sh, install.sh, or shtool in \"$srcdir\" \"$srcdir/..\" \"$srcdir/../..\"" "$LINENO" 5 as_fn_error $? "cannot find install-sh, install.sh, or shtool in \"$srcdir\" \"$srcdir/..\" \"$srcdir/../..\"" "$LINENO" 5
fi fi
# These three variables are undocumented and unsupported, # These three variables are undocumented and unsupported,
@ -2728,9 +2733,8 @@ sed 's/^/| /' conftest.$ac_ext >&5
{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
{ as_fn_set_status 77 as_fn_error 77 "Fortran compiler cannot create executables
as_fn_error "Fortran compiler cannot create executables See \`config.log' for more details" "$LINENO" 5; }
See \`config.log' for more details." "$LINENO" 5; }; }
else else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
$as_echo "yes" >&6; } $as_echo "yes" >&6; }
@ -2772,8 +2776,8 @@ done
else else
{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
as_fn_error "cannot compute suffix of executables: cannot compile and link as_fn_error $? "cannot compute suffix of executables: cannot compile and link
See \`config.log' for more details." "$LINENO" 5; } See \`config.log' for more details" "$LINENO" 5; }
fi fi
rm -f conftest conftest$ac_cv_exeext rm -f conftest conftest$ac_cv_exeext
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5
@ -2824,9 +2828,9 @@ $as_echo "$ac_try_echo"; } >&5
else else
{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
as_fn_error "cannot run Fortran compiled programs. as_fn_error $? "cannot run Fortran compiled programs.
If you meant to cross compile, use \`--host'. If you meant to cross compile, use \`--host'.
See \`config.log' for more details." "$LINENO" 5; } See \`config.log' for more details" "$LINENO" 5; }
fi fi
fi fi
fi fi
@ -2871,8 +2875,8 @@ sed 's/^/| /' conftest.$ac_ext >&5
{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
as_fn_error "cannot compute suffix of object files: cannot compile as_fn_error $? "cannot compute suffix of object files: cannot compile
See \`config.log' for more details." "$LINENO" 5; } See \`config.log' for more details" "$LINENO" 5; }
fi fi
rm -f conftest.$ac_cv_objext conftest.$ac_ext rm -f conftest.$ac_cv_objext conftest.$ac_ext
fi fi
@ -3063,8 +3067,8 @@ fi
test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
as_fn_error "no acceptable C compiler found in \$PATH as_fn_error $? "no acceptable C compiler found in \$PATH
See \`config.log' for more details." "$LINENO" 5; } See \`config.log' for more details" "$LINENO" 5; }
# Provide some information about the compiler. # Provide some information about the compiler.
$as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5
@ -3305,7 +3309,7 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu
if test "X$CC" == "X" ; then if test "X$CC" == "X" ; then
as_fn_error "Problem : No C compiler specified nor found!" "$LINENO" 5 as_fn_error $? "Problem : No C compiler specified nor found!" "$LINENO" 5
fi fi
if eval "$FC -qversion 2>&1 | grep XL 2>/dev/null" ; then if eval "$FC -qversion 2>&1 | grep XL 2>/dev/null" ; then
# Some configurations of the XLF want "-WF," prepended to -D.. flags. # Some configurations of the XLF want "-WF," prepended to -D.. flags.
@ -3487,8 +3491,8 @@ if $ac_preproc_ok; then :
else else
{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
as_fn_error "C preprocessor \"$CPP\" fails sanity check as_fn_error $? "C preprocessor \"$CPP\" fails sanity check
See \`config.log' for more details." "$LINENO" 5; } See \`config.log' for more details" "$LINENO" 5; }
fi fi
ac_ext=c ac_ext=c
@ -3549,7 +3553,7 @@ esac
done done
IFS=$as_save_IFS IFS=$as_save_IFS
if test -z "$ac_cv_path_GREP"; then if test -z "$ac_cv_path_GREP"; then
as_fn_error "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 as_fn_error $? "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
fi fi
else else
ac_cv_path_GREP=$GREP ac_cv_path_GREP=$GREP
@ -3615,7 +3619,7 @@ esac
done done
IFS=$as_save_IFS IFS=$as_save_IFS
if test -z "$ac_cv_path_EGREP"; then if test -z "$ac_cv_path_EGREP"; then
as_fn_error "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 as_fn_error $? "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
fi fi
else else
ac_cv_path_EGREP=$EGREP ac_cv_path_EGREP=$EGREP
@ -3747,8 +3751,7 @@ do :
as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default
" "
eval as_val=\$$as_ac_Header if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
if test "x$as_val" = x""yes; then :
cat >>confdefs.h <<_ACEOF cat >>confdefs.h <<_ACEOF
#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
_ACEOF _ACEOF
@ -4199,7 +4202,7 @@ CC="$acx_mpi_save_CC"
# Finally, execute ACTION-IF-FOUND/ACTION-IF-NOT-FOUND: # Finally, execute ACTION-IF-FOUND/ACTION-IF-NOT-FOUND:
if test x = x"$MPILIBS"; then if test x = x"$MPILIBS"; then
as_fn_error "Cannot find any suitable MPI implementation for C" "$LINENO" 5 as_fn_error $? "Cannot find any suitable MPI implementation for C" "$LINENO" 5
: :
else else
@ -4263,7 +4266,7 @@ ac_compile='$F77 -c $FFLAGS conftest.$ac_ext >&5'
ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_f77_compiler_gnu ac_compiler_gnu=$ac_cv_f77_compiler_gnu
if test -n "$ac_tool_prefix"; then if test -n "$ac_tool_prefix"; then
for ac_prog in g77 xlf f77 frt pgf77 cf77 fort77 fl32 af77 xlf90 f90 pgf90 pghpf epcf90 gfortran g95 xlf95 f95 fort ifort ifc efc pgf95 lf95 ftn for ac_prog in g77 xlf f77 frt pgf77 cf77 fort77 fl32 af77 xlf90 f90 pgf90 pghpf epcf90 gfortran g95 xlf95 f95 fort ifort ifc efc pgfortran pgf95 lf95 ftn
do do
# Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
set dummy $ac_tool_prefix$ac_prog; ac_word=$2 set dummy $ac_tool_prefix$ac_prog; ac_word=$2
@ -4307,7 +4310,7 @@ fi
fi fi
if test -z "$F77"; then if test -z "$F77"; then
ac_ct_F77=$F77 ac_ct_F77=$F77
for ac_prog in g77 xlf f77 frt pgf77 cf77 fort77 fl32 af77 xlf90 f90 pgf90 pghpf epcf90 gfortran g95 xlf95 f95 fort ifort ifc efc pgf95 lf95 ftn for ac_prog in g77 xlf f77 frt pgf77 cf77 fort77 fl32 af77 xlf90 f90 pgf90 pghpf epcf90 gfortran g95 xlf95 f95 fort ifort ifc efc pgfortran pgf95 lf95 ftn
do do
# Extract the first word of "$ac_prog", so it can be a program name with args. # Extract the first word of "$ac_prog", so it can be a program name with args.
set dummy $ac_prog; ac_word=$2 set dummy $ac_prog; ac_word=$2
@ -4685,7 +4688,7 @@ F77="$acx_mpi_save_F77"
# Finally, execute ACTION-IF-FOUND/ACTION-IF-NOT-FOUND: # Finally, execute ACTION-IF-FOUND/ACTION-IF-NOT-FOUND:
if test x = x"$MPILIBS"; then if test x = x"$MPILIBS"; then
as_fn_error "Cannot find any suitable MPI implementation for Fortran 77" "$LINENO" 5 as_fn_error $? "Cannot find any suitable MPI implementation for Fortran 77" "$LINENO" 5
: :
else else
@ -4964,7 +4967,7 @@ FC="$acx_mpi_save_FC"
# Finally, execute ACTION-IF-FOUND/ACTION-IF-NOT-FOUND: # Finally, execute ACTION-IF-FOUND/ACTION-IF-NOT-FOUND:
if test x = x"$MPILIBS"; then if test x = x"$MPILIBS"; then
as_fn_error "Cannot find any suitable MPI implementation for Fortran" "$LINENO" 5 as_fn_error $? "Cannot find any suitable MPI implementation for Fortran" "$LINENO" 5
: :
else else
@ -5301,7 +5304,7 @@ rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
done done
rm -fr tmpdir_$i rm -fr tmpdir_$i
if test "$ax_flag" = "not found" ; then if test "$ax_flag" = "not found" ; then
as_fn_error "unable to find compiler flag for modules inclusion" "$LINENO" 5 as_fn_error $? "unable to find compiler flag for modules inclusion" "$LINENO" 5
fi fi
ac_ext=c ac_ext=c
ac_cpp='$CPP $CPPFLAGS' ac_cpp='$CPP $CPPFLAGS'
@ -5336,7 +5339,7 @@ else
echo "configure: failed program was:" >&5 echo "configure: failed program was:" >&5
cat conftest.$ac_ext >&5 cat conftest.$ac_ext >&5
rm -rf conftest* rm -rf conftest*
as_fn_error "no. as_fn_error $? "no.
Could not find working version of PSBLAS." "$LINENO" 5 Could not find working version of PSBLAS." "$LINENO" 5
fi fi
rm -f conftest* rm -f conftest*
@ -5364,7 +5367,7 @@ else
echo "configure: failed program was:" >&5 echo "configure: failed program was:" >&5
cat conftest.$ac_ext >&5 cat conftest.$ac_ext >&5
rm -rf conftest* rm -rf conftest*
as_fn_error "no. as_fn_error $? "no.
Your version of PSBLAS does not define psb_long_int_k_; please get version 2.3.1 or newer." "$LINENO" 5 Your version of PSBLAS does not define psb_long_int_k_; please get version 2.3.1 or newer." "$LINENO" 5
fi fi
rm -f conftest* rm -f conftest*
@ -5515,6 +5518,7 @@ DEFS=`sed -n "$ac_script" confdefs.h`
ac_libobjs= ac_libobjs=
ac_ltlibobjs= ac_ltlibobjs=
U=
for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue
# 1. Remove the extension, and $U if already installed. # 1. Remove the extension, and $U if already installed.
ac_script='s/\$U\././;s/\.o$//;s/\.obj$//' ac_script='s/\$U\././;s/\.o$//;s/\.obj$//'
@ -5676,19 +5680,19 @@ export LANGUAGE
(unset CDPATH) >/dev/null 2>&1 && unset CDPATH (unset CDPATH) >/dev/null 2>&1 && unset CDPATH
# as_fn_error ERROR [LINENO LOG_FD] # as_fn_error STATUS ERROR [LINENO LOG_FD]
# --------------------------------- # ----------------------------------------
# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are # Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
# provided, also output the error to LOG_FD, referencing LINENO. Then exit the # provided, also output the error to LOG_FD, referencing LINENO. Then exit the
# script with status $?, using 1 if that was 0. # script with STATUS, using 1 if that was 0.
as_fn_error () as_fn_error ()
{ {
as_status=$?; test $as_status -eq 0 && as_status=1 as_status=$1; test $as_status -eq 0 && as_status=1
if test "$3"; then if test "$4"; then
as_lineno=${as_lineno-"$2"} as_lineno_stack=as_lineno_stack=$as_lineno_stack as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
$as_echo "$as_me:${as_lineno-$LINENO}: error: $1" >&$3 $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4
fi fi
$as_echo "$as_me: error: $1" >&2 $as_echo "$as_me: error: $2" >&2
as_fn_exit $as_status as_fn_exit $as_status
} # as_fn_error } # as_fn_error
@ -5884,7 +5888,7 @@ $as_echo X"$as_dir" |
test -d "$as_dir" && break test -d "$as_dir" && break
done done
test -z "$as_dirs" || eval "mkdir $as_dirs" test -z "$as_dirs" || eval "mkdir $as_dirs"
} || test -d "$as_dir" || as_fn_error "cannot create directory $as_dir" } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir"
} # as_fn_mkdir_p } # as_fn_mkdir_p
@ -5938,7 +5942,7 @@ cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
# values after options handling. # values after options handling.
ac_log=" ac_log="
This file was extended by MLD2P4 $as_me 2.0, which was This file was extended by MLD2P4 $as_me 2.0, which was
generated by GNU Autoconf 2.65. Invocation command line was generated by GNU Autoconf 2.66. Invocation command line was
CONFIG_FILES = $CONFIG_FILES CONFIG_FILES = $CONFIG_FILES
CONFIG_HEADERS = $CONFIG_HEADERS CONFIG_HEADERS = $CONFIG_HEADERS
@ -5991,10 +5995,10 @@ cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`" ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`"
ac_cs_version="\\ ac_cs_version="\\
MLD2P4 config.status 2.0 MLD2P4 config.status 2.0
configured by $0, generated by GNU Autoconf 2.65, configured by $0, generated by GNU Autoconf 2.66,
with options \\"\$ac_cs_config\\" with options \\"\$ac_cs_config\\"
Copyright (C) 2009 Free Software Foundation, Inc. Copyright (C) 2010 Free Software Foundation, Inc.
This config.status script is free software; the Free Software Foundation This config.status script is free software; the Free Software Foundation
gives unlimited permission to copy, distribute and modify it." gives unlimited permission to copy, distribute and modify it."
@ -6046,7 +6050,7 @@ do
ac_cs_silent=: ;; ac_cs_silent=: ;;
# This is an error. # This is an error.
-*) as_fn_error "unrecognized option: \`$1' -*) as_fn_error $? "unrecognized option: \`$1'
Try \`$0 --help' for more information." ;; Try \`$0 --help' for more information." ;;
*) as_fn_append ac_config_targets " $1" *) as_fn_append ac_config_targets " $1"
@ -6097,7 +6101,7 @@ do
case $ac_config_target in case $ac_config_target in
"Make.inc") CONFIG_FILES="$CONFIG_FILES Make.inc" ;; "Make.inc") CONFIG_FILES="$CONFIG_FILES Make.inc" ;;
*) as_fn_error "invalid argument: \`$ac_config_target'" "$LINENO" 5;; *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;;
esac esac
done done
@ -6133,7 +6137,7 @@ $debug ||
{ {
tmp=./conf$$-$RANDOM tmp=./conf$$-$RANDOM
(umask 077 && mkdir "$tmp") (umask 077 && mkdir "$tmp")
} || as_fn_error "cannot create a temporary directory in ." "$LINENO" 5 } || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5
# Set up the scripts for CONFIG_FILES section. # Set up the scripts for CONFIG_FILES section.
# No need to generate them if there are no CONFIG_FILES. # No need to generate them if there are no CONFIG_FILES.
@ -6150,7 +6154,7 @@ if test "x$ac_cr" = x; then
fi fi
ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' </dev/null 2>/dev/null` ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' </dev/null 2>/dev/null`
if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then
ac_cs_awk_cr='\r' ac_cs_awk_cr='\\r'
else else
ac_cs_awk_cr=$ac_cr ac_cs_awk_cr=$ac_cr
fi fi
@ -6164,18 +6168,18 @@ _ACEOF
echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' && echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' &&
echo "_ACEOF" echo "_ACEOF"
} >conf$$subs.sh || } >conf$$subs.sh ||
as_fn_error "could not make $CONFIG_STATUS" "$LINENO" 5 as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
ac_delim_num=`echo "$ac_subst_vars" | grep -c '$'` ac_delim_num=`echo "$ac_subst_vars" | grep -c '^'`
ac_delim='%!_!# ' ac_delim='%!_!# '
for ac_last_try in false false false false false :; do for ac_last_try in false false false false false :; do
. ./conf$$subs.sh || . ./conf$$subs.sh ||
as_fn_error "could not make $CONFIG_STATUS" "$LINENO" 5 as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X` ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X`
if test $ac_delim_n = $ac_delim_num; then if test $ac_delim_n = $ac_delim_num; then
break break
elif $ac_last_try; then elif $ac_last_try; then
as_fn_error "could not make $CONFIG_STATUS" "$LINENO" 5 as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
else else
ac_delim="$ac_delim!$ac_delim _$ac_delim!! " ac_delim="$ac_delim!$ac_delim _$ac_delim!! "
fi fi
@ -6264,20 +6268,28 @@ if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then
else else
cat cat
fi < "$tmp/subs1.awk" > "$tmp/subs.awk" \ fi < "$tmp/subs1.awk" > "$tmp/subs.awk" \
|| as_fn_error "could not setup config files machinery" "$LINENO" 5 || as_fn_error $? "could not setup config files machinery" "$LINENO" 5
_ACEOF _ACEOF
# VPATH may cause trouble with some makes, so we remove $(srcdir), # VPATH may cause trouble with some makes, so we remove sole $(srcdir),
# ${srcdir} and @srcdir@ from VPATH if srcdir is ".", strip leading and # ${srcdir} and @srcdir@ entries from VPATH if srcdir is ".", strip leading and
# trailing colons and then remove the whole line if VPATH becomes empty # trailing colons and then remove the whole line if VPATH becomes empty
# (actually we leave an empty line to preserve line numbers). # (actually we leave an empty line to preserve line numbers).
if test "x$srcdir" = x.; then if test "x$srcdir" = x.; then
ac_vpsub='/^[ ]*VPATH[ ]*=/{ ac_vpsub='/^[ ]*VPATH[ ]*=[ ]*/{
s/:*\$(srcdir):*/:/ h
s/:*\${srcdir}:*/:/ s///
s/:*@srcdir@:*/:/ s/^/:/
s/^\([^=]*=[ ]*\):*/\1/ s/[ ]*$/:/
s/:\$(srcdir):/:/g
s/:\${srcdir}:/:/g
s/:@srcdir@:/:/g
s/^:*//
s/:*$// s/:*$//
x
s/\(=[ ]*\).*/\1/
G
s/\n//
s/^[^=]*=[ ]*$// s/^[^=]*=[ ]*$//
}' }'
fi fi
@ -6295,7 +6307,7 @@ do
esac esac
case $ac_mode$ac_tag in case $ac_mode$ac_tag in
:[FHL]*:*);; :[FHL]*:*);;
:L* | :C*:*) as_fn_error "invalid tag \`$ac_tag'" "$LINENO" 5;; :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;;
:[FH]-) ac_tag=-:-;; :[FH]-) ac_tag=-:-;;
:[FH]*) ac_tag=$ac_tag:$ac_tag.in;; :[FH]*) ac_tag=$ac_tag:$ac_tag.in;;
esac esac
@ -6323,7 +6335,7 @@ do
[\\/$]*) false;; [\\/$]*) false;;
*) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";;
esac || esac ||
as_fn_error "cannot find input file: \`$ac_f'" "$LINENO" 5;; as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;;
esac esac
case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac
as_fn_append ac_file_inputs " '$ac_f'" as_fn_append ac_file_inputs " '$ac_f'"
@ -6350,7 +6362,7 @@ $as_echo "$as_me: creating $ac_file" >&6;}
case $ac_tag in case $ac_tag in
*:-:* | *:-) cat >"$tmp/stdin" \ *:-:* | *:-) cat >"$tmp/stdin" \
|| as_fn_error "could not create $ac_file" "$LINENO" 5 ;; || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;;
esac esac
;; ;;
esac esac
@ -6481,22 +6493,22 @@ s&@INSTALL@&$ac_INSTALL&;t t
$ac_datarootdir_hack $ac_datarootdir_hack
" "
eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$tmp/subs.awk" >$tmp/out \ eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$tmp/subs.awk" >$tmp/out \
|| as_fn_error "could not create $ac_file" "$LINENO" 5 || as_fn_error $? "could not create $ac_file" "$LINENO" 5
test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && test -z "$ac_datarootdir_hack$ac_datarootdir_seen" &&
{ ac_out=`sed -n '/\${datarootdir}/p' "$tmp/out"`; test -n "$ac_out"; } && { ac_out=`sed -n '/\${datarootdir}/p' "$tmp/out"`; test -n "$ac_out"; } &&
{ ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' "$tmp/out"`; test -z "$ac_out"; } && { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' "$tmp/out"`; test -z "$ac_out"; } &&
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir'
which seems to be undefined. Please make sure it is defined." >&5 which seems to be undefined. Please make sure it is defined" >&5
$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' $as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir'
which seems to be undefined. Please make sure it is defined." >&2;} which seems to be undefined. Please make sure it is defined" >&2;}
rm -f "$tmp/stdin" rm -f "$tmp/stdin"
case $ac_file in case $ac_file in
-) cat "$tmp/out" && rm -f "$tmp/out";; -) cat "$tmp/out" && rm -f "$tmp/out";;
*) rm -f "$ac_file" && mv "$tmp/out" "$ac_file";; *) rm -f "$ac_file" && mv "$tmp/out" "$ac_file";;
esac \ esac \
|| as_fn_error "could not create $ac_file" "$LINENO" 5 || as_fn_error $? "could not create $ac_file" "$LINENO" 5
;; ;;
@ -6511,7 +6523,7 @@ _ACEOF
ac_clean_files=$ac_clean_files_save ac_clean_files=$ac_clean_files_save
test $ac_write_fail = 0 || test $ac_write_fail = 0 ||
as_fn_error "write failure creating $CONFIG_STATUS" "$LINENO" 5 as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5
# configure is writing to config.log, and then calls config.status. # configure is writing to config.log, and then calls config.status.
@ -6532,7 +6544,7 @@ if test "$no_create" != yes; then
exec 5>>config.log exec 5>>config.log
# Use ||, not &&, to avoid exiting from the if with $? = 1, which # Use ||, not &&, to avoid exiting from the if with $? = 1, which
# would make configure fail if this is the last instruction. # would make configure fail if this is the last instruction.
$ac_cs_success || as_fn_exit $? $ac_cs_success || as_fn_exit 1
fi fi
if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5 { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5

@ -73,7 +73,7 @@ contains
end subroutine read_int end subroutine read_int
subroutine read_single(val,file,marker) subroutine read_single(val,file,marker)
use psb_sparse_mod use psb_base_mod
real(psb_spk_), intent(out) :: val real(psb_spk_), intent(out) :: val
integer, intent(in) :: file integer, intent(in) :: file
character(len=1), optional, intent(in) :: marker character(len=1), optional, intent(in) :: marker
@ -83,7 +83,7 @@ contains
end subroutine read_single end subroutine read_single
subroutine read_double(val,file,marker) subroutine read_double(val,file,marker)
use psb_sparse_mod use psb_base_mod
real(psb_dpk_), intent(out) :: val real(psb_dpk_), intent(out) :: val
integer, intent(in) :: file integer, intent(in) :: file
character(len=1), optional, intent(in) :: marker character(len=1), optional, intent(in) :: marker
@ -131,7 +131,7 @@ contains
read(charbuf(1:idx-1),*) val read(charbuf(1:idx-1),*) val
end subroutine string_read_int end subroutine string_read_int
subroutine string_read_single(val,file,marker) subroutine string_read_single(val,file,marker)
use psb_sparse_mod use psb_base_mod
real(psb_spk_), intent(out) :: val real(psb_spk_), intent(out) :: val
character(len=*), intent(in) :: file character(len=*), intent(in) :: file
character(len=1), optional, intent(in) :: marker character(len=1), optional, intent(in) :: marker
@ -150,7 +150,7 @@ contains
read(charbuf(1:idx-1),*) val read(charbuf(1:idx-1),*) val
end subroutine string_read_single end subroutine string_read_single
subroutine string_read_double(val,file,marker) subroutine string_read_double(val,file,marker)
use psb_sparse_mod use psb_base_mod
real(psb_dpk_), intent(out) :: val real(psb_dpk_), intent(out) :: val
character(len=*), intent(in) :: file character(len=*), intent(in) :: file
character(len=1), optional, intent(in) :: marker character(len=1), optional, intent(in) :: marker

@ -46,7 +46,7 @@
! unit rhs is set). ! unit rhs is set).
! !
program mld_cexample_ml program mld_cexample_ml
use psb_sparse_mod use psb_base_mod
use mld_prec_mod use mld_prec_mod
use psb_krylov_mod use psb_krylov_mod
use psb_util_mod use psb_util_mod
@ -305,7 +305,7 @@ contains
! !
subroutine get_parms(ictxt,mtrx,rhs,filefmt,itmax,tol) subroutine get_parms(ictxt,mtrx,rhs,filefmt,itmax,tol)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
integer :: ictxt, itmax integer :: ictxt, itmax

@ -49,7 +49,7 @@
! unit rhs is set). ! unit rhs is set).
! !
program mld_cexample_ml program mld_cexample_ml
use psb_sparse_mod use psb_base_mod
use mld_prec_mod use mld_prec_mod
use psb_krylov_mod use psb_krylov_mod
use psb_util_mod use psb_util_mod
@ -342,7 +342,7 @@ contains
! !
subroutine get_parms(ictxt,mtrx,rhs,filefmt,choice,itmax,tol) subroutine get_parms(ictxt,mtrx,rhs,filefmt,choice,itmax,tol)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
integer :: ictxt, choice, itmax integer :: ictxt, choice, itmax

@ -46,7 +46,7 @@
! unit rhs is set). ! unit rhs is set).
! !
program mld_dexample_ml program mld_dexample_ml
use psb_sparse_mod use psb_base_mod
use mld_prec_mod use mld_prec_mod
use psb_krylov_mod use psb_krylov_mod
use psb_util_mod use psb_util_mod
@ -304,7 +304,7 @@ contains
! !
subroutine get_parms(ictxt,mtrx,rhs,filefmt,itmax,tol) subroutine get_parms(ictxt,mtrx,rhs,filefmt,itmax,tol)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
integer :: ictxt, itmax integer :: ictxt, itmax

@ -49,7 +49,7 @@
! unit rhs is set). ! unit rhs is set).
! !
program mld_dexample_ml program mld_dexample_ml
use psb_sparse_mod use psb_base_mod
use mld_prec_mod use mld_prec_mod
use psb_krylov_mod use psb_krylov_mod
use psb_util_mod use psb_util_mod
@ -341,7 +341,7 @@ contains
! !
subroutine get_parms(ictxt,mtrx,rhs,filefmt,choice,itmax,tol) subroutine get_parms(ictxt,mtrx,rhs,filefmt,choice,itmax,tol)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
integer :: ictxt, choice, itmax integer :: ictxt, choice, itmax

@ -46,7 +46,7 @@
! unit rhs is set). ! unit rhs is set).
! !
program mld_sexample_ml program mld_sexample_ml
use psb_sparse_mod use psb_base_mod
use mld_prec_mod use mld_prec_mod
use psb_krylov_mod use psb_krylov_mod
use psb_util_mod use psb_util_mod
@ -305,7 +305,7 @@ contains
! !
subroutine get_parms(ictxt,mtrx,rhs,filefmt,itmax,tol) subroutine get_parms(ictxt,mtrx,rhs,filefmt,itmax,tol)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
integer :: ictxt, itmax integer :: ictxt, itmax

@ -49,7 +49,7 @@
! unit rhs is set). ! unit rhs is set).
! !
program mld_sexample_ml program mld_sexample_ml
use psb_sparse_mod use psb_base_mod
use mld_prec_mod use mld_prec_mod
use psb_krylov_mod use psb_krylov_mod
use psb_util_mod use psb_util_mod
@ -342,7 +342,7 @@ contains
! !
subroutine get_parms(ictxt,mtrx,rhs,filefmt,choice,itmax,tol) subroutine get_parms(ictxt,mtrx,rhs,filefmt,choice,itmax,tol)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
integer :: ictxt, choice, itmax integer :: ictxt, choice, itmax

@ -46,7 +46,7 @@
! unit rhs is set). ! unit rhs is set).
! !
program mld_zexample_ml program mld_zexample_ml
use psb_sparse_mod use psb_base_mod
use mld_prec_mod use mld_prec_mod
use psb_krylov_mod use psb_krylov_mod
use psb_util_mod use psb_util_mod
@ -304,7 +304,7 @@ contains
! !
subroutine get_parms(ictxt,mtrx,rhs,filefmt,itmax,tol) subroutine get_parms(ictxt,mtrx,rhs,filefmt,itmax,tol)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
integer :: ictxt, itmax integer :: ictxt, itmax

@ -49,7 +49,7 @@
! unit rhs is set). ! unit rhs is set).
! !
program mld_zexample_ml program mld_zexample_ml
use psb_sparse_mod use psb_base_mod
use mld_prec_mod use mld_prec_mod
use psb_krylov_mod use psb_krylov_mod
use psb_util_mod use psb_util_mod
@ -341,7 +341,7 @@ contains
! !
subroutine get_parms(ictxt,mtrx,rhs,filefmt,choice,itmax,tol) subroutine get_parms(ictxt,mtrx,rhs,filefmt,choice,itmax,tol)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
integer :: ictxt, choice, itmax integer :: ictxt, choice, itmax

@ -73,7 +73,7 @@ contains
end subroutine read_int end subroutine read_int
subroutine read_single(val,file,marker) subroutine read_single(val,file,marker)
use psb_sparse_mod use psb_base_mod
real(psb_spk_), intent(out) :: val real(psb_spk_), intent(out) :: val
integer, intent(in) :: file integer, intent(in) :: file
character(len=1), optional, intent(in) :: marker character(len=1), optional, intent(in) :: marker
@ -83,7 +83,7 @@ contains
end subroutine read_single end subroutine read_single
subroutine read_double(val,file,marker) subroutine read_double(val,file,marker)
use psb_sparse_mod use psb_base_mod
real(psb_dpk_), intent(out) :: val real(psb_dpk_), intent(out) :: val
integer, intent(in) :: file integer, intent(in) :: file
character(len=1), optional, intent(in) :: marker character(len=1), optional, intent(in) :: marker
@ -131,7 +131,7 @@ contains
read(charbuf(1:idx-1),*) val read(charbuf(1:idx-1),*) val
end subroutine string_read_int end subroutine string_read_int
subroutine string_read_single(val,file,marker) subroutine string_read_single(val,file,marker)
use psb_sparse_mod use psb_base_mod
real(psb_spk_), intent(out) :: val real(psb_spk_), intent(out) :: val
character(len=*), intent(in) :: file character(len=*), intent(in) :: file
character(len=1), optional, intent(in) :: marker character(len=1), optional, intent(in) :: marker
@ -150,7 +150,7 @@ contains
read(charbuf(1:idx-1),*) val read(charbuf(1:idx-1),*) val
end subroutine string_read_single end subroutine string_read_single
subroutine string_read_double(val,file,marker) subroutine string_read_double(val,file,marker)
use psb_sparse_mod use psb_base_mod
real(psb_dpk_), intent(out) :: val real(psb_dpk_), intent(out) :: val
character(len=*), intent(in) :: file character(len=*), intent(in) :: file
character(len=1), optional, intent(in) :: marker character(len=1), optional, intent(in) :: marker

@ -72,7 +72,7 @@
! Note that if a1=a2=a3=a4=0., the PDE is the well-known Laplace equation. ! Note that if a1=a2=a3=a4=0., the PDE is the well-known Laplace equation.
! !
program mld_dexample_1lev program mld_dexample_1lev
use psb_sparse_mod use psb_base_mod
use mld_prec_mod use mld_prec_mod
use psb_krylov_mod use psb_krylov_mod
use psb_util_mod use psb_util_mod
@ -231,7 +231,7 @@ contains
! !
subroutine get_parms(ictxt,idim,itmax,tol) subroutine get_parms(ictxt,idim,itmax,tol)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
integer :: idim, ictxt, itmax integer :: idim, ictxt, itmax
@ -274,7 +274,7 @@ contains
! !
! Note that if a1=a2=a3=a4=0., the PDE is the well-known Laplace equation. ! Note that if a1=a2=a3=a4=0., the PDE is the well-known Laplace equation.
! !
use psb_sparse_mod use psb_base_mod
implicit none implicit none
integer :: idim integer :: idim
integer, parameter :: nb=20 integer, parameter :: nb=20
@ -570,47 +570,47 @@ end program mld_dexample_1lev
! functions parametrizing the differential equation ! functions parametrizing the differential equation
! !
function a1(x,y,z) function a1(x,y,z)
use psb_sparse_mod, only : psb_dpk_ use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: a1 real(psb_dpk_) :: a1
real(psb_dpk_) :: x,y,z real(psb_dpk_) :: x,y,z
!a1=1.d0 !a1=1.d0
a1=0.d0 a1=0.d0
end function a1 end function a1
function a2(x,y,z) function a2(x,y,z)
use psb_sparse_mod, only : psb_dpk_ use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: a2 real(psb_dpk_) :: a2
real(psb_dpk_) :: x,y,z real(psb_dpk_) :: x,y,z
!a2=2.d1*y !a2=2.d1*y
a2=0.d0 a2=0.d0
end function a2 end function a2
function a3(x,y,z) function a3(x,y,z)
use psb_sparse_mod, only : psb_dpk_ use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: a3 real(psb_dpk_) :: a3
real(psb_dpk_) :: x,y,z real(psb_dpk_) :: x,y,z
!a3=1.d0 !a3=1.d0
a3=0.d0 a3=0.d0
end function a3 end function a3
function a4(x,y,z) function a4(x,y,z)
use psb_sparse_mod, only : psb_dpk_ use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: a4 real(psb_dpk_) :: a4
real(psb_dpk_) :: x,y,z real(psb_dpk_) :: x,y,z
!a4=1.d0 !a4=1.d0
a4=0.d0 a4=0.d0
end function a4 end function a4
function b1(x,y,z) function b1(x,y,z)
use psb_sparse_mod, only : psb_dpk_ use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: b1 real(psb_dpk_) :: b1
real(psb_dpk_) :: x,y,z real(psb_dpk_) :: x,y,z
b1=1.d0 b1=1.d0
end function b1 end function b1
function b2(x,y,z) function b2(x,y,z)
use psb_sparse_mod, only : psb_dpk_ use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: b2 real(psb_dpk_) :: b2
real(psb_dpk_) :: x,y,z real(psb_dpk_) :: x,y,z
b2=1.d0 b2=1.d0
end function b2 end function b2
function b3(x,y,z) function b3(x,y,z)
use psb_sparse_mod, only : psb_dpk_ use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: b3 real(psb_dpk_) :: b3
real(psb_dpk_) :: x,y,z real(psb_dpk_) :: x,y,z
b3=1.d0 b3=1.d0

@ -72,7 +72,7 @@
! Note that if a1=a2=a3=a4=0., the PDE is the well-known Laplace equation. ! Note that if a1=a2=a3=a4=0., the PDE is the well-known Laplace equation.
! !
program mld_dexample_ml program mld_dexample_ml
use psb_sparse_mod use psb_base_mod
use mld_prec_mod use mld_prec_mod
use psb_krylov_mod use psb_krylov_mod
use psb_util_mod use psb_util_mod
@ -267,7 +267,7 @@ contains
! !
subroutine get_parms(ictxt,choice,idim,itmax,tol) subroutine get_parms(ictxt,choice,idim,itmax,tol)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
integer :: choice, idim, ictxt, itmax integer :: choice, idim, ictxt, itmax
@ -312,7 +312,7 @@ contains
! !
! Note that if a1=a2=a3=a4=0., the PDE is the well-known Laplace equation. ! Note that if a1=a2=a3=a4=0., the PDE is the well-known Laplace equation.
! !
use psb_sparse_mod use psb_base_mod
implicit none implicit none
integer :: idim integer :: idim
integer, parameter :: nb=20 integer, parameter :: nb=20
@ -608,47 +608,47 @@ end program mld_dexample_ml
! functions parametrizing the differential equation ! functions parametrizing the differential equation
! !
function a1(x,y,z) function a1(x,y,z)
use psb_sparse_mod, only : psb_dpk_ use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: a1 real(psb_dpk_) :: a1
real(psb_dpk_) :: x,y,z real(psb_dpk_) :: x,y,z
! a1=1.d0 ! a1=1.d0
a1=0.d0 a1=0.d0
end function a1 end function a1
function a2(x,y,z) function a2(x,y,z)
use psb_sparse_mod, only : psb_dpk_ use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: a2 real(psb_dpk_) :: a2
real(psb_dpk_) :: x,y,z real(psb_dpk_) :: x,y,z
! a2=2.d1*y ! a2=2.d1*y
a2=0.d0 a2=0.d0
end function a2 end function a2
function a3(x,y,z) function a3(x,y,z)
use psb_sparse_mod, only : psb_dpk_ use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: a3 real(psb_dpk_) :: a3
real(psb_dpk_) :: x,y,z real(psb_dpk_) :: x,y,z
! a3=1.d0 ! a3=1.d0
a3=0.d0 a3=0.d0
end function a3 end function a3
function a4(x,y,z) function a4(x,y,z)
use psb_sparse_mod, only : psb_dpk_ use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: a4 real(psb_dpk_) :: a4
real(psb_dpk_) :: x,y,z real(psb_dpk_) :: x,y,z
! a4=1.d0 ! a4=1.d0
a4=0.d0 a4=0.d0
end function a4 end function a4
function b1(x,y,z) function b1(x,y,z)
use psb_sparse_mod, only : psb_dpk_ use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: b1 real(psb_dpk_) :: b1
real(psb_dpk_) :: x,y,z real(psb_dpk_) :: x,y,z
b1=1.d0 b1=1.d0
end function b1 end function b1
function b2(x,y,z) function b2(x,y,z)
use psb_sparse_mod, only : psb_dpk_ use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: b2 real(psb_dpk_) :: b2
real(psb_dpk_) :: x,y,z real(psb_dpk_) :: x,y,z
b2=1.d0 b2=1.d0
end function b2 end function b2
function b3(x,y,z) function b3(x,y,z)
use psb_sparse_mod, only : psb_dpk_ use psb_base_mod, only : psb_dpk_
real(psb_dpk_) :: b3 real(psb_dpk_) :: b3
real(psb_dpk_) :: x,y,z real(psb_dpk_) :: x,y,z
b3=1.d0 b3=1.d0

@ -72,7 +72,7 @@
! Note that if a1=a2=a3=a4=0., the PDE is the well-known Laplace equation. ! Note that if a1=a2=a3=a4=0., the PDE is the well-known Laplace equation.
! !
program mld_sexample_1lev program mld_sexample_1lev
use psb_sparse_mod use psb_base_mod
use mld_prec_mod use mld_prec_mod
use psb_krylov_mod use psb_krylov_mod
use psb_util_mod use psb_util_mod
@ -232,7 +232,7 @@ contains
! !
subroutine get_parms(ictxt,idim,itmax,tol) subroutine get_parms(ictxt,idim,itmax,tol)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
integer :: idim, ictxt, itmax integer :: idim, ictxt, itmax
@ -275,7 +275,7 @@ contains
! !
! Note that if a1=a2=a3=a4=0., the PDE is the well-known Laplace equation. ! Note that if a1=a2=a3=a4=0., the PDE is the well-known Laplace equation.
! !
use psb_sparse_mod use psb_base_mod
implicit none implicit none
integer :: idim integer :: idim
integer, parameter :: nb=20 integer, parameter :: nb=20
@ -571,47 +571,47 @@ end program mld_sexample_1lev
! functions parametrizing the differential equation ! functions parametrizing the differential equation
! !
function a1(x,y,z) function a1(x,y,z)
use psb_sparse_mod, only : psb_spk_ use psb_base_mod, only : psb_spk_
real(psb_spk_) :: a1 real(psb_spk_) :: a1
real(psb_spk_) :: x,y,z real(psb_spk_) :: x,y,z
!a1=1.e0 !a1=1.e0
a1=0.e0 a1=0.e0
end function a1 end function a1
function a2(x,y,z) function a2(x,y,z)
use psb_sparse_mod, only : psb_spk_ use psb_base_mod, only : psb_spk_
real(psb_spk_) :: a2 real(psb_spk_) :: a2
real(psb_spk_) :: x,y,z real(psb_spk_) :: x,y,z
!a2=2.e1*y !a2=2.e1*y
a2=0.e0 a2=0.e0
end function a2 end function a2
function a3(x,y,z) function a3(x,y,z)
use psb_sparse_mod, only : psb_spk_ use psb_base_mod, only : psb_spk_
real(psb_spk_) :: a3 real(psb_spk_) :: a3
real(psb_spk_) :: x,y,z real(psb_spk_) :: x,y,z
!a3=1.e0 !a3=1.e0
a3=0.e0 a3=0.e0
end function a3 end function a3
function a4(x,y,z) function a4(x,y,z)
use psb_sparse_mod, only : psb_spk_ use psb_base_mod, only : psb_spk_
real(psb_spk_) :: a4 real(psb_spk_) :: a4
real(psb_spk_) :: x,y,z real(psb_spk_) :: x,y,z
!a4=1.e0 !a4=1.e0
a4=0.e0 a4=0.e0
end function a4 end function a4
function b1(x,y,z) function b1(x,y,z)
use psb_sparse_mod, only : psb_spk_ use psb_base_mod, only : psb_spk_
real(psb_spk_) :: b1 real(psb_spk_) :: b1
real(psb_spk_) :: x,y,z real(psb_spk_) :: x,y,z
b1=1.e0 b1=1.e0
end function b1 end function b1
function b2(x,y,z) function b2(x,y,z)
use psb_sparse_mod, only : psb_spk_ use psb_base_mod, only : psb_spk_
real(psb_spk_) :: b2 real(psb_spk_) :: b2
real(psb_spk_) :: x,y,z real(psb_spk_) :: x,y,z
b2=1.e0 b2=1.e0
end function b2 end function b2
function b3(x,y,z) function b3(x,y,z)
use psb_sparse_mod, only : psb_spk_ use psb_base_mod, only : psb_spk_
real(psb_spk_) :: b3 real(psb_spk_) :: b3
real(psb_spk_) :: x,y,z real(psb_spk_) :: x,y,z
b3=1.e0 b3=1.e0

@ -72,7 +72,7 @@
! Note that if a1=a2=a3=a4=0., the PDE is the well-known Laplace equation. ! Note that if a1=a2=a3=a4=0., the PDE is the well-known Laplace equation.
! !
program mld_sexample_ml program mld_sexample_ml
use psb_sparse_mod use psb_base_mod
use mld_prec_mod use mld_prec_mod
use psb_krylov_mod use psb_krylov_mod
use psb_util_mod use psb_util_mod
@ -268,7 +268,7 @@ contains
! !
subroutine get_parms(ictxt,choice,idim,itmax,tol) subroutine get_parms(ictxt,choice,idim,itmax,tol)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
integer :: choice, idim, ictxt, itmax integer :: choice, idim, ictxt, itmax
@ -313,7 +313,7 @@ contains
! !
! Note that if a1=a2=a3=a4=0., the PDE is the well-known Laplace equation. ! Note that if a1=a2=a3=a4=0., the PDE is the well-known Laplace equation.
! !
use psb_sparse_mod use psb_base_mod
implicit none implicit none
integer :: idim integer :: idim
integer, parameter :: nb=20 integer, parameter :: nb=20
@ -609,47 +609,47 @@ end program mld_sexample_ml
! functions parametrizing the differential equation ! functions parametrizing the differential equation
! !
function a1(x,y,z) function a1(x,y,z)
use psb_sparse_mod, only : psb_spk_ use psb_base_mod, only : psb_spk_
real(psb_spk_) :: a1 real(psb_spk_) :: a1
real(psb_spk_) :: x,y,z real(psb_spk_) :: x,y,z
! a1=1.e0 ! a1=1.e0
a1=0.e0 a1=0.e0
end function a1 end function a1
function a2(x,y,z) function a2(x,y,z)
use psb_sparse_mod, only : psb_spk_ use psb_base_mod, only : psb_spk_
real(psb_spk_) :: a2 real(psb_spk_) :: a2
real(psb_spk_) :: x,y,z real(psb_spk_) :: x,y,z
! a2=2.e1*y ! a2=2.e1*y
a2=0.e0 a2=0.e0
end function a2 end function a2
function a3(x,y,z) function a3(x,y,z)
use psb_sparse_mod, only : psb_spk_ use psb_base_mod, only : psb_spk_
real(psb_spk_) :: a3 real(psb_spk_) :: a3
real(psb_spk_) :: x,y,z real(psb_spk_) :: x,y,z
! a3=1.e0 ! a3=1.e0
a3=0.e0 a3=0.e0
end function a3 end function a3
function a4(x,y,z) function a4(x,y,z)
use psb_sparse_mod, only : psb_spk_ use psb_base_mod, only : psb_spk_
real(psb_spk_) :: a4 real(psb_spk_) :: a4
real(psb_spk_) :: x,y,z real(psb_spk_) :: x,y,z
! a4=1.e0 ! a4=1.e0
a4=0.e0 a4=0.e0
end function a4 end function a4
function b1(x,y,z) function b1(x,y,z)
use psb_sparse_mod, only : psb_spk_ use psb_base_mod, only : psb_spk_
real(psb_spk_) :: b1 real(psb_spk_) :: b1
real(psb_spk_) :: x,y,z real(psb_spk_) :: x,y,z
b1=1.e0 b1=1.e0
end function b1 end function b1
function b2(x,y,z) function b2(x,y,z)
use psb_sparse_mod, only : psb_spk_ use psb_base_mod, only : psb_spk_
real(psb_spk_) :: b2 real(psb_spk_) :: b2
real(psb_spk_) :: x,y,z real(psb_spk_) :: x,y,z
b2=1.e0 b2=1.e0
end function b2 end function b2
function b3(x,y,z) function b3(x,y,z)
use psb_sparse_mod, only : psb_spk_ use psb_base_mod, only : psb_spk_
real(psb_spk_) :: b3 real(psb_spk_) :: b3
real(psb_spk_) :: x,y,z real(psb_spk_) :: x,y,z
b3=1.e0 b3=1.e0

@ -86,7 +86,7 @@ mld_s_prec_type.o mld_d_prec_type.o mld_c_prec_type.o mld_z_prec_type.o : mld_ba
mld_prec_type.o: mld_s_prec_type.o mld_d_prec_type.o mld_c_prec_type.o mld_z_prec_type.o mld_prec_type.o: mld_s_prec_type.o mld_d_prec_type.o mld_c_prec_type.o mld_z_prec_type.o
mld_prec_mod.o: mld_prec_type.o mld_s_prec_mod.o mld_d_prec_mod.o mld_c_prec_mod.o mld_z_prec_mod.o mld_prec_mod.o: mld_prec_type.o mld_s_prec_mod.o mld_d_prec_mod.o mld_c_prec_mod.o mld_z_prec_mod.o
$(MODOBJS): $(PSBINCDIR)/psb_sparse_mod$(.mod) $(MODOBJS): $(PSBINCDIR)/psb_base_mod$(.mod)
$(SINNEROBJS) $(SOUTEROBJS): $(SMODOBJS) $(SINNEROBJS) $(SOUTEROBJS): $(SMODOBJS)
$(DINNEROBJS) $(DOUTEROBJS): $(DMODOBJS) $(DINNEROBJS) $(DOUTEROBJS): $(DMODOBJS)

@ -62,7 +62,7 @@ module mld_base_prec_type
! blows up on some systems. ! blows up on some systems.
! !
use psb_const_mod use psb_const_mod
use psb_sparse_mod, only :& use psb_base_mod, only :&
& psb_dspmat_type, psb_zspmat_type,& & psb_dspmat_type, psb_zspmat_type,&
& psb_sspmat_type, psb_cspmat_type,& & psb_sspmat_type, psb_cspmat_type,&
& psb_desc_type,& & psb_desc_type,&
@ -393,7 +393,7 @@ contains
subroutine ml_parms_descr(pm,iout,info,coarse) subroutine ml_parms_descr(pm,iout,info,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -473,7 +473,7 @@ contains
subroutine s_ml_parms_descr(pm,iout,info,coarse) subroutine s_ml_parms_descr(pm,iout,info,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -496,7 +496,7 @@ contains
subroutine d_ml_parms_descr(pm,iout,info,coarse) subroutine d_ml_parms_descr(pm,iout,info,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1069,7 +1069,7 @@ contains
character(len=*), intent(in) :: name character(len=*), intent(in) :: name
interface interface
function is_legal(i) function is_legal(i)
use psb_sparse_mod, only : psb_spk_ use psb_base_mod, only : psb_spk_
real(psb_spk_), intent(in) :: i real(psb_spk_), intent(in) :: i
logical :: is_legal logical :: is_legal
end function is_legal end function is_legal
@ -1090,7 +1090,7 @@ contains
character(len=*), intent(in) :: name character(len=*), intent(in) :: name
interface interface
function is_legal(i) function is_legal(i)
use psb_sparse_mod, only : psb_dpk_ use psb_base_mod, only : psb_dpk_
real(psb_dpk_), intent(in) :: i real(psb_dpk_), intent(in) :: i
logical :: is_legal logical :: is_legal
end function is_legal end function is_legal
@ -1125,7 +1125,7 @@ contains
end function pr_to_str end function pr_to_str
subroutine mld_ml_bcast(ictxt,dat,root) subroutine mld_ml_bcast(ictxt,dat,root)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
integer, intent(in) :: ictxt integer, intent(in) :: ictxt
type(mld_ml_parms), intent(inout) :: dat type(mld_ml_parms), intent(inout) :: dat
@ -1147,7 +1147,7 @@ contains
end subroutine mld_ml_bcast end subroutine mld_ml_bcast
subroutine mld_sml_bcast(ictxt,dat,root) subroutine mld_sml_bcast(ictxt,dat,root)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
integer, intent(in) :: ictxt integer, intent(in) :: ictxt
type(mld_sml_parms), intent(inout) :: dat type(mld_sml_parms), intent(inout) :: dat
@ -1159,7 +1159,7 @@ contains
end subroutine mld_sml_bcast end subroutine mld_sml_bcast
subroutine mld_dml_bcast(ictxt,dat,root) subroutine mld_dml_bcast(ictxt,dat,root)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
integer, intent(in) :: ictxt integer, intent(in) :: ictxt
type(mld_dml_parms), intent(inout) :: dat type(mld_dml_parms), intent(inout) :: dat

@ -86,7 +86,7 @@ contains
subroutine c_as_smoother_default(sm) subroutine c_as_smoother_default(sm)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -108,7 +108,7 @@ contains
subroutine c_as_smoother_check(sm,info) subroutine c_as_smoother_check(sm,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -152,7 +152,7 @@ contains
end subroutine c_as_smoother_check end subroutine c_as_smoother_check
subroutine c_as_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,work,info) subroutine c_as_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_c_as_smoother_type), intent(in) :: sm class(mld_c_as_smoother_type), intent(in) :: sm
complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: x(:)
@ -588,7 +588,7 @@ contains
subroutine c_as_smoother_bld(a,desc_a,sm,upd,info) subroutine c_as_smoother_bld(a,desc_a,sm,upd,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -729,7 +729,7 @@ contains
subroutine c_as_smoother_seti(sm,what,val,info) subroutine c_as_smoother_seti(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -773,7 +773,7 @@ contains
subroutine c_as_smoother_setc(sm,what,val,info) subroutine c_as_smoother_setc(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -811,7 +811,7 @@ contains
subroutine c_as_smoother_setr(sm,what,val,info) subroutine c_as_smoother_setr(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -848,7 +848,7 @@ contains
subroutine c_as_smoother_free(sm,info) subroutine c_as_smoother_free(sm,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -888,7 +888,7 @@ contains
subroutine c_as_smoother_descr(sm,info,iout,coarse) subroutine c_as_smoother_descr(sm,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -942,7 +942,7 @@ contains
end subroutine c_as_smoother_descr end subroutine c_as_smoother_descr
function c_as_smoother_sizeof(sm) result(val) function c_as_smoother_sizeof(sm) result(val)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_c_as_smoother_type), intent(in) :: sm class(mld_c_as_smoother_type), intent(in) :: sm
@ -957,7 +957,7 @@ contains
end function c_as_smoother_sizeof end function c_as_smoother_sizeof
subroutine c_as_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solver) subroutine c_as_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solver)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
class(mld_c_as_smoother_type), intent(in) :: sm class(mld_c_as_smoother_type), intent(in) :: sm
integer, intent(in) :: ictxt,level integer, intent(in) :: ictxt,level

@ -70,7 +70,7 @@ module mld_c_diag_solver
contains contains
subroutine c_diag_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine c_diag_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_c_diag_solver_type), intent(in) :: sv class(mld_c_diag_solver_type), intent(in) :: sv
complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: x(:)
@ -191,7 +191,7 @@ contains
subroutine c_diag_solver_bld(a,desc_a,sv,upd,info,b) subroutine c_diag_solver_bld(a,desc_a,sv,upd,info,b)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -270,7 +270,7 @@ contains
subroutine c_diag_solver_seti(sv,what,val,info) subroutine c_diag_solver_seti(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -309,7 +309,7 @@ contains
subroutine c_diag_solver_setc(sv,what,val,info) subroutine c_diag_solver_setc(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -347,7 +347,7 @@ contains
subroutine c_diag_solver_setr(sv,what,val,info) subroutine c_diag_solver_setr(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -385,7 +385,7 @@ contains
subroutine c_diag_solver_free(sv,info) subroutine c_diag_solver_free(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -421,7 +421,7 @@ contains
subroutine c_diag_solver_descr(sv,info,iout,coarse) subroutine c_diag_solver_descr(sv,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -451,7 +451,7 @@ contains
end subroutine c_diag_solver_descr end subroutine c_diag_solver_descr
function c_diag_solver_sizeof(sv) result(val) function c_diag_solver_sizeof(sv) result(val)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_c_diag_solver_type), intent(in) :: sv class(mld_c_diag_solver_type), intent(in) :: sv

@ -69,7 +69,7 @@ module mld_c_id_solver
contains contains
subroutine c_id_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine c_id_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_c_id_solver_type), intent(in) :: sv class(mld_c_id_solver_type), intent(in) :: sv
complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: x(:)
@ -115,7 +115,7 @@ contains
subroutine c_id_solver_bld(a,desc_a,sv,upd,info,b) subroutine c_id_solver_bld(a,desc_a,sv,upd,info,b)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -160,7 +160,7 @@ contains
subroutine c_id_solver_seti(sv,what,val,info) subroutine c_id_solver_seti(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -180,7 +180,7 @@ contains
subroutine c_id_solver_setc(sv,what,val,info) subroutine c_id_solver_setc(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -199,7 +199,7 @@ contains
subroutine c_id_solver_setr(sv,what,val,info) subroutine c_id_solver_setr(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -219,7 +219,7 @@ contains
subroutine c_id_solver_free(sv,info) subroutine c_id_solver_free(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -236,7 +236,7 @@ contains
subroutine c_id_solver_descr(sv,info,iout,coarse) subroutine c_id_solver_descr(sv,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -266,7 +266,7 @@ contains
end subroutine c_id_solver_descr end subroutine c_id_solver_descr
function c_id_solver_sizeof(sv) result(val) function c_id_solver_sizeof(sv) result(val)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_c_id_solver_type), intent(in) :: sv class(mld_c_id_solver_type), intent(in) :: sv

@ -86,7 +86,7 @@ contains
subroutine c_ilu_solver_default(sv) subroutine c_ilu_solver_default(sv)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -102,7 +102,7 @@ contains
subroutine c_ilu_solver_check(sv,info) subroutine c_ilu_solver_check(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -143,7 +143,7 @@ contains
subroutine c_ilu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine c_ilu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_c_ilu_solver_type), intent(in) :: sv class(mld_c_ilu_solver_type), intent(in) :: sv
complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: x(:)
@ -247,7 +247,7 @@ contains
subroutine c_ilu_solver_bld(a,desc_a,sv,upd,info,b) subroutine c_ilu_solver_bld(a,desc_a,sv,upd,info,b)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -419,7 +419,7 @@ contains
subroutine c_ilu_solver_seti(sv,what,val,info) subroutine c_ilu_solver_seti(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -458,7 +458,7 @@ contains
subroutine c_ilu_solver_setc(sv,what,val,info) subroutine c_ilu_solver_setc(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -496,7 +496,7 @@ contains
subroutine c_ilu_solver_setr(sv,what,val,info) subroutine c_ilu_solver_setr(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -534,7 +534,7 @@ contains
subroutine c_ilu_solver_free(sv,info) subroutine c_ilu_solver_free(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -572,7 +572,7 @@ contains
subroutine c_ilu_solver_descr(sv,info,iout,coarse) subroutine c_ilu_solver_descr(sv,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -619,7 +619,7 @@ contains
end subroutine c_ilu_solver_descr end subroutine c_ilu_solver_descr
function c_ilu_solver_sizeof(sv) result(val) function c_ilu_solver_sizeof(sv) result(val)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_c_ilu_solver_type), intent(in) :: sv class(mld_c_ilu_solver_type), intent(in) :: sv
@ -635,7 +635,7 @@ contains
end function c_ilu_solver_sizeof end function c_ilu_solver_sizeof
subroutine c_ilu_solver_dmp(sv,ictxt,level,info,prefix,head,solver) subroutine c_ilu_solver_dmp(sv,ictxt,level,info,prefix,head,solver)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
class(mld_c_ilu_solver_type), intent(in) :: sv class(mld_c_ilu_solver_type), intent(in) :: sv
integer, intent(in) :: ictxt,level integer, intent(in) :: ictxt,level

@ -51,7 +51,7 @@ module mld_c_inner_mod
interface mld_mlprec_bld interface mld_mlprec_bld
subroutine mld_cmlprec_bld(a,desc_a,prec,info) subroutine mld_cmlprec_bld(a,desc_a,prec,info)
use psb_sparse_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
use mld_c_prec_type, only : mld_cprec_type use mld_c_prec_type, only : mld_cprec_type
implicit none implicit none
type(psb_cspmat_type), intent(in), target :: a type(psb_cspmat_type), intent(in), target :: a
@ -65,7 +65,7 @@ module mld_c_inner_mod
interface mld_mlprec_aply interface mld_mlprec_aply
subroutine mld_cmlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info) subroutine mld_cmlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
use mld_c_prec_type, only : mld_cprec_type use mld_c_prec_type, only : mld_cprec_type
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
type(mld_cprec_type), intent(in) :: p type(mld_cprec_type), intent(in) :: p
@ -81,7 +81,7 @@ module mld_c_inner_mod
interface mld_coarse_bld interface mld_coarse_bld
subroutine mld_ccoarse_bld(a,desc_a,p,info) subroutine mld_ccoarse_bld(a,desc_a,p,info)
use psb_sparse_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
use mld_c_prec_type, only : mld_conelev_type use mld_c_prec_type, only : mld_conelev_type
type(psb_cspmat_type), intent(in) :: a type(psb_cspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
@ -92,7 +92,7 @@ module mld_c_inner_mod
interface mld_aggrmap_bld interface mld_aggrmap_bld
subroutine mld_caggrmap_bld(aggr_type,theta,a,desc_a,ilaggr,nlaggr,info) subroutine mld_caggrmap_bld(aggr_type,theta,a,desc_a,ilaggr,nlaggr,info)
use psb_sparse_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
integer, intent(in) :: aggr_type integer, intent(in) :: aggr_type
real(psb_spk_), intent(in) :: theta real(psb_spk_), intent(in) :: theta
type(psb_cspmat_type), intent(in) :: a type(psb_cspmat_type), intent(in) :: a
@ -104,7 +104,7 @@ module mld_c_inner_mod
interface mld_aggrmat_asb interface mld_aggrmat_asb
subroutine mld_caggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info) subroutine mld_caggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info)
use psb_sparse_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
use mld_c_prec_type, only : mld_conelev_type use mld_c_prec_type, only : mld_conelev_type
type(psb_cspmat_type), intent(in) :: a type(psb_cspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
@ -116,7 +116,7 @@ module mld_c_inner_mod
interface mld_aggrmat_nosmth_asb interface mld_aggrmat_nosmth_asb
subroutine mld_caggrmat_nosmth_asb(a,desc_a,ilaggr,nlaggr,p,info) subroutine mld_caggrmat_nosmth_asb(a,desc_a,ilaggr,nlaggr,p,info)
use psb_sparse_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
use mld_c_prec_type, only : mld_conelev_type use mld_c_prec_type, only : mld_conelev_type
type(psb_cspmat_type), intent(in) :: a type(psb_cspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
@ -128,7 +128,7 @@ module mld_c_inner_mod
interface mld_aggrmat_smth_asb interface mld_aggrmat_smth_asb
subroutine mld_caggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,p,info) subroutine mld_caggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,p,info)
use psb_sparse_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
use mld_c_prec_type, only : mld_conelev_type use mld_c_prec_type, only : mld_conelev_type
type(psb_cspmat_type), intent(in) :: a type(psb_cspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a

@ -75,7 +75,7 @@ module mld_c_jac_smoother
contains contains
subroutine c_jac_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,work,info) subroutine c_jac_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_c_jac_smoother_type), intent(in) :: sm class(mld_c_jac_smoother_type), intent(in) :: sm
complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: x(:)
@ -230,7 +230,7 @@ contains
subroutine c_jac_smoother_bld(a,desc_a,sm,upd,info) subroutine c_jac_smoother_bld(a,desc_a,sm,upd,info)
use psb_sparse_mod use psb_base_mod
use mld_c_diag_solver use mld_c_diag_solver
Implicit None Implicit None
@ -305,7 +305,7 @@ contains
subroutine c_jac_smoother_seti(sm,what,val,info) subroutine c_jac_smoother_seti(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -346,7 +346,7 @@ contains
subroutine c_jac_smoother_setc(sm,what,val,info) subroutine c_jac_smoother_setc(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -384,7 +384,7 @@ contains
subroutine c_jac_smoother_setr(sm,what,val,info) subroutine c_jac_smoother_setr(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -421,7 +421,7 @@ contains
subroutine c_jac_smoother_free(sm,info) subroutine c_jac_smoother_free(sm,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -461,7 +461,7 @@ contains
subroutine c_jac_smoother_descr(sm,info,iout,coarse) subroutine c_jac_smoother_descr(sm,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -512,7 +512,7 @@ contains
end subroutine c_jac_smoother_descr end subroutine c_jac_smoother_descr
function c_jac_smoother_sizeof(sm) result(val) function c_jac_smoother_sizeof(sm) result(val)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_c_jac_smoother_type), intent(in) :: sm class(mld_c_jac_smoother_type), intent(in) :: sm

@ -56,7 +56,7 @@ module mld_c_move_alloc_mod
contains contains
subroutine mld_conelev_prec_move_alloc(a, b,info) subroutine mld_conelev_prec_move_alloc(a, b,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
type(mld_conelev_type), intent(inout) :: a, b type(mld_conelev_type), intent(inout) :: a, b
integer, intent(out) :: info integer, intent(out) :: info
@ -72,7 +72,7 @@ contains
end subroutine mld_conelev_prec_move_alloc end subroutine mld_conelev_prec_move_alloc
subroutine mld_cprec_move_alloc(a, b,info) subroutine mld_cprec_move_alloc(a, b,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
type(mld_cprec_type), intent(inout) :: a type(mld_cprec_type), intent(inout) :: a
type(mld_cprec_type), intent(inout), target :: b type(mld_cprec_type), intent(inout), target :: b

@ -50,7 +50,7 @@ module mld_c_prec_mod
interface mld_precinit interface mld_precinit
subroutine mld_cprecinit(p,ptype,info,nlev) subroutine mld_cprecinit(p,ptype,info,nlev)
use psb_sparse_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
use mld_c_prec_type, only : mld_cprec_type use mld_c_prec_type, only : mld_cprec_type
type(mld_cprec_type), intent(inout) :: p type(mld_cprec_type), intent(inout) :: p
character(len=*), intent(in) :: ptype character(len=*), intent(in) :: ptype
@ -89,7 +89,7 @@ module mld_c_prec_mod
integer, optional, intent(in) :: ilev integer, optional, intent(in) :: ilev
end subroutine mld_cprecseti end subroutine mld_cprecseti
subroutine mld_cprecsetr(p,what,val,info,ilev) subroutine mld_cprecsetr(p,what,val,info,ilev)
use psb_sparse_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
use mld_c_prec_type, only : mld_cprec_type use mld_c_prec_type, only : mld_cprec_type
type(mld_cprec_type), intent(inout) :: p type(mld_cprec_type), intent(inout) :: p
integer, intent(in) :: what integer, intent(in) :: what
@ -98,7 +98,7 @@ module mld_c_prec_mod
integer, optional, intent(in) :: ilev integer, optional, intent(in) :: ilev
end subroutine mld_cprecsetr end subroutine mld_cprecsetr
subroutine mld_cprecsetc(p,what,string,info,ilev) subroutine mld_cprecsetc(p,what,string,info,ilev)
use psb_sparse_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
use mld_c_prec_type, only : mld_cprec_type use mld_c_prec_type, only : mld_cprec_type
type(mld_cprec_type), intent(inout) :: p type(mld_cprec_type), intent(inout) :: p
integer, intent(in) :: what integer, intent(in) :: what
@ -110,7 +110,7 @@ module mld_c_prec_mod
interface mld_precbld interface mld_precbld
subroutine mld_cprecbld(a,desc_a,prec,info) subroutine mld_cprecbld(a,desc_a,prec,info)
use psb_sparse_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
use mld_c_prec_type, only : mld_cprec_type use mld_c_prec_type, only : mld_cprec_type
implicit none implicit none
type(psb_cspmat_type), intent(in), target :: a type(psb_cspmat_type), intent(in), target :: a
@ -124,7 +124,7 @@ module mld_c_prec_mod
contains contains
subroutine mld_i_cprecseti(p,what,val,info) subroutine mld_i_cprecseti(p,what,val,info)
use psb_sparse_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
use mld_c_prec_type, only : mld_cprec_type use mld_c_prec_type, only : mld_cprec_type
type(mld_cprec_type), intent(inout) :: p type(mld_cprec_type), intent(inout) :: p
integer, intent(in) :: what integer, intent(in) :: what
@ -135,7 +135,7 @@ contains
end subroutine mld_i_cprecseti end subroutine mld_i_cprecseti
subroutine mld_i_cprecsetr(p,what,val,info) subroutine mld_i_cprecsetr(p,what,val,info)
use psb_sparse_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
use mld_c_prec_type, only : mld_cprec_type use mld_c_prec_type, only : mld_cprec_type
type(mld_cprec_type), intent(inout) :: p type(mld_cprec_type), intent(inout) :: p
integer, intent(in) :: what integer, intent(in) :: what
@ -146,7 +146,7 @@ contains
end subroutine mld_i_cprecsetr end subroutine mld_i_cprecsetr
subroutine mld_i_cprecsetc(p,what,val,info) subroutine mld_i_cprecsetc(p,what,val,info)
use psb_sparse_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
use mld_c_prec_type, only : mld_cprec_type use mld_c_prec_type, only : mld_cprec_type
type(mld_cprec_type), intent(inout) :: p type(mld_cprec_type), intent(inout) :: p
integer, intent(in) :: what integer, intent(in) :: what

@ -277,7 +277,7 @@ module mld_c_prec_type
interface mld_precaply interface mld_precaply
subroutine mld_cprecaply(prec,x,y,desc_data,info,trans,work) subroutine mld_cprecaply(prec,x,y,desc_data,info,trans,work)
use psb_sparse_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
import mld_cprec_type import mld_cprec_type
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
type(mld_cprec_type), intent(in) :: prec type(mld_cprec_type), intent(in) :: prec
@ -288,7 +288,7 @@ module mld_c_prec_type
complex(psb_spk_),intent(inout), optional, target :: work(:) complex(psb_spk_),intent(inout), optional, target :: work(:)
end subroutine mld_cprecaply end subroutine mld_cprecaply
subroutine mld_cprecaply1(prec,x,desc_data,info,trans) subroutine mld_cprecaply1(prec,x,desc_data,info,trans)
use psb_sparse_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
import mld_cprec_type import mld_cprec_type
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
type(mld_cprec_type), intent(in) :: prec type(mld_cprec_type), intent(in) :: prec
@ -476,7 +476,7 @@ contains
subroutine c_base_onelev_descr(lv,info,iout,coarse) subroutine c_base_onelev_descr(lv,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -535,7 +535,7 @@ contains
end subroutine c_base_onelev_descr end subroutine c_base_onelev_descr
subroutine mld_c_onelev_precfree(p,info) subroutine mld_c_onelev_precfree(p,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
type(mld_conelev_type), intent(inout) :: p type(mld_conelev_type), intent(inout) :: p
@ -579,7 +579,7 @@ contains
subroutine mld_cprec_free(p,info) subroutine mld_cprec_free(p,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
@ -619,7 +619,7 @@ contains
subroutine c_base_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,work,info) subroutine c_base_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_c_base_smoother_type), intent(in) :: sm class(mld_c_base_smoother_type), intent(in) :: sm
complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: x(:)
@ -660,7 +660,7 @@ contains
subroutine c_base_smoother_check(sm,info) subroutine c_base_smoother_check(sm,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -698,7 +698,7 @@ contains
subroutine c_base_smoother_seti(sm,what,val,info) subroutine c_base_smoother_seti(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -731,7 +731,7 @@ contains
subroutine c_base_smoother_setc(sm,what,val,info) subroutine c_base_smoother_setc(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -766,7 +766,7 @@ contains
subroutine c_base_smoother_setr(sm,what,val,info) subroutine c_base_smoother_setr(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -802,7 +802,7 @@ contains
subroutine c_base_smoother_bld(a,desc_a,sm,upd,info) subroutine c_base_smoother_bld(a,desc_a,sm,upd,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -841,7 +841,7 @@ contains
subroutine c_base_smoother_free(sm,info) subroutine c_base_smoother_free(sm,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -877,7 +877,7 @@ contains
subroutine c_base_smoother_descr(sm,info,iout,coarse) subroutine c_base_smoother_descr(sm,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -953,7 +953,7 @@ contains
subroutine c_base_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine c_base_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_c_base_solver_type), intent(in) :: sv class(mld_c_base_solver_type), intent(in) :: sv
complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: x(:)
@ -987,7 +987,7 @@ contains
subroutine c_base_solver_bld(a,desc_a,sv,upd,info,b) subroutine c_base_solver_bld(a,desc_a,sv,upd,info,b)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1022,7 +1022,7 @@ contains
subroutine c_base_solver_check(sv,info) subroutine c_base_solver_check(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1052,7 +1052,7 @@ contains
subroutine c_base_solver_seti(sv,what,val,info) subroutine c_base_solver_seti(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1072,7 +1072,7 @@ contains
subroutine c_base_solver_setc(sv,what,val,info) subroutine c_base_solver_setc(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1108,7 +1108,7 @@ contains
subroutine c_base_solver_setr(sv,what,val,info) subroutine c_base_solver_setr(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1129,7 +1129,7 @@ contains
subroutine c_base_solver_free(sv,info) subroutine c_base_solver_free(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1159,7 +1159,7 @@ contains
subroutine c_base_solver_descr(sv,info,iout,coarse) subroutine c_base_solver_descr(sv,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1216,7 +1216,7 @@ contains
subroutine mld_c_apply2v(prec,x,y,desc_data,info,trans,work) subroutine mld_c_apply2v(prec,x,y,desc_data,info,trans,work)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
class(mld_cprec_type), intent(in) :: prec class(mld_cprec_type), intent(in) :: prec
complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: x(:)
@ -1252,7 +1252,7 @@ contains
end subroutine mld_c_apply2v end subroutine mld_c_apply2v
subroutine mld_c_apply1v(prec,x,desc_data,info,trans) subroutine mld_c_apply1v(prec,x,desc_data,info,trans)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
class(mld_cprec_type), intent(in) :: prec class(mld_cprec_type), intent(in) :: prec
complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: x(:)
@ -1287,7 +1287,7 @@ contains
subroutine c_base_onelev_check(lv,info) subroutine c_base_onelev_check(lv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1333,7 +1333,7 @@ contains
subroutine c_base_onelev_default(lv) subroutine c_base_onelev_default(lv)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1363,7 +1363,7 @@ contains
subroutine c_base_onelev_seti(lv,what,val,info) subroutine c_base_onelev_seti(lv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1438,7 +1438,7 @@ contains
subroutine c_base_onelev_setc(lv,what,val,info) subroutine c_base_onelev_setc(lv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1474,7 +1474,7 @@ contains
subroutine c_base_onelev_setr(lv,what,val,info) subroutine c_base_onelev_setr(lv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1519,7 +1519,7 @@ contains
end subroutine c_base_onelev_setr end subroutine c_base_onelev_setr
subroutine mld_c_dump(prec,info,istart,iend,prefix,head,ac,smoother,solver) subroutine mld_c_dump(prec,info,istart,iend,prefix,head,ac,smoother,solver)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
class(mld_cprec_type), intent(in) :: prec class(mld_cprec_type), intent(in) :: prec
integer, intent(out) :: info integer, intent(out) :: info
@ -1553,7 +1553,7 @@ contains
subroutine c_base_onelev_dump(lv,level,info,prefix,head,ac,smoother,solver) subroutine c_base_onelev_dump(lv,level,info,prefix,head,ac,smoother,solver)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
class(mld_conelev_type), intent(in) :: lv class(mld_conelev_type), intent(in) :: lv
integer, intent(in) :: level integer, intent(in) :: level
@ -1603,7 +1603,7 @@ contains
end subroutine c_base_onelev_dump end subroutine c_base_onelev_dump
subroutine c_base_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solver) subroutine c_base_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solver)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
class(mld_c_base_smoother_type), intent(in) :: sm class(mld_c_base_smoother_type), intent(in) :: sm
integer, intent(in) :: ictxt,level integer, intent(in) :: ictxt,level
@ -1644,7 +1644,7 @@ contains
end subroutine c_base_smoother_dmp end subroutine c_base_smoother_dmp
subroutine c_base_solver_dmp(sv,ictxt,level,info,prefix,head,solver) subroutine c_base_solver_dmp(sv,ictxt,level,info,prefix,head,solver)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
class(mld_c_base_solver_type), intent(in) :: sv class(mld_c_base_solver_type), intent(in) :: sv
integer, intent(in) :: ictxt,level integer, intent(in) :: ictxt,level

@ -106,7 +106,7 @@ module mld_c_slu_solver
contains contains
subroutine c_slu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine c_slu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_c_slu_solver_type), intent(in) :: sv class(mld_c_slu_solver_type), intent(in) :: sv
complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: x(:)
@ -189,7 +189,7 @@ contains
subroutine c_slu_solver_bld(a,desc_a,sv,upd,info,b) subroutine c_slu_solver_bld(a,desc_a,sv,upd,info,b)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -269,7 +269,7 @@ contains
subroutine c_slu_solver_seti(sv,what,val,info) subroutine c_slu_solver_seti(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -304,7 +304,7 @@ contains
subroutine c_slu_solver_setc(sv,what,val,info) subroutine c_slu_solver_setc(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -342,7 +342,7 @@ contains
subroutine c_slu_solver_setr(sv,what,val,info) subroutine c_slu_solver_setr(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -378,7 +378,7 @@ contains
subroutine c_slu_solver_free(sv,info) subroutine c_slu_solver_free(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -411,7 +411,7 @@ contains
subroutine c_slu_solver_descr(sv,info,iout,coarse) subroutine c_slu_solver_descr(sv,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -450,7 +450,7 @@ contains
end subroutine c_slu_solver_descr end subroutine c_slu_solver_descr
function c_slu_solver_sizeof(sv) result(val) function c_slu_solver_sizeof(sv) result(val)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_c_slu_solver_type), intent(in) :: sv class(mld_c_slu_solver_type), intent(in) :: sv

@ -81,7 +81,7 @@
! !
subroutine mld_caggrmap_bld(aggr_type,theta,a,desc_a,ilaggr,nlaggr,info) subroutine mld_caggrmap_bld(aggr_type,theta,a,desc_a,ilaggr,nlaggr,info)
use psb_sparse_mod use psb_base_mod
use mld_c_inner_mod, mld_protect_name => mld_caggrmap_bld use mld_c_inner_mod, mld_protect_name => mld_caggrmap_bld
implicit none implicit none
@ -164,7 +164,7 @@ contains
subroutine mld_dec_map_bld(theta,a,desc_a,nlaggr,ilaggr,info) subroutine mld_dec_map_bld(theta,a,desc_a,nlaggr,ilaggr,info)
use psb_sparse_mod use psb_base_mod
use mld_c_inner_mod !, mld_protect_name => mld_daggrmap_bld use mld_c_inner_mod !, mld_protect_name => mld_daggrmap_bld
implicit none implicit none

@ -100,7 +100,7 @@
! !
subroutine mld_caggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info) subroutine mld_caggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info)
use psb_sparse_mod use psb_base_mod
use mld_c_inner_mod, mld_protect_name => mld_caggrmat_asb use mld_c_inner_mod, mld_protect_name => mld_caggrmat_asb
implicit none implicit none

@ -82,7 +82,7 @@
! Error code. ! Error code.
! !
subroutine mld_caggrmat_nosmth_asb(a,desc_a,ilaggr,nlaggr,p,info) subroutine mld_caggrmat_nosmth_asb(a,desc_a,ilaggr,nlaggr,p,info)
use psb_sparse_mod use psb_base_mod
use mld_c_inner_mod, mld_protect_name => mld_caggrmat_nosmth_asb use mld_c_inner_mod, mld_protect_name => mld_caggrmat_nosmth_asb
#ifdef MPI_MOD #ifdef MPI_MOD

@ -99,7 +99,7 @@
! Error code. ! Error code.
! !
subroutine mld_caggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,p,info) subroutine mld_caggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,p,info)
use psb_sparse_mod use psb_base_mod
use mld_c_inner_mod, mld_protect_name => mld_caggrmat_smth_asb use mld_c_inner_mod, mld_protect_name => mld_caggrmat_smth_asb
#ifdef MPI_MOD #ifdef MPI_MOD

@ -67,7 +67,7 @@
! !
subroutine mld_ccoarse_bld(a,desc_a,p,info) subroutine mld_ccoarse_bld(a,desc_a,p,info)
use psb_sparse_mod use psb_base_mod
use mld_c_inner_mod, mld_protect_name => mld_ccoarse_bld use mld_c_inner_mod, mld_protect_name => mld_ccoarse_bld
implicit none implicit none

@ -101,7 +101,7 @@
! !
subroutine mld_cilu0_fact(ialg,a,l,u,d,info,blck,upd) subroutine mld_cilu0_fact(ialg,a,l,u,d,info,blck,upd)
use psb_sparse_mod use psb_base_mod
use mld_c_ilu_fact_mod, mld_protect_name => mld_cilu0_fact use mld_c_ilu_fact_mod, mld_protect_name => mld_cilu0_fact
implicit none implicit none
@ -557,7 +557,7 @@ contains
subroutine ilu_copyin(i,m,a,jd,jmin,jmax,l1,lja,lval,& subroutine ilu_copyin(i,m,a,jd,jmin,jmax,l1,lja,lval,&
& dia,l2,uja,uval,ktrw,trw,upd) & dia,l2,uja,uval,ktrw,trw,upd)
use psb_sparse_mod use psb_base_mod
implicit none implicit none

@ -98,7 +98,7 @@
! !
subroutine mld_ciluk_fact(fill_in,ialg,a,l,u,d,info,blck) subroutine mld_ciluk_fact(fill_in,ialg,a,l,u,d,info,blck)
use psb_sparse_mod use psb_base_mod
use mld_c_ilu_fact_mod, mld_protect_name => mld_ciluk_fact use mld_c_ilu_fact_mod, mld_protect_name => mld_ciluk_fact
implicit none implicit none
@ -273,7 +273,7 @@ contains
subroutine mld_ciluk_factint(fill_in,ialg,a,b,& subroutine mld_ciluk_factint(fill_in,ialg,a,b,&
& d,lval,lja,lirp,uval,uja,uirp,l1,l2,info) & d,lval,lja,lirp,uval,uja,uirp,l1,l2,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
@ -491,7 +491,7 @@ contains
! !
subroutine iluk_copyin(i,m,a,jmin,jmax,row,rowlevs,heap,ktrw,trw,info) subroutine iluk_copyin(i,m,a,jmin,jmax,row,rowlevs,heap,ktrw,trw,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
@ -648,7 +648,7 @@ contains
! !
subroutine iluk_fact(fill_in,i,row,rowlevs,heap,d,uja,uirp,uval,uplevs,nidx,idxs,info) subroutine iluk_fact(fill_in,i,row,rowlevs,heap,d,uja,uirp,uval,uplevs,nidx,idxs,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
@ -823,7 +823,7 @@ contains
subroutine iluk_copyout(fill_in,ialg,i,m,row,rowlevs,nidx,idxs,& subroutine iluk_copyout(fill_in,ialg,i,m,row,rowlevs,nidx,idxs,&
& l1,l2,lja,lirp,lval,d,uja,uirp,uval,uplevs,info) & l1,l2,lja,lirp,lval,d,uja,uirp,uval,uplevs,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none

@ -94,7 +94,7 @@
! !
subroutine mld_cilut_fact(fill_in,thres,a,l,u,d,info,blck) subroutine mld_cilut_fact(fill_in,thres,a,l,u,d,info,blck)
use psb_sparse_mod use psb_base_mod
use mld_c_ilu_fact_mod, mld_protect_name => mld_cilut_fact use mld_c_ilu_fact_mod, mld_protect_name => mld_cilut_fact
implicit none implicit none
@ -273,7 +273,7 @@ contains
subroutine mld_cilut_factint(fill_in,thres,a,b,& subroutine mld_cilut_factint(fill_in,thres,a,b,&
& d,lval,lja,lirp,uval,uja,uirp,l1,l2,info) & d,lval,lja,lirp,uval,uja,uirp,l1,l2,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
@ -485,7 +485,7 @@ contains
! every nrb calls to copyin. If A is in CSR format it is unused. ! every nrb calls to copyin. If A is in CSR format it is unused.
! !
subroutine ilut_copyin(i,m,a,jd,jmin,jmax,nlw,nup,jmaxup,nrmi,row,heap,ktrw,trw,info) subroutine ilut_copyin(i,m,a,jd,jmin,jmax,nlw,nup,jmaxup,nrmi,row,heap,ktrw,trw,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
type(psb_cspmat_type), intent(in) :: a type(psb_cspmat_type), intent(in) :: a
type(psb_c_coo_sparse_mat), intent(inout) :: trw type(psb_c_coo_sparse_mat), intent(inout) :: trw
@ -679,7 +679,7 @@ contains
! !
subroutine ilut_fact(thres,i,nrmi,row,heap,d,uja,uirp,uval,nidx,idxs,info) subroutine ilut_fact(thres,i,nrmi,row,heap,d,uja,uirp,uval,nidx,idxs,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
@ -865,7 +865,7 @@ contains
subroutine ilut_copyout(fill_in,thres,i,m,nlw,nup,jmaxup,nrmi,row, & subroutine ilut_copyout(fill_in,thres,i,m,nlw,nup,jmaxup,nrmi,row, &
& nidx,idxs,l1,l2,lja,lirp,lval,d,uja,uirp,uval,info) & nidx,idxs,l1,l2,lja,lirp,lval,d,uja,uirp,uval,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none

@ -314,7 +314,7 @@
! !
subroutine mld_cmlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info) subroutine mld_cmlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod use psb_base_mod
use mld_c_inner_mod, mld_protect_name => mld_cmlprec_aply use mld_c_inner_mod, mld_protect_name => mld_cmlprec_aply
implicit none implicit none

@ -66,7 +66,7 @@
! !
subroutine mld_cmlprec_bld(a,desc_a,p,info) subroutine mld_cmlprec_bld(a,desc_a,p,info)
use psb_sparse_mod use psb_base_mod
use mld_c_inner_mod, mld_protect_name => mld_cmlprec_bld use mld_c_inner_mod, mld_protect_name => mld_cmlprec_bld
use mld_c_prec_mod use mld_c_prec_mod

@ -73,7 +73,7 @@
! !
subroutine mld_cprecaply(prec,x,y,desc_data,info,trans,work) subroutine mld_cprecaply(prec,x,y,desc_data,info,trans,work)
use psb_sparse_mod use psb_base_mod
use mld_c_inner_mod, mld_protect_name => mld_cprecaply use mld_c_inner_mod, mld_protect_name => mld_cprecaply
implicit none implicit none
@ -206,7 +206,7 @@ end subroutine mld_cprecaply
! !
subroutine mld_cprecaply1(prec,x,desc_data,info,trans) subroutine mld_cprecaply1(prec,x,desc_data,info,trans)
use psb_sparse_mod use psb_base_mod
use mld_c_inner_mod, mld_protect_name => mld_cprecaply1 use mld_c_inner_mod, mld_protect_name => mld_cprecaply1
implicit none implicit none

@ -60,7 +60,7 @@
! !
subroutine mld_cprecbld(a,desc_a,p,info) subroutine mld_cprecbld(a,desc_a,p,info)
use psb_sparse_mod use psb_base_mod
use mld_c_inner_mod use mld_c_inner_mod
use mld_c_prec_mod, mld_protect_name => mld_cprecbld use mld_c_prec_mod, mld_protect_name => mld_cprecbld

@ -90,7 +90,7 @@
! !
subroutine mld_cprecinit(p,ptype,info,nlev) subroutine mld_cprecinit(p,ptype,info,nlev)
use psb_sparse_mod use psb_base_mod
use mld_c_prec_mod, mld_protect_name => mld_cprecinit use mld_c_prec_mod, mld_protect_name => mld_cprecinit
use mld_c_jac_smoother use mld_c_jac_smoother
use mld_c_as_smoother use mld_c_as_smoother

@ -78,7 +78,7 @@
! !
subroutine mld_cprecseti(p,what,val,info,ilev) subroutine mld_cprecseti(p,what,val,info,ilev)
use psb_sparse_mod use psb_base_mod
use mld_c_prec_mod, mld_protect_name => mld_cprecseti use mld_c_prec_mod, mld_protect_name => mld_cprecseti
use mld_c_jac_smoother use mld_c_jac_smoother
use mld_c_as_smoother use mld_c_as_smoother
@ -510,7 +510,7 @@ end subroutine mld_cprecseti
subroutine mld_cprecsetsm(p,val,info,ilev) subroutine mld_cprecsetsm(p,val,info,ilev)
use psb_sparse_mod use psb_base_mod
use mld_c_prec_mod, mld_protect_name => mld_cprecsetsm use mld_c_prec_mod, mld_protect_name => mld_cprecsetsm
implicit none implicit none
@ -571,7 +571,7 @@ end subroutine mld_cprecsetsm
subroutine mld_cprecsetsv(p,val,info,ilev) subroutine mld_cprecsetsv(p,val,info,ilev)
use psb_sparse_mod use psb_base_mod
use mld_c_prec_mod, mld_protect_name => mld_cprecsetsv use mld_c_prec_mod, mld_protect_name => mld_cprecsetsv
implicit none implicit none
@ -681,7 +681,7 @@ end subroutine mld_cprecsetsv
! !
subroutine mld_cprecsetc(p,what,string,info,ilev) subroutine mld_cprecsetc(p,what,string,info,ilev)
use psb_sparse_mod use psb_base_mod
use mld_c_prec_mod, mld_protect_name => mld_cprecsetc use mld_c_prec_mod, mld_protect_name => mld_cprecsetc
implicit none implicit none
@ -765,7 +765,7 @@ end subroutine mld_cprecsetc
! !
subroutine mld_cprecsetr(p,what,val,info,ilev) subroutine mld_cprecsetr(p,what,val,info,ilev)
use psb_sparse_mod use psb_base_mod
use mld_c_prec_mod, mld_protect_name => mld_cprecsetr use mld_c_prec_mod, mld_protect_name => mld_cprecsetr
implicit none implicit none

@ -71,7 +71,7 @@
! !
subroutine mld_cslu_bld(a,desc_a,p,info) subroutine mld_cslu_bld(a,desc_a,p,info)
use psb_sparse_mod use psb_base_mod
use mld_c_inner_mod, mld_protect_name => mld_cslu_bld use mld_c_inner_mod, mld_protect_name => mld_cslu_bld
implicit none implicit none

@ -68,7 +68,7 @@
! !
subroutine mld_csludist_bld(a,desc_a,p,info) subroutine mld_csludist_bld(a,desc_a,p,info)
use psb_sparse_mod use psb_base_mod
use mld_c_inner_mod, mld_protect_name => mld_csludist_bld use mld_c_inner_mod, mld_protect_name => mld_csludist_bld
implicit none implicit none

@ -83,7 +83,7 @@
! !
subroutine mld_csp_renum(a,blck,p,atmp,info) subroutine mld_csp_renum(a,blck,p,atmp,info)
use psb_sparse_mod use psb_base_mod
use mld_c_inner_mod, mld_protect_name => mld_csp_renum use mld_c_inner_mod, mld_protect_name => mld_csp_renum
implicit none implicit none

@ -77,7 +77,7 @@
! !
subroutine mld_cumf_bld(a,desc_a,p,info) subroutine mld_cumf_bld(a,desc_a,p,info)
use psb_sparse_mod use psb_base_mod
use mld_c_inner_mod, mld_protect_name => mld_cumf_bld use mld_c_inner_mod, mld_protect_name => mld_cumf_bld
implicit none implicit none

@ -86,7 +86,7 @@ contains
subroutine d_as_smoother_default(sm) subroutine d_as_smoother_default(sm)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -108,7 +108,7 @@ contains
subroutine d_as_smoother_check(sm,info) subroutine d_as_smoother_check(sm,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -152,7 +152,7 @@ contains
end subroutine d_as_smoother_check end subroutine d_as_smoother_check
subroutine d_as_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,work,info) subroutine d_as_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_d_as_smoother_type), intent(in) :: sm class(mld_d_as_smoother_type), intent(in) :: sm
real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: x(:)
@ -587,7 +587,7 @@ contains
subroutine d_as_smoother_bld(a,desc_a,sm,upd,info) subroutine d_as_smoother_bld(a,desc_a,sm,upd,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -728,7 +728,7 @@ contains
subroutine d_as_smoother_seti(sm,what,val,info) subroutine d_as_smoother_seti(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -772,7 +772,7 @@ contains
subroutine d_as_smoother_setc(sm,what,val,info) subroutine d_as_smoother_setc(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -810,7 +810,7 @@ contains
subroutine d_as_smoother_setr(sm,what,val,info) subroutine d_as_smoother_setr(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -847,7 +847,7 @@ contains
subroutine d_as_smoother_free(sm,info) subroutine d_as_smoother_free(sm,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -887,7 +887,7 @@ contains
subroutine d_as_smoother_descr(sm,info,iout,coarse) subroutine d_as_smoother_descr(sm,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -941,7 +941,7 @@ contains
end subroutine d_as_smoother_descr end subroutine d_as_smoother_descr
function d_as_smoother_sizeof(sm) result(val) function d_as_smoother_sizeof(sm) result(val)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_d_as_smoother_type), intent(in) :: sm class(mld_d_as_smoother_type), intent(in) :: sm
@ -956,7 +956,7 @@ contains
end function d_as_smoother_sizeof end function d_as_smoother_sizeof
subroutine d_as_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solver) subroutine d_as_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solver)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
class(mld_d_as_smoother_type), intent(in) :: sm class(mld_d_as_smoother_type), intent(in) :: sm
integer, intent(in) :: ictxt,level integer, intent(in) :: ictxt,level

@ -70,7 +70,7 @@ module mld_d_diag_solver
contains contains
subroutine d_diag_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine d_diag_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_d_diag_solver_type), intent(in) :: sv class(mld_d_diag_solver_type), intent(in) :: sv
real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: x(:)
@ -191,7 +191,7 @@ contains
subroutine d_diag_solver_bld(a,desc_a,sv,upd,info,b) subroutine d_diag_solver_bld(a,desc_a,sv,upd,info,b)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -270,7 +270,7 @@ contains
subroutine d_diag_solver_seti(sv,what,val,info) subroutine d_diag_solver_seti(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -309,7 +309,7 @@ contains
subroutine d_diag_solver_setc(sv,what,val,info) subroutine d_diag_solver_setc(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -347,7 +347,7 @@ contains
subroutine d_diag_solver_setr(sv,what,val,info) subroutine d_diag_solver_setr(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -385,7 +385,7 @@ contains
subroutine d_diag_solver_free(sv,info) subroutine d_diag_solver_free(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -421,7 +421,7 @@ contains
subroutine d_diag_solver_descr(sv,info,iout,coarse) subroutine d_diag_solver_descr(sv,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -451,7 +451,7 @@ contains
end subroutine d_diag_solver_descr end subroutine d_diag_solver_descr
function d_diag_solver_sizeof(sv) result(val) function d_diag_solver_sizeof(sv) result(val)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_d_diag_solver_type), intent(in) :: sv class(mld_d_diag_solver_type), intent(in) :: sv

@ -69,7 +69,7 @@ module mld_d_id_solver
contains contains
subroutine d_id_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine d_id_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_d_id_solver_type), intent(in) :: sv class(mld_d_id_solver_type), intent(in) :: sv
real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: x(:)
@ -115,7 +115,7 @@ contains
subroutine d_id_solver_bld(a,desc_a,sv,upd,info,b) subroutine d_id_solver_bld(a,desc_a,sv,upd,info,b)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -160,7 +160,7 @@ contains
subroutine d_id_solver_seti(sv,what,val,info) subroutine d_id_solver_seti(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -180,7 +180,7 @@ contains
subroutine d_id_solver_setc(sv,what,val,info) subroutine d_id_solver_setc(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -199,7 +199,7 @@ contains
subroutine d_id_solver_setr(sv,what,val,info) subroutine d_id_solver_setr(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -219,7 +219,7 @@ contains
subroutine d_id_solver_free(sv,info) subroutine d_id_solver_free(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -236,7 +236,7 @@ contains
subroutine d_id_solver_descr(sv,info,iout,coarse) subroutine d_id_solver_descr(sv,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -266,7 +266,7 @@ contains
end subroutine d_id_solver_descr end subroutine d_id_solver_descr
function d_id_solver_sizeof(sv) result(val) function d_id_solver_sizeof(sv) result(val)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_d_id_solver_type), intent(in) :: sv class(mld_d_id_solver_type), intent(in) :: sv

@ -87,7 +87,7 @@ contains
subroutine d_ilu_solver_default(sv) subroutine d_ilu_solver_default(sv)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -103,7 +103,7 @@ contains
subroutine d_ilu_solver_check(sv,info) subroutine d_ilu_solver_check(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -144,7 +144,7 @@ contains
subroutine d_ilu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine d_ilu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_d_ilu_solver_type), intent(in) :: sv class(mld_d_ilu_solver_type), intent(in) :: sv
real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: x(:)
@ -248,7 +248,7 @@ contains
subroutine d_ilu_solver_bld(a,desc_a,sv,upd,info,b) subroutine d_ilu_solver_bld(a,desc_a,sv,upd,info,b)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -421,7 +421,7 @@ contains
subroutine d_ilu_solver_seti(sv,what,val,info) subroutine d_ilu_solver_seti(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -460,7 +460,7 @@ contains
subroutine d_ilu_solver_setc(sv,what,val,info) subroutine d_ilu_solver_setc(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -498,7 +498,7 @@ contains
subroutine d_ilu_solver_setr(sv,what,val,info) subroutine d_ilu_solver_setr(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -536,7 +536,7 @@ contains
subroutine d_ilu_solver_free(sv,info) subroutine d_ilu_solver_free(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -574,7 +574,7 @@ contains
subroutine d_ilu_solver_descr(sv,info,iout,coarse) subroutine d_ilu_solver_descr(sv,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -621,7 +621,7 @@ contains
end subroutine d_ilu_solver_descr end subroutine d_ilu_solver_descr
function d_ilu_solver_sizeof(sv) result(val) function d_ilu_solver_sizeof(sv) result(val)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_d_ilu_solver_type), intent(in) :: sv class(mld_d_ilu_solver_type), intent(in) :: sv
@ -637,7 +637,7 @@ contains
end function d_ilu_solver_sizeof end function d_ilu_solver_sizeof
subroutine d_ilu_solver_dmp(sv,ictxt,level,info,prefix,head,solver) subroutine d_ilu_solver_dmp(sv,ictxt,level,info,prefix,head,solver)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
class(mld_d_ilu_solver_type), intent(in) :: sv class(mld_d_ilu_solver_type), intent(in) :: sv
integer, intent(in) :: ictxt,level integer, intent(in) :: ictxt,level

@ -51,7 +51,7 @@ module mld_d_inner_mod
interface mld_mlprec_bld interface mld_mlprec_bld
subroutine mld_dmlprec_bld(a,desc_a,prec,info) subroutine mld_dmlprec_bld(a,desc_a,prec,info)
use psb_sparse_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
use mld_d_prec_type, only : mld_dprec_type use mld_d_prec_type, only : mld_dprec_type
implicit none implicit none
type(psb_dspmat_type), intent(in), target :: a type(psb_dspmat_type), intent(in), target :: a
@ -65,7 +65,7 @@ module mld_d_inner_mod
interface mld_mlprec_aply interface mld_mlprec_aply
subroutine mld_dmlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info) subroutine mld_dmlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
use mld_d_prec_type, only : mld_dprec_type use mld_d_prec_type, only : mld_dprec_type
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
type(mld_dprec_type), intent(in) :: p type(mld_dprec_type), intent(in) :: p
@ -81,7 +81,7 @@ module mld_d_inner_mod
interface mld_coarse_bld interface mld_coarse_bld
subroutine mld_dcoarse_bld(a,desc_a,p,info) subroutine mld_dcoarse_bld(a,desc_a,p,info)
use psb_sparse_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
use mld_d_prec_type, only : mld_donelev_type use mld_d_prec_type, only : mld_donelev_type
type(psb_dspmat_type), intent(in) :: a type(psb_dspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
@ -92,7 +92,7 @@ module mld_d_inner_mod
interface mld_aggrmap_bld interface mld_aggrmap_bld
subroutine mld_daggrmap_bld(aggr_type,theta,a,desc_a,ilaggr,nlaggr,info) subroutine mld_daggrmap_bld(aggr_type,theta,a,desc_a,ilaggr,nlaggr,info)
use psb_sparse_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
integer, intent(in) :: aggr_type integer, intent(in) :: aggr_type
real(psb_dpk_), intent(in) :: theta real(psb_dpk_), intent(in) :: theta
type(psb_dspmat_type), intent(in) :: a type(psb_dspmat_type), intent(in) :: a
@ -104,7 +104,7 @@ module mld_d_inner_mod
interface mld_aggrmat_asb interface mld_aggrmat_asb
subroutine mld_daggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info) subroutine mld_daggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info)
use psb_sparse_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
use mld_d_prec_type, only : mld_donelev_type use mld_d_prec_type, only : mld_donelev_type
type(psb_dspmat_type), intent(in) :: a type(psb_dspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
@ -116,7 +116,7 @@ module mld_d_inner_mod
interface mld_aggrmat_nosmth_asb interface mld_aggrmat_nosmth_asb
subroutine mld_daggrmat_nosmth_asb(a,desc_a,ilaggr,nlaggr,p,info) subroutine mld_daggrmat_nosmth_asb(a,desc_a,ilaggr,nlaggr,p,info)
use psb_sparse_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
use mld_d_prec_type, only : mld_donelev_type use mld_d_prec_type, only : mld_donelev_type
type(psb_dspmat_type), intent(in) :: a type(psb_dspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
@ -128,7 +128,7 @@ module mld_d_inner_mod
interface mld_aggrmat_smth_asb interface mld_aggrmat_smth_asb
subroutine mld_daggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,p,info) subroutine mld_daggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,p,info)
use psb_sparse_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
use mld_d_prec_type, only : mld_donelev_type use mld_d_prec_type, only : mld_donelev_type
type(psb_dspmat_type), intent(in) :: a type(psb_dspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
@ -140,7 +140,7 @@ module mld_d_inner_mod
interface mld_aggrmat_minnrg_asb interface mld_aggrmat_minnrg_asb
subroutine mld_daggrmat_minnrg_asb(a,desc_a,ilaggr,nlaggr,p,info) subroutine mld_daggrmat_minnrg_asb(a,desc_a,ilaggr,nlaggr,p,info)
use psb_sparse_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
use mld_d_prec_type, only : mld_donelev_type use mld_d_prec_type, only : mld_donelev_type
type(psb_dspmat_type), intent(in) :: a type(psb_dspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a

@ -75,7 +75,7 @@ module mld_d_jac_smoother
contains contains
subroutine d_jac_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,work,info) subroutine d_jac_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_d_jac_smoother_type), intent(in) :: sm class(mld_d_jac_smoother_type), intent(in) :: sm
real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: x(:)
@ -230,7 +230,7 @@ contains
subroutine d_jac_smoother_bld(a,desc_a,sm,upd,info) subroutine d_jac_smoother_bld(a,desc_a,sm,upd,info)
use psb_sparse_mod use psb_base_mod
use mld_d_diag_solver use mld_d_diag_solver
Implicit None Implicit None
@ -303,7 +303,7 @@ contains
subroutine d_jac_smoother_seti(sm,what,val,info) subroutine d_jac_smoother_seti(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -344,7 +344,7 @@ contains
subroutine d_jac_smoother_setc(sm,what,val,info) subroutine d_jac_smoother_setc(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -382,7 +382,7 @@ contains
subroutine d_jac_smoother_setr(sm,what,val,info) subroutine d_jac_smoother_setr(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -419,7 +419,7 @@ contains
subroutine d_jac_smoother_free(sm,info) subroutine d_jac_smoother_free(sm,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -459,7 +459,7 @@ contains
subroutine d_jac_smoother_descr(sm,info,iout,coarse) subroutine d_jac_smoother_descr(sm,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -510,7 +510,7 @@ contains
end subroutine d_jac_smoother_descr end subroutine d_jac_smoother_descr
function d_jac_smoother_sizeof(sm) result(val) function d_jac_smoother_sizeof(sm) result(val)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_d_jac_smoother_type), intent(in) :: sm class(mld_d_jac_smoother_type), intent(in) :: sm

@ -56,7 +56,7 @@ module mld_d_move_alloc_mod
contains contains
subroutine mld_donelev_prec_move_alloc(a, b,info) subroutine mld_donelev_prec_move_alloc(a, b,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
type(mld_donelev_type), intent(inout) :: a, b type(mld_donelev_type), intent(inout) :: a, b
integer, intent(out) :: info integer, intent(out) :: info
@ -72,7 +72,7 @@ contains
end subroutine mld_donelev_prec_move_alloc end subroutine mld_donelev_prec_move_alloc
subroutine mld_dprec_move_alloc(a, b,info) subroutine mld_dprec_move_alloc(a, b,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
type(mld_dprec_type), intent(inout) :: a type(mld_dprec_type), intent(inout) :: a
type(mld_dprec_type), intent(inout), target :: b type(mld_dprec_type), intent(inout), target :: b

@ -50,7 +50,7 @@ module mld_d_prec_mod
interface mld_precinit interface mld_precinit
subroutine mld_dprecinit(p,ptype,info,nlev) subroutine mld_dprecinit(p,ptype,info,nlev)
use psb_sparse_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
use mld_d_prec_type, only : mld_dprec_type use mld_d_prec_type, only : mld_dprec_type
type(mld_dprec_type), intent(inout) :: p type(mld_dprec_type), intent(inout) :: p
character(len=*), intent(in) :: ptype character(len=*), intent(in) :: ptype
@ -66,7 +66,7 @@ module mld_d_prec_mod
interface mld_inner_precset interface mld_inner_precset
subroutine mld_dprecsetsm(p,val,info,ilev) subroutine mld_dprecsetsm(p,val,info,ilev)
use psb_sparse_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
use mld_d_prec_type, only : mld_dprec_type, mld_d_base_smoother_type use mld_d_prec_type, only : mld_dprec_type, mld_d_base_smoother_type
type(mld_dprec_type), intent(inout) :: p type(mld_dprec_type), intent(inout) :: p
class(mld_d_base_smoother_type), intent(in) :: val class(mld_d_base_smoother_type), intent(in) :: val
@ -74,7 +74,7 @@ module mld_d_prec_mod
integer, optional, intent(in) :: ilev integer, optional, intent(in) :: ilev
end subroutine mld_dprecsetsm end subroutine mld_dprecsetsm
subroutine mld_dprecsetsv(p,val,info,ilev) subroutine mld_dprecsetsv(p,val,info,ilev)
use psb_sparse_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
use mld_d_prec_type, only : mld_dprec_type, mld_d_base_solver_type use mld_d_prec_type, only : mld_dprec_type, mld_d_base_solver_type
type(mld_dprec_type), intent(inout) :: p type(mld_dprec_type), intent(inout) :: p
class(mld_d_base_solver_type), intent(in) :: val class(mld_d_base_solver_type), intent(in) :: val
@ -82,7 +82,7 @@ module mld_d_prec_mod
integer, optional, intent(in) :: ilev integer, optional, intent(in) :: ilev
end subroutine mld_dprecsetsv end subroutine mld_dprecsetsv
subroutine mld_dprecseti(p,what,val,info,ilev) subroutine mld_dprecseti(p,what,val,info,ilev)
use psb_sparse_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
use mld_d_prec_type, only : mld_dprec_type use mld_d_prec_type, only : mld_dprec_type
type(mld_dprec_type), intent(inout) :: p type(mld_dprec_type), intent(inout) :: p
integer, intent(in) :: what integer, intent(in) :: what
@ -91,7 +91,7 @@ module mld_d_prec_mod
integer, optional, intent(in) :: ilev integer, optional, intent(in) :: ilev
end subroutine mld_dprecseti end subroutine mld_dprecseti
subroutine mld_dprecsetr(p,what,val,info,ilev) subroutine mld_dprecsetr(p,what,val,info,ilev)
use psb_sparse_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
use mld_d_prec_type, only : mld_dprec_type use mld_d_prec_type, only : mld_dprec_type
type(mld_dprec_type), intent(inout) :: p type(mld_dprec_type), intent(inout) :: p
integer, intent(in) :: what integer, intent(in) :: what
@ -100,7 +100,7 @@ module mld_d_prec_mod
integer, optional, intent(in) :: ilev integer, optional, intent(in) :: ilev
end subroutine mld_dprecsetr end subroutine mld_dprecsetr
subroutine mld_dprecsetc(p,what,string,info,ilev) subroutine mld_dprecsetc(p,what,string,info,ilev)
use psb_sparse_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
use mld_d_prec_type, only : mld_dprec_type use mld_d_prec_type, only : mld_dprec_type
type(mld_dprec_type), intent(inout) :: p type(mld_dprec_type), intent(inout) :: p
integer, intent(in) :: what integer, intent(in) :: what
@ -112,7 +112,7 @@ module mld_d_prec_mod
interface mld_precbld interface mld_precbld
subroutine mld_dprecbld(a,desc_a,prec,info) subroutine mld_dprecbld(a,desc_a,prec,info)
use psb_sparse_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
use mld_d_prec_type, only : mld_dprec_type use mld_d_prec_type, only : mld_dprec_type
implicit none implicit none
type(psb_dspmat_type), intent(in), target :: a type(psb_dspmat_type), intent(in), target :: a
@ -126,7 +126,7 @@ module mld_d_prec_mod
contains contains
subroutine mld_i_dprecsetsm(p,val,info) subroutine mld_i_dprecsetsm(p,val,info)
use psb_sparse_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
use mld_d_prec_type, only : mld_dprec_type, mld_d_base_smoother_type use mld_d_prec_type, only : mld_dprec_type, mld_d_base_smoother_type
type(mld_dprec_type), intent(inout) :: p type(mld_dprec_type), intent(inout) :: p
class(mld_d_base_smoother_type), intent(in) :: val class(mld_d_base_smoother_type), intent(in) :: val
@ -136,7 +136,7 @@ contains
end subroutine mld_i_dprecsetsm end subroutine mld_i_dprecsetsm
subroutine mld_i_dprecsetsv(p,val,info) subroutine mld_i_dprecsetsv(p,val,info)
use psb_sparse_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
use mld_d_prec_type, only : mld_dprec_type, mld_d_base_solver_type use mld_d_prec_type, only : mld_dprec_type, mld_d_base_solver_type
type(mld_dprec_type), intent(inout) :: p type(mld_dprec_type), intent(inout) :: p
class(mld_d_base_solver_type), intent(in) :: val class(mld_d_base_solver_type), intent(in) :: val
@ -146,7 +146,7 @@ contains
end subroutine mld_i_dprecsetsv end subroutine mld_i_dprecsetsv
subroutine mld_i_dprecseti(p,what,val,info) subroutine mld_i_dprecseti(p,what,val,info)
use psb_sparse_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
use mld_d_prec_type, only : mld_dprec_type use mld_d_prec_type, only : mld_dprec_type
type(mld_dprec_type), intent(inout) :: p type(mld_dprec_type), intent(inout) :: p
integer, intent(in) :: what integer, intent(in) :: what
@ -157,7 +157,7 @@ contains
end subroutine mld_i_dprecseti end subroutine mld_i_dprecseti
subroutine mld_i_dprecsetr(p,what,val,info) subroutine mld_i_dprecsetr(p,what,val,info)
use psb_sparse_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
use mld_d_prec_type, only : mld_dprec_type use mld_d_prec_type, only : mld_dprec_type
type(mld_dprec_type), intent(inout) :: p type(mld_dprec_type), intent(inout) :: p
integer, intent(in) :: what integer, intent(in) :: what
@ -168,7 +168,7 @@ contains
end subroutine mld_i_dprecsetr end subroutine mld_i_dprecsetr
subroutine mld_i_dprecsetc(p,what,val,info) subroutine mld_i_dprecsetc(p,what,val,info)
use psb_sparse_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
use mld_d_prec_type, only : mld_dprec_type use mld_d_prec_type, only : mld_dprec_type
type(mld_dprec_type), intent(inout) :: p type(mld_dprec_type), intent(inout) :: p
integer, intent(in) :: what integer, intent(in) :: what

@ -277,7 +277,7 @@ module mld_d_prec_type
interface mld_precaply interface mld_precaply
subroutine mld_dprecaply(prec,x,y,desc_data,info,trans,work) subroutine mld_dprecaply(prec,x,y,desc_data,info,trans,work)
use psb_sparse_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
import mld_dprec_type import mld_dprec_type
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
type(mld_dprec_type), intent(in) :: prec type(mld_dprec_type), intent(in) :: prec
@ -288,7 +288,7 @@ module mld_d_prec_type
real(psb_dpk_),intent(inout), optional, target :: work(:) real(psb_dpk_),intent(inout), optional, target :: work(:)
end subroutine mld_dprecaply end subroutine mld_dprecaply
subroutine mld_dprecaply1(prec,x,desc_data,info,trans) subroutine mld_dprecaply1(prec,x,desc_data,info,trans)
use psb_sparse_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
import mld_dprec_type import mld_dprec_type
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
type(mld_dprec_type), intent(in) :: prec type(mld_dprec_type), intent(in) :: prec
@ -304,7 +304,7 @@ contains
! !
function mld_dprec_sizeof(prec) result(val) function mld_dprec_sizeof(prec) result(val)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
type(mld_dprec_type), intent(in) :: prec type(mld_dprec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val integer(psb_long_int_k_) :: val
@ -480,7 +480,7 @@ contains
subroutine d_base_onelev_descr(lv,info,iout,coarse) subroutine d_base_onelev_descr(lv,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -539,7 +539,7 @@ contains
end subroutine d_base_onelev_descr end subroutine d_base_onelev_descr
subroutine mld_d_onelev_precfree(p,info) subroutine mld_d_onelev_precfree(p,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
type(mld_donelev_type), intent(inout) :: p type(mld_donelev_type), intent(inout) :: p
@ -584,7 +584,7 @@ contains
subroutine mld_dprec_free(p,info) subroutine mld_dprec_free(p,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
@ -624,7 +624,7 @@ contains
subroutine d_base_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,work,info) subroutine d_base_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_d_base_smoother_type), intent(in) :: sm class(mld_d_base_smoother_type), intent(in) :: sm
real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: x(:)
@ -665,7 +665,7 @@ contains
subroutine d_base_smoother_check(sm,info) subroutine d_base_smoother_check(sm,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -703,7 +703,7 @@ contains
subroutine d_base_smoother_seti(sm,what,val,info) subroutine d_base_smoother_seti(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -736,7 +736,7 @@ contains
subroutine d_base_smoother_setc(sm,what,val,info) subroutine d_base_smoother_setc(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -771,7 +771,7 @@ contains
subroutine d_base_smoother_setr(sm,what,val,info) subroutine d_base_smoother_setr(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -807,7 +807,7 @@ contains
subroutine d_base_smoother_bld(a,desc_a,sm,upd,info) subroutine d_base_smoother_bld(a,desc_a,sm,upd,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -846,7 +846,7 @@ contains
subroutine d_base_smoother_free(sm,info) subroutine d_base_smoother_free(sm,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -882,7 +882,7 @@ contains
subroutine d_base_smoother_descr(sm,info,iout,coarse) subroutine d_base_smoother_descr(sm,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -965,7 +965,7 @@ contains
subroutine d_base_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine d_base_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_d_base_solver_type), intent(in) :: sv class(mld_d_base_solver_type), intent(in) :: sv
real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: x(:)
@ -999,7 +999,7 @@ contains
subroutine d_base_solver_bld(a,desc_a,sv,upd,info,b) subroutine d_base_solver_bld(a,desc_a,sv,upd,info,b)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1033,7 +1033,7 @@ contains
subroutine d_base_solver_check(sv,info) subroutine d_base_solver_check(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1063,7 +1063,7 @@ contains
subroutine d_base_solver_seti(sv,what,val,info) subroutine d_base_solver_seti(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1083,7 +1083,7 @@ contains
subroutine d_base_solver_setc(sv,what,val,info) subroutine d_base_solver_setc(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1119,7 +1119,7 @@ contains
subroutine d_base_solver_setr(sv,what,val,info) subroutine d_base_solver_setr(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1140,7 +1140,7 @@ contains
subroutine d_base_solver_free(sv,info) subroutine d_base_solver_free(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1170,7 +1170,7 @@ contains
subroutine d_base_solver_descr(sv,info,iout,coarse) subroutine d_base_solver_descr(sv,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1227,7 +1227,7 @@ contains
subroutine mld_d_apply2v(prec,x,y,desc_data,info,trans,work) subroutine mld_d_apply2v(prec,x,y,desc_data,info,trans,work)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
class(mld_dprec_type), intent(in) :: prec class(mld_dprec_type), intent(in) :: prec
real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: x(:)
@ -1263,7 +1263,7 @@ contains
end subroutine mld_d_apply2v end subroutine mld_d_apply2v
subroutine mld_d_apply1v(prec,x,desc_data,info,trans) subroutine mld_d_apply1v(prec,x,desc_data,info,trans)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
class(mld_dprec_type), intent(in) :: prec class(mld_dprec_type), intent(in) :: prec
real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: x(:)
@ -1298,7 +1298,7 @@ contains
subroutine d_base_onelev_check(lv,info) subroutine d_base_onelev_check(lv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1344,7 +1344,7 @@ contains
subroutine d_base_onelev_default(lv) subroutine d_base_onelev_default(lv)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1374,7 +1374,7 @@ contains
subroutine d_base_onelev_seti(lv,what,val,info) subroutine d_base_onelev_seti(lv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1449,7 +1449,7 @@ contains
subroutine d_base_onelev_setc(lv,what,val,info) subroutine d_base_onelev_setc(lv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1485,7 +1485,7 @@ contains
subroutine d_base_onelev_setr(lv,what,val,info) subroutine d_base_onelev_setr(lv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1530,7 +1530,7 @@ contains
end subroutine d_base_onelev_setr end subroutine d_base_onelev_setr
subroutine mld_d_dump(prec,info,istart,iend,prefix,head,ac,smoother,solver) subroutine mld_d_dump(prec,info,istart,iend,prefix,head,ac,smoother,solver)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
class(mld_dprec_type), intent(in) :: prec class(mld_dprec_type), intent(in) :: prec
integer, intent(out) :: info integer, intent(out) :: info
@ -1564,7 +1564,7 @@ contains
subroutine d_base_onelev_dump(lv,level,info,prefix,head,ac,smoother,solver) subroutine d_base_onelev_dump(lv,level,info,prefix,head,ac,smoother,solver)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
class(mld_donelev_type), intent(in) :: lv class(mld_donelev_type), intent(in) :: lv
integer, intent(in) :: level integer, intent(in) :: level
@ -1614,7 +1614,7 @@ contains
end subroutine d_base_onelev_dump end subroutine d_base_onelev_dump
subroutine d_base_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solver) subroutine d_base_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solver)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
class(mld_d_base_smoother_type), intent(in) :: sm class(mld_d_base_smoother_type), intent(in) :: sm
integer, intent(in) :: ictxt,level integer, intent(in) :: ictxt,level
@ -1655,7 +1655,7 @@ contains
end subroutine d_base_smoother_dmp end subroutine d_base_smoother_dmp
subroutine d_base_solver_dmp(sv,ictxt,level,info,prefix,head,solver) subroutine d_base_solver_dmp(sv,ictxt,level,info,prefix,head,solver)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
class(mld_d_base_solver_type), intent(in) :: sv class(mld_d_base_solver_type), intent(in) :: sv
integer, intent(in) :: ictxt,level integer, intent(in) :: ictxt,level

@ -106,7 +106,7 @@ module mld_d_slu_solver
contains contains
subroutine d_slu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine d_slu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_d_slu_solver_type), intent(in) :: sv class(mld_d_slu_solver_type), intent(in) :: sv
real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: x(:)
@ -187,7 +187,7 @@ contains
subroutine d_slu_solver_bld(a,desc_a,sv,upd,info,b) subroutine d_slu_solver_bld(a,desc_a,sv,upd,info,b)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -267,7 +267,7 @@ contains
subroutine d_slu_solver_seti(sv,what,val,info) subroutine d_slu_solver_seti(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -302,7 +302,7 @@ contains
subroutine d_slu_solver_setc(sv,what,val,info) subroutine d_slu_solver_setc(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -340,7 +340,7 @@ contains
subroutine d_slu_solver_setr(sv,what,val,info) subroutine d_slu_solver_setr(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -376,7 +376,7 @@ contains
subroutine d_slu_solver_free(sv,info) subroutine d_slu_solver_free(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -409,7 +409,7 @@ contains
subroutine d_slu_solver_descr(sv,info,iout,coarse) subroutine d_slu_solver_descr(sv,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -448,7 +448,7 @@ contains
end subroutine d_slu_solver_descr end subroutine d_slu_solver_descr
function d_slu_solver_sizeof(sv) result(val) function d_slu_solver_sizeof(sv) result(val)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_d_slu_solver_type), intent(in) :: sv class(mld_d_slu_solver_type), intent(in) :: sv

@ -106,7 +106,7 @@ module mld_d_sludist_solver
contains contains
subroutine d_sludist_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine d_sludist_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_d_sludist_solver_type), intent(in) :: sv class(mld_d_sludist_solver_type), intent(in) :: sv
real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: x(:)
@ -187,7 +187,7 @@ contains
subroutine d_sludist_solver_bld(a,desc_a,sv,upd,info,b) subroutine d_sludist_solver_bld(a,desc_a,sv,upd,info,b)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -271,7 +271,7 @@ contains
subroutine d_sludist_solver_seti(sv,what,val,info) subroutine d_sludist_solver_seti(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -306,7 +306,7 @@ contains
subroutine d_sludist_solver_setc(sv,what,val,info) subroutine d_sludist_solver_setc(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -344,7 +344,7 @@ contains
subroutine d_sludist_solver_setr(sv,what,val,info) subroutine d_sludist_solver_setr(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -380,7 +380,7 @@ contains
subroutine d_sludist_solver_free(sv,info) subroutine d_sludist_solver_free(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -413,7 +413,7 @@ contains
subroutine d_sludist_solver_descr(sv,info,iout,coarse) subroutine d_sludist_solver_descr(sv,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -452,7 +452,7 @@ contains
end subroutine d_sludist_solver_descr end subroutine d_sludist_solver_descr
function d_sludist_solver_sizeof(sv) result(val) function d_sludist_solver_sizeof(sv) result(val)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_d_sludist_solver_type), intent(in) :: sv class(mld_d_sludist_solver_type), intent(in) :: sv

@ -106,7 +106,7 @@ module mld_d_umf_solver
contains contains
subroutine d_umf_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine d_umf_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_d_umf_solver_type), intent(in) :: sv class(mld_d_umf_solver_type), intent(in) :: sv
real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: x(:)
@ -187,7 +187,7 @@ contains
subroutine d_umf_solver_bld(a,desc_a,sv,upd,info,b) subroutine d_umf_solver_bld(a,desc_a,sv,upd,info,b)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -268,7 +268,7 @@ contains
subroutine d_umf_solver_seti(sv,what,val,info) subroutine d_umf_solver_seti(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -303,7 +303,7 @@ contains
subroutine d_umf_solver_setc(sv,what,val,info) subroutine d_umf_solver_setc(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -341,7 +341,7 @@ contains
subroutine d_umf_solver_setr(sv,what,val,info) subroutine d_umf_solver_setr(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -377,7 +377,7 @@ contains
subroutine d_umf_solver_free(sv,info) subroutine d_umf_solver_free(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -412,7 +412,7 @@ contains
subroutine d_umf_solver_descr(sv,info,iout,coarse) subroutine d_umf_solver_descr(sv,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -451,7 +451,7 @@ contains
end subroutine d_umf_solver_descr end subroutine d_umf_solver_descr
function d_umf_solver_sizeof(sv) result(val) function d_umf_solver_sizeof(sv) result(val)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_d_umf_solver_type), intent(in) :: sv class(mld_d_umf_solver_type), intent(in) :: sv

@ -81,7 +81,7 @@
! !
subroutine mld_daggrmap_bld(aggr_type,theta,a,desc_a,ilaggr,nlaggr,info) subroutine mld_daggrmap_bld(aggr_type,theta,a,desc_a,ilaggr,nlaggr,info)
use psb_sparse_mod use psb_base_mod
use mld_d_inner_mod, mld_protect_name => mld_daggrmap_bld use mld_d_inner_mod, mld_protect_name => mld_daggrmap_bld
implicit none implicit none
@ -164,7 +164,7 @@ contains
subroutine mld_dec_map_bld(theta,a,desc_a,nlaggr,ilaggr,info) subroutine mld_dec_map_bld(theta,a,desc_a,nlaggr,ilaggr,info)
use psb_sparse_mod use psb_base_mod
use mld_d_inner_mod !, mld_protect_name => mld_daggrmap_bld use mld_d_inner_mod !, mld_protect_name => mld_daggrmap_bld
implicit none implicit none

@ -100,7 +100,7 @@
! !
subroutine mld_daggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info) subroutine mld_daggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info)
use psb_sparse_mod use psb_base_mod
use mld_d_inner_mod, mld_protect_name => mld_daggrmat_asb use mld_d_inner_mod, mld_protect_name => mld_daggrmat_asb
implicit none implicit none

@ -99,7 +99,7 @@
! Error code. ! Error code.
! !
subroutine mld_daggrmat_minnrg_asb(a,desc_a,ilaggr,nlaggr,p,info) subroutine mld_daggrmat_minnrg_asb(a,desc_a,ilaggr,nlaggr,p,info)
use psb_sparse_mod use psb_base_mod
use mld_d_inner_mod, mld_protect_name => mld_daggrmat_minnrg_asb use mld_d_inner_mod, mld_protect_name => mld_daggrmat_minnrg_asb
#ifdef MPI_MOD #ifdef MPI_MOD

@ -82,7 +82,7 @@
! Error code. ! Error code.
! !
subroutine mld_daggrmat_nosmth_asb(a,desc_a,ilaggr,nlaggr,p,info) subroutine mld_daggrmat_nosmth_asb(a,desc_a,ilaggr,nlaggr,p,info)
use psb_sparse_mod use psb_base_mod
use mld_d_inner_mod, mld_protect_name => mld_daggrmat_nosmth_asb use mld_d_inner_mod, mld_protect_name => mld_daggrmat_nosmth_asb
#ifdef MPI_MOD #ifdef MPI_MOD

@ -99,7 +99,7 @@
! Error code. ! Error code.
! !
subroutine mld_daggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,p,info) subroutine mld_daggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,p,info)
use psb_sparse_mod use psb_base_mod
use mld_d_inner_mod, mld_protect_name => mld_daggrmat_smth_asb use mld_d_inner_mod, mld_protect_name => mld_daggrmat_smth_asb
#ifdef MPI_MOD #ifdef MPI_MOD

@ -67,7 +67,7 @@
! !
subroutine mld_dcoarse_bld(a,desc_a,p,info) subroutine mld_dcoarse_bld(a,desc_a,p,info)
use psb_sparse_mod use psb_base_mod
use mld_d_inner_mod, mld_protect_name => mld_dcoarse_bld use mld_d_inner_mod, mld_protect_name => mld_dcoarse_bld
implicit none implicit none

@ -101,7 +101,7 @@
! !
subroutine mld_dilu0_fact(ialg,a,l,u,d,info,blck, upd) subroutine mld_dilu0_fact(ialg,a,l,u,d,info,blck, upd)
use psb_sparse_mod use psb_base_mod
use mld_d_ilu_fact_mod, mld_protect_name => mld_dilu0_fact use mld_d_ilu_fact_mod, mld_protect_name => mld_dilu0_fact
implicit none implicit none
@ -557,7 +557,7 @@ contains
subroutine ilu_copyin(i,m,a,jd,jmin,jmax,l1,lja,lval,& subroutine ilu_copyin(i,m,a,jd,jmin,jmax,l1,lja,lval,&
& dia,l2,uja,uval,ktrw,trw,upd) & dia,l2,uja,uval,ktrw,trw,upd)
use psb_sparse_mod use psb_base_mod
implicit none implicit none

@ -98,7 +98,7 @@
! !
subroutine mld_diluk_fact(fill_in,ialg,a,l,u,d,info,blck) subroutine mld_diluk_fact(fill_in,ialg,a,l,u,d,info,blck)
use psb_sparse_mod use psb_base_mod
use mld_d_ilu_fact_mod, mld_protect_name => mld_diluk_fact use mld_d_ilu_fact_mod, mld_protect_name => mld_diluk_fact
implicit none implicit none
@ -273,7 +273,7 @@ contains
subroutine mld_diluk_factint(fill_in,ialg,a,b,& subroutine mld_diluk_factint(fill_in,ialg,a,b,&
& d,lval,lja,lirp,uval,uja,uirp,l1,l2,info) & d,lval,lja,lirp,uval,uja,uirp,l1,l2,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
@ -491,7 +491,7 @@ contains
! !
subroutine iluk_copyin(i,m,a,jmin,jmax,row,rowlevs,heap,ktrw,trw,info) subroutine iluk_copyin(i,m,a,jmin,jmax,row,rowlevs,heap,ktrw,trw,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
@ -648,7 +648,7 @@ contains
! !
subroutine iluk_fact(fill_in,i,row,rowlevs,heap,d,uja,uirp,uval,uplevs,nidx,idxs,info) subroutine iluk_fact(fill_in,i,row,rowlevs,heap,d,uja,uirp,uval,uplevs,nidx,idxs,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
@ -824,7 +824,7 @@ contains
subroutine iluk_copyout(fill_in,ialg,i,m,row,rowlevs,nidx,idxs,& subroutine iluk_copyout(fill_in,ialg,i,m,row,rowlevs,nidx,idxs,&
& l1,l2,lja,lirp,lval,d,uja,uirp,uval,uplevs,info) & l1,l2,lja,lirp,lval,d,uja,uirp,uval,uplevs,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none

@ -94,7 +94,7 @@
! !
subroutine mld_dilut_fact(fill_in,thres,a,l,u,d,info,blck) subroutine mld_dilut_fact(fill_in,thres,a,l,u,d,info,blck)
use psb_sparse_mod use psb_base_mod
use mld_d_ilu_fact_mod, mld_protect_name => mld_dilut_fact use mld_d_ilu_fact_mod, mld_protect_name => mld_dilut_fact
implicit none implicit none
@ -272,7 +272,7 @@ contains
subroutine mld_dilut_factint(fill_in,thres,a,b,& subroutine mld_dilut_factint(fill_in,thres,a,b,&
& d,lval,lja,lirp,uval,uja,uirp,l1,l2,info) & d,lval,lja,lirp,uval,uja,uirp,l1,l2,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
@ -484,7 +484,7 @@ contains
! every nrb calls to copyin. If A is in CSR format it is unused. ! every nrb calls to copyin. If A is in CSR format it is unused.
! !
subroutine ilut_copyin(i,m,a,jd,jmin,jmax,nlw,nup,jmaxup,nrmi,row,heap,ktrw,trw,info) subroutine ilut_copyin(i,m,a,jd,jmin,jmax,nlw,nup,jmaxup,nrmi,row,heap,ktrw,trw,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
type(psb_dspmat_type), intent(in) :: a type(psb_dspmat_type), intent(in) :: a
type(psb_d_coo_sparse_mat), intent(inout) :: trw type(psb_d_coo_sparse_mat), intent(inout) :: trw
@ -677,7 +677,7 @@ contains
! !
subroutine ilut_fact(thres,i,nrmi,row,heap,d,uja,uirp,uval,nidx,idxs,info) subroutine ilut_fact(thres,i,nrmi,row,heap,d,uja,uirp,uval,nidx,idxs,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
@ -863,7 +863,7 @@ contains
subroutine ilut_copyout(fill_in,thres,i,m,nlw,nup,jmaxup,nrmi,row, & subroutine ilut_copyout(fill_in,thres,i,m,nlw,nup,jmaxup,nrmi,row, &
& nidx,idxs,l1,l2,lja,lirp,lval,d,uja,uirp,uval,info) & nidx,idxs,l1,l2,lja,lirp,lval,d,uja,uirp,uval,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none

@ -314,7 +314,7 @@
! !
subroutine mld_dmlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info) subroutine mld_dmlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod use psb_base_mod
use mld_d_inner_mod, mld_protect_name => mld_dmlprec_aply use mld_d_inner_mod, mld_protect_name => mld_dmlprec_aply
implicit none implicit none

@ -65,7 +65,7 @@
! !
subroutine mld_dmlprec_bld(a,desc_a,p,info) subroutine mld_dmlprec_bld(a,desc_a,p,info)
use psb_sparse_mod use psb_base_mod
use mld_d_inner_mod, mld_protect_name => mld_dmlprec_bld use mld_d_inner_mod, mld_protect_name => mld_dmlprec_bld
use mld_d_prec_mod use mld_d_prec_mod

@ -73,7 +73,7 @@
! !
subroutine mld_dprecaply(prec,x,y,desc_data,info,trans,work) subroutine mld_dprecaply(prec,x,y,desc_data,info,trans,work)
use psb_sparse_mod use psb_base_mod
use mld_d_inner_mod, mld_protect_name => mld_dprecaply use mld_d_inner_mod, mld_protect_name => mld_dprecaply
implicit none implicit none
@ -205,7 +205,7 @@ end subroutine mld_dprecaply
! !
subroutine mld_dprecaply1(prec,x,desc_data,info,trans) subroutine mld_dprecaply1(prec,x,desc_data,info,trans)
use psb_sparse_mod use psb_base_mod
use mld_d_inner_mod, mld_protect_name => mld_dprecaply1 use mld_d_inner_mod, mld_protect_name => mld_dprecaply1
implicit none implicit none

@ -60,7 +60,7 @@
! !
subroutine mld_dprecbld(a,desc_a,p,info) subroutine mld_dprecbld(a,desc_a,p,info)
use psb_sparse_mod use psb_base_mod
use mld_d_inner_mod use mld_d_inner_mod
use mld_d_prec_mod, mld_protect_name => mld_dprecbld use mld_d_prec_mod, mld_protect_name => mld_dprecbld

@ -90,7 +90,7 @@
! !
subroutine mld_dprecinit(p,ptype,info,nlev) subroutine mld_dprecinit(p,ptype,info,nlev)
use psb_sparse_mod use psb_base_mod
use mld_d_prec_mod, mld_protect_name => mld_dprecinit use mld_d_prec_mod, mld_protect_name => mld_dprecinit
use mld_d_jac_smoother use mld_d_jac_smoother
use mld_d_as_smoother use mld_d_as_smoother

@ -78,7 +78,7 @@
! !
subroutine mld_dprecseti(p,what,val,info,ilev) subroutine mld_dprecseti(p,what,val,info,ilev)
use psb_sparse_mod use psb_base_mod
use mld_d_prec_mod, mld_protect_name => mld_dprecseti use mld_d_prec_mod, mld_protect_name => mld_dprecseti
use mld_d_jac_smoother use mld_d_jac_smoother
use mld_d_as_smoother use mld_d_as_smoother
@ -150,6 +150,7 @@ subroutine mld_dprecseti(p,what,val,info,ilev)
case default case default
call p%precv(ilev_)%set(what,val,info) call p%precv(ilev_)%set(what,val,info)
call p%precv(ilev_)%set(what,val,info)
end select end select
else if (ilev_ > 1) then else if (ilev_ > 1) then
@ -226,6 +227,7 @@ subroutine mld_dprecseti(p,what,val,info,ilev)
call p%precv(nlev_)%set(mld_sub_fillin_,val,info) call p%precv(nlev_)%set(mld_sub_fillin_,val,info)
case default case default
call p%precv(ilev_)%set(what,val,info) call p%precv(ilev_)%set(what,val,info)
call p%precv(ilev_)%set(what,val,info)
end select end select
endif endif
@ -533,7 +535,7 @@ end subroutine mld_dprecseti
subroutine mld_dprecsetsm(p,val,info,ilev) subroutine mld_dprecsetsm(p,val,info,ilev)
use psb_sparse_mod use psb_base_mod
use mld_d_prec_mod, mld_protect_name => mld_dprecsetsm use mld_d_prec_mod, mld_protect_name => mld_dprecsetsm
implicit none implicit none
@ -594,7 +596,7 @@ end subroutine mld_dprecsetsm
subroutine mld_dprecsetsv(p,val,info,ilev) subroutine mld_dprecsetsv(p,val,info,ilev)
use psb_sparse_mod use psb_base_mod
use mld_d_prec_mod, mld_protect_name => mld_dprecsetsv use mld_d_prec_mod, mld_protect_name => mld_dprecsetsv
implicit none implicit none
@ -703,7 +705,7 @@ end subroutine mld_dprecsetsv
! !
subroutine mld_dprecsetc(p,what,string,info,ilev) subroutine mld_dprecsetc(p,what,string,info,ilev)
use psb_sparse_mod use psb_base_mod
use mld_d_prec_mod, mld_protect_name => mld_dprecsetc use mld_d_prec_mod, mld_protect_name => mld_dprecsetc
implicit none implicit none
@ -786,7 +788,7 @@ end subroutine mld_dprecsetc
! !
subroutine mld_dprecsetr(p,what,val,info,ilev) subroutine mld_dprecsetr(p,what,val,info,ilev)
use psb_sparse_mod use psb_base_mod
use mld_d_prec_mod, mld_protect_name => mld_dprecsetr use mld_d_prec_mod, mld_protect_name => mld_dprecsetr
implicit none implicit none

@ -71,7 +71,7 @@
! !
subroutine mld_dslu_bld(a,desc_a,p,info) subroutine mld_dslu_bld(a,desc_a,p,info)
use psb_sparse_mod use psb_base_mod
use mld_d_inner_mod, mld_protect_name => mld_dslu_bld use mld_d_inner_mod, mld_protect_name => mld_dslu_bld
implicit none implicit none

@ -68,7 +68,7 @@
! !
subroutine mld_dsludist_bld(a,desc_a,p,info) subroutine mld_dsludist_bld(a,desc_a,p,info)
use psb_sparse_mod use psb_base_mod
use mld_d_inner_mod, mld_protect_name => mld_dsludist_bld use mld_d_inner_mod, mld_protect_name => mld_dsludist_bld
implicit none implicit none

@ -83,7 +83,7 @@
! !
subroutine mld_dsp_renum(a,blck,p,atmp,info) subroutine mld_dsp_renum(a,blck,p,atmp,info)
use psb_sparse_mod use psb_base_mod
use mld_d_inner_mod, mld_protect_name => mld_dsp_renum use mld_d_inner_mod, mld_protect_name => mld_dsp_renum
implicit none implicit none

@ -86,7 +86,7 @@ contains
subroutine s_as_smoother_default(sm) subroutine s_as_smoother_default(sm)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -108,7 +108,7 @@ contains
subroutine s_as_smoother_check(sm,info) subroutine s_as_smoother_check(sm,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -152,7 +152,7 @@ contains
end subroutine s_as_smoother_check end subroutine s_as_smoother_check
subroutine s_as_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,work,info) subroutine s_as_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_s_as_smoother_type), intent(in) :: sm class(mld_s_as_smoother_type), intent(in) :: sm
real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: x(:)
@ -587,7 +587,7 @@ contains
subroutine s_as_smoother_bld(a,desc_a,sm,upd,info) subroutine s_as_smoother_bld(a,desc_a,sm,upd,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -728,7 +728,7 @@ contains
subroutine s_as_smoother_seti(sm,what,val,info) subroutine s_as_smoother_seti(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -772,7 +772,7 @@ contains
subroutine s_as_smoother_setc(sm,what,val,info) subroutine s_as_smoother_setc(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -810,7 +810,7 @@ contains
subroutine s_as_smoother_setr(sm,what,val,info) subroutine s_as_smoother_setr(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -847,7 +847,7 @@ contains
subroutine s_as_smoother_free(sm,info) subroutine s_as_smoother_free(sm,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -887,7 +887,7 @@ contains
subroutine s_as_smoother_descr(sm,info,iout,coarse) subroutine s_as_smoother_descr(sm,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -941,7 +941,7 @@ contains
end subroutine s_as_smoother_descr end subroutine s_as_smoother_descr
function s_as_smoother_sizeof(sm) result(val) function s_as_smoother_sizeof(sm) result(val)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_s_as_smoother_type), intent(in) :: sm class(mld_s_as_smoother_type), intent(in) :: sm
@ -956,7 +956,7 @@ contains
end function s_as_smoother_sizeof end function s_as_smoother_sizeof
subroutine s_as_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solver) subroutine s_as_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solver)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
class(mld_s_as_smoother_type), intent(in) :: sm class(mld_s_as_smoother_type), intent(in) :: sm
integer, intent(in) :: ictxt,level integer, intent(in) :: ictxt,level

@ -70,7 +70,7 @@ module mld_s_diag_solver
contains contains
subroutine s_diag_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine s_diag_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_s_diag_solver_type), intent(in) :: sv class(mld_s_diag_solver_type), intent(in) :: sv
real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: x(:)
@ -191,7 +191,7 @@ contains
subroutine s_diag_solver_bld(a,desc_a,sv,upd,info,b) subroutine s_diag_solver_bld(a,desc_a,sv,upd,info,b)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -270,7 +270,7 @@ contains
subroutine s_diag_solver_seti(sv,what,val,info) subroutine s_diag_solver_seti(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -309,7 +309,7 @@ contains
subroutine s_diag_solver_setc(sv,what,val,info) subroutine s_diag_solver_setc(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -347,7 +347,7 @@ contains
subroutine s_diag_solver_setr(sv,what,val,info) subroutine s_diag_solver_setr(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -385,7 +385,7 @@ contains
subroutine s_diag_solver_free(sv,info) subroutine s_diag_solver_free(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -421,7 +421,7 @@ contains
subroutine s_diag_solver_descr(sv,info,iout,coarse) subroutine s_diag_solver_descr(sv,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -451,7 +451,7 @@ contains
end subroutine s_diag_solver_descr end subroutine s_diag_solver_descr
function s_diag_solver_sizeof(sv) result(val) function s_diag_solver_sizeof(sv) result(val)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_s_diag_solver_type), intent(in) :: sv class(mld_s_diag_solver_type), intent(in) :: sv

@ -69,7 +69,7 @@ module mld_s_id_solver
contains contains
subroutine s_id_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine s_id_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_s_id_solver_type), intent(in) :: sv class(mld_s_id_solver_type), intent(in) :: sv
real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: x(:)
@ -115,7 +115,7 @@ contains
subroutine s_id_solver_bld(a,desc_a,sv,upd,info,b) subroutine s_id_solver_bld(a,desc_a,sv,upd,info,b)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -160,7 +160,7 @@ contains
subroutine s_id_solver_seti(sv,what,val,info) subroutine s_id_solver_seti(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -180,7 +180,7 @@ contains
subroutine s_id_solver_setc(sv,what,val,info) subroutine s_id_solver_setc(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -199,7 +199,7 @@ contains
subroutine s_id_solver_setr(sv,what,val,info) subroutine s_id_solver_setr(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -219,7 +219,7 @@ contains
subroutine s_id_solver_free(sv,info) subroutine s_id_solver_free(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -236,7 +236,7 @@ contains
subroutine s_id_solver_descr(sv,info,iout,coarse) subroutine s_id_solver_descr(sv,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -266,7 +266,7 @@ contains
end subroutine s_id_solver_descr end subroutine s_id_solver_descr
function s_id_solver_sizeof(sv) result(val) function s_id_solver_sizeof(sv) result(val)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_s_id_solver_type), intent(in) :: sv class(mld_s_id_solver_type), intent(in) :: sv

@ -86,7 +86,7 @@ contains
subroutine s_ilu_solver_default(sv) subroutine s_ilu_solver_default(sv)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -102,7 +102,7 @@ contains
subroutine s_ilu_solver_check(sv,info) subroutine s_ilu_solver_check(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -143,7 +143,7 @@ contains
subroutine s_ilu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine s_ilu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_s_ilu_solver_type), intent(in) :: sv class(mld_s_ilu_solver_type), intent(in) :: sv
real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: x(:)
@ -247,7 +247,7 @@ contains
subroutine s_ilu_solver_bld(a,desc_a,sv,upd,info,b) subroutine s_ilu_solver_bld(a,desc_a,sv,upd,info,b)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -419,7 +419,7 @@ contains
subroutine s_ilu_solver_seti(sv,what,val,info) subroutine s_ilu_solver_seti(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -458,7 +458,7 @@ contains
subroutine s_ilu_solver_setc(sv,what,val,info) subroutine s_ilu_solver_setc(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -496,7 +496,7 @@ contains
subroutine s_ilu_solver_setr(sv,what,val,info) subroutine s_ilu_solver_setr(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -534,7 +534,7 @@ contains
subroutine s_ilu_solver_free(sv,info) subroutine s_ilu_solver_free(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -572,7 +572,7 @@ contains
subroutine s_ilu_solver_descr(sv,info,iout,coarse) subroutine s_ilu_solver_descr(sv,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -619,7 +619,7 @@ contains
end subroutine s_ilu_solver_descr end subroutine s_ilu_solver_descr
function s_ilu_solver_sizeof(sv) result(val) function s_ilu_solver_sizeof(sv) result(val)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_s_ilu_solver_type), intent(in) :: sv class(mld_s_ilu_solver_type), intent(in) :: sv
@ -635,7 +635,7 @@ contains
end function s_ilu_solver_sizeof end function s_ilu_solver_sizeof
subroutine s_ilu_solver_dmp(sv,ictxt,level,info,prefix,head,solver) subroutine s_ilu_solver_dmp(sv,ictxt,level,info,prefix,head,solver)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
class(mld_s_ilu_solver_type), intent(in) :: sv class(mld_s_ilu_solver_type), intent(in) :: sv
integer, intent(in) :: ictxt,level integer, intent(in) :: ictxt,level

@ -51,7 +51,7 @@ module mld_s_inner_mod
interface mld_mlprec_bld interface mld_mlprec_bld
subroutine mld_smlprec_bld(a,desc_a,prec,info) subroutine mld_smlprec_bld(a,desc_a,prec,info)
use psb_sparse_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
use mld_s_prec_type, only : mld_sprec_type use mld_s_prec_type, only : mld_sprec_type
implicit none implicit none
type(psb_sspmat_type), intent(in), target :: a type(psb_sspmat_type), intent(in), target :: a
@ -65,7 +65,7 @@ module mld_s_inner_mod
interface mld_mlprec_aply interface mld_mlprec_aply
subroutine mld_smlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info) subroutine mld_smlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
use mld_s_prec_type, only : mld_sprec_type use mld_s_prec_type, only : mld_sprec_type
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
type(mld_sprec_type), intent(in) :: p type(mld_sprec_type), intent(in) :: p
@ -81,7 +81,7 @@ module mld_s_inner_mod
interface mld_coarse_bld interface mld_coarse_bld
subroutine mld_scoarse_bld(a,desc_a,p,info) subroutine mld_scoarse_bld(a,desc_a,p,info)
use psb_sparse_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
use mld_s_prec_type, only : mld_sonelev_type use mld_s_prec_type, only : mld_sonelev_type
type(psb_sspmat_type), intent(in) :: a type(psb_sspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
@ -92,7 +92,7 @@ module mld_s_inner_mod
interface mld_aggrmap_bld interface mld_aggrmap_bld
subroutine mld_saggrmap_bld(aggr_type,theta,a,desc_a,ilaggr,nlaggr,info) subroutine mld_saggrmap_bld(aggr_type,theta,a,desc_a,ilaggr,nlaggr,info)
use psb_sparse_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
integer, intent(in) :: aggr_type integer, intent(in) :: aggr_type
real(psb_spk_), intent(in) :: theta real(psb_spk_), intent(in) :: theta
type(psb_sspmat_type), intent(in) :: a type(psb_sspmat_type), intent(in) :: a
@ -104,7 +104,7 @@ module mld_s_inner_mod
interface mld_aggrmat_asb interface mld_aggrmat_asb
subroutine mld_saggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info) subroutine mld_saggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info)
use psb_sparse_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
use mld_s_prec_type, only : mld_sonelev_type use mld_s_prec_type, only : mld_sonelev_type
type(psb_sspmat_type), intent(in) :: a type(psb_sspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
@ -116,7 +116,7 @@ module mld_s_inner_mod
interface mld_aggrmat_nosmth_asb interface mld_aggrmat_nosmth_asb
subroutine mld_saggrmat_nosmth_asb(a,desc_a,ilaggr,nlaggr,p,info) subroutine mld_saggrmat_nosmth_asb(a,desc_a,ilaggr,nlaggr,p,info)
use psb_sparse_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
use mld_s_prec_type, only : mld_sonelev_type use mld_s_prec_type, only : mld_sonelev_type
type(psb_sspmat_type), intent(in) :: a type(psb_sspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
@ -128,7 +128,7 @@ module mld_s_inner_mod
interface mld_aggrmat_smth_asb interface mld_aggrmat_smth_asb
subroutine mld_saggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,p,info) subroutine mld_saggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,p,info)
use psb_sparse_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
use mld_s_prec_type, only : mld_sonelev_type use mld_s_prec_type, only : mld_sonelev_type
type(psb_sspmat_type), intent(in) :: a type(psb_sspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a

@ -75,7 +75,7 @@ module mld_s_jac_smoother
contains contains
subroutine s_jac_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,work,info) subroutine s_jac_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_s_jac_smoother_type), intent(in) :: sm class(mld_s_jac_smoother_type), intent(in) :: sm
real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: x(:)
@ -230,7 +230,7 @@ contains
subroutine s_jac_smoother_bld(a,desc_a,sm,upd,info) subroutine s_jac_smoother_bld(a,desc_a,sm,upd,info)
use psb_sparse_mod use psb_base_mod
use mld_s_diag_solver use mld_s_diag_solver
Implicit None Implicit None
@ -303,7 +303,7 @@ contains
subroutine s_jac_smoother_seti(sm,what,val,info) subroutine s_jac_smoother_seti(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -344,7 +344,7 @@ contains
subroutine s_jac_smoother_setc(sm,what,val,info) subroutine s_jac_smoother_setc(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -382,7 +382,7 @@ contains
subroutine s_jac_smoother_setr(sm,what,val,info) subroutine s_jac_smoother_setr(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -419,7 +419,7 @@ contains
subroutine s_jac_smoother_free(sm,info) subroutine s_jac_smoother_free(sm,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -459,7 +459,7 @@ contains
subroutine s_jac_smoother_descr(sm,info,iout,coarse) subroutine s_jac_smoother_descr(sm,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -510,7 +510,7 @@ contains
end subroutine s_jac_smoother_descr end subroutine s_jac_smoother_descr
function s_jac_smoother_sizeof(sm) result(val) function s_jac_smoother_sizeof(sm) result(val)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_s_jac_smoother_type), intent(in) :: sm class(mld_s_jac_smoother_type), intent(in) :: sm

@ -56,7 +56,7 @@ module mld_s_move_alloc_mod
contains contains
subroutine mld_sonelev_prec_move_alloc(a, b,info) subroutine mld_sonelev_prec_move_alloc(a, b,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
type(mld_sonelev_type), intent(inout) :: a, b type(mld_sonelev_type), intent(inout) :: a, b
integer, intent(out) :: info integer, intent(out) :: info
@ -72,7 +72,7 @@ contains
end subroutine mld_sonelev_prec_move_alloc end subroutine mld_sonelev_prec_move_alloc
subroutine mld_sprec_move_alloc(a, b,info) subroutine mld_sprec_move_alloc(a, b,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
type(mld_sprec_type), intent(inout) :: a type(mld_sprec_type), intent(inout) :: a
type(mld_sprec_type), intent(inout), target :: b type(mld_sprec_type), intent(inout), target :: b

@ -50,7 +50,7 @@ module mld_s_prec_mod
interface mld_precinit interface mld_precinit
subroutine mld_sprecinit(p,ptype,info,nlev) subroutine mld_sprecinit(p,ptype,info,nlev)
use psb_sparse_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
use mld_s_prec_type, only : mld_sprec_type use mld_s_prec_type, only : mld_sprec_type
type(mld_sprec_type), intent(inout) :: p type(mld_sprec_type), intent(inout) :: p
character(len=*), intent(in) :: ptype character(len=*), intent(in) :: ptype
@ -65,7 +65,7 @@ module mld_s_prec_mod
interface mld_inner_precset interface mld_inner_precset
subroutine mld_sprecsetsm(p,what,val,info,ilev) subroutine mld_sprecsetsm(p,what,val,info,ilev)
use psb_sparse_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
use mld_s_prec_type, only : mld_sprec_type, mld_s_base_smoother_type use mld_s_prec_type, only : mld_sprec_type, mld_s_base_smoother_type
type(mld_sprec_type), intent(inout) :: p type(mld_sprec_type), intent(inout) :: p
integer, intent(in) :: what integer, intent(in) :: what
@ -74,7 +74,7 @@ module mld_s_prec_mod
integer, optional, intent(in) :: ilev integer, optional, intent(in) :: ilev
end subroutine mld_sprecsetsm end subroutine mld_sprecsetsm
subroutine mld_sprecsetsv(p,what,val,info,ilev) subroutine mld_sprecsetsv(p,what,val,info,ilev)
use psb_sparse_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
use mld_s_prec_type, only : mld_sprec_type, mld_s_base_solver_type use mld_s_prec_type, only : mld_sprec_type, mld_s_base_solver_type
type(mld_sprec_type), intent(inout) :: p type(mld_sprec_type), intent(inout) :: p
integer, intent(in) :: what integer, intent(in) :: what
@ -83,7 +83,7 @@ module mld_s_prec_mod
integer, optional, intent(in) :: ilev integer, optional, intent(in) :: ilev
end subroutine mld_sprecsetsv end subroutine mld_sprecsetsv
subroutine mld_sprecseti(p,what,val,info,ilev) subroutine mld_sprecseti(p,what,val,info,ilev)
use psb_sparse_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
use mld_s_prec_type, only : mld_sprec_type use mld_s_prec_type, only : mld_sprec_type
type(mld_sprec_type), intent(inout) :: p type(mld_sprec_type), intent(inout) :: p
integer, intent(in) :: what integer, intent(in) :: what
@ -92,7 +92,7 @@ module mld_s_prec_mod
integer, optional, intent(in) :: ilev integer, optional, intent(in) :: ilev
end subroutine mld_sprecseti end subroutine mld_sprecseti
subroutine mld_sprecsetr(p,what,val,info,ilev) subroutine mld_sprecsetr(p,what,val,info,ilev)
use psb_sparse_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
use mld_s_prec_type, only : mld_sprec_type use mld_s_prec_type, only : mld_sprec_type
type(mld_sprec_type), intent(inout) :: p type(mld_sprec_type), intent(inout) :: p
integer, intent(in) :: what integer, intent(in) :: what
@ -101,7 +101,7 @@ module mld_s_prec_mod
integer, optional, intent(in) :: ilev integer, optional, intent(in) :: ilev
end subroutine mld_sprecsetr end subroutine mld_sprecsetr
subroutine mld_sprecsetc(p,what,string,info,ilev) subroutine mld_sprecsetc(p,what,string,info,ilev)
use psb_sparse_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
use mld_s_prec_type, only : mld_sprec_type use mld_s_prec_type, only : mld_sprec_type
type(mld_sprec_type), intent(inout) :: p type(mld_sprec_type), intent(inout) :: p
integer, intent(in) :: what integer, intent(in) :: what
@ -113,7 +113,7 @@ module mld_s_prec_mod
interface mld_precbld interface mld_precbld
subroutine mld_sprecbld(a,desc_a,prec,info) subroutine mld_sprecbld(a,desc_a,prec,info)
use psb_sparse_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
use mld_s_prec_type, only : mld_sprec_type use mld_s_prec_type, only : mld_sprec_type
implicit none implicit none
type(psb_sspmat_type), intent(in), target :: a type(psb_sspmat_type), intent(in), target :: a
@ -127,7 +127,7 @@ module mld_s_prec_mod
contains contains
subroutine mld_i_sprecseti(p,what,val,info) subroutine mld_i_sprecseti(p,what,val,info)
use psb_sparse_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
use mld_s_prec_type, only : mld_sprec_type use mld_s_prec_type, only : mld_sprec_type
type(mld_sprec_type), intent(inout) :: p type(mld_sprec_type), intent(inout) :: p
integer, intent(in) :: what integer, intent(in) :: what
@ -138,7 +138,7 @@ contains
end subroutine mld_i_sprecseti end subroutine mld_i_sprecseti
subroutine mld_i_sprecsetr(p,what,val,info) subroutine mld_i_sprecsetr(p,what,val,info)
use psb_sparse_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
use mld_s_prec_type, only : mld_sprec_type use mld_s_prec_type, only : mld_sprec_type
type(mld_sprec_type), intent(inout) :: p type(mld_sprec_type), intent(inout) :: p
integer, intent(in) :: what integer, intent(in) :: what
@ -149,7 +149,7 @@ contains
end subroutine mld_i_sprecsetr end subroutine mld_i_sprecsetr
subroutine mld_i_sprecsetc(p,what,val,info) subroutine mld_i_sprecsetc(p,what,val,info)
use psb_sparse_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
use mld_s_prec_type, only : mld_sprec_type use mld_s_prec_type, only : mld_sprec_type
type(mld_sprec_type), intent(inout) :: p type(mld_sprec_type), intent(inout) :: p
integer, intent(in) :: what integer, intent(in) :: what

@ -277,7 +277,7 @@ module mld_s_prec_type
interface mld_precaply interface mld_precaply
subroutine mld_sprecaply(prec,x,y,desc_data,info,trans,work) subroutine mld_sprecaply(prec,x,y,desc_data,info,trans,work)
use psb_sparse_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
import mld_sprec_type import mld_sprec_type
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
type(mld_sprec_type), intent(in) :: prec type(mld_sprec_type), intent(in) :: prec
@ -288,7 +288,7 @@ module mld_s_prec_type
real(psb_spk_),intent(inout), optional, target :: work(:) real(psb_spk_),intent(inout), optional, target :: work(:)
end subroutine mld_sprecaply end subroutine mld_sprecaply
subroutine mld_sprecaply1(prec,x,desc_data,info,trans) subroutine mld_sprecaply1(prec,x,desc_data,info,trans)
use psb_sparse_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
import mld_sprec_type import mld_sprec_type
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
type(mld_sprec_type), intent(in) :: prec type(mld_sprec_type), intent(in) :: prec
@ -477,7 +477,7 @@ contains
subroutine s_base_onelev_descr(lv,info,iout,coarse) subroutine s_base_onelev_descr(lv,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -536,7 +536,7 @@ contains
end subroutine s_base_onelev_descr end subroutine s_base_onelev_descr
subroutine mld_s_onelev_precfree(p,info) subroutine mld_s_onelev_precfree(p,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
type(mld_sonelev_type), intent(inout) :: p type(mld_sonelev_type), intent(inout) :: p
@ -581,7 +581,7 @@ contains
subroutine mld_sprec_free(p,info) subroutine mld_sprec_free(p,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
@ -621,7 +621,7 @@ contains
subroutine s_base_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,work,info) subroutine s_base_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_s_base_smoother_type), intent(in) :: sm class(mld_s_base_smoother_type), intent(in) :: sm
real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: x(:)
@ -662,7 +662,7 @@ contains
subroutine s_base_smoother_check(sm,info) subroutine s_base_smoother_check(sm,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -700,7 +700,7 @@ contains
subroutine s_base_smoother_seti(sm,what,val,info) subroutine s_base_smoother_seti(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -733,7 +733,7 @@ contains
subroutine s_base_smoother_setc(sm,what,val,info) subroutine s_base_smoother_setc(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -768,7 +768,7 @@ contains
subroutine s_base_smoother_setr(sm,what,val,info) subroutine s_base_smoother_setr(sm,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -804,7 +804,7 @@ contains
subroutine s_base_smoother_bld(a,desc_a,sm,upd,info) subroutine s_base_smoother_bld(a,desc_a,sm,upd,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -843,7 +843,7 @@ contains
subroutine s_base_smoother_free(sm,info) subroutine s_base_smoother_free(sm,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -879,7 +879,7 @@ contains
subroutine s_base_smoother_descr(sm,info,iout,coarse) subroutine s_base_smoother_descr(sm,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -955,7 +955,7 @@ contains
subroutine s_base_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine s_base_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_s_base_solver_type), intent(in) :: sv class(mld_s_base_solver_type), intent(in) :: sv
real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: x(:)
@ -989,7 +989,7 @@ contains
subroutine s_base_solver_bld(a,desc_a,sv,upd,info,b) subroutine s_base_solver_bld(a,desc_a,sv,upd,info,b)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1024,7 +1024,7 @@ contains
subroutine s_base_solver_check(sv,info) subroutine s_base_solver_check(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1054,7 +1054,7 @@ contains
subroutine s_base_solver_seti(sv,what,val,info) subroutine s_base_solver_seti(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1074,7 +1074,7 @@ contains
subroutine s_base_solver_setc(sv,what,val,info) subroutine s_base_solver_setc(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1110,7 +1110,7 @@ contains
subroutine s_base_solver_setr(sv,what,val,info) subroutine s_base_solver_setr(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1131,7 +1131,7 @@ contains
subroutine s_base_solver_free(sv,info) subroutine s_base_solver_free(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1161,7 +1161,7 @@ contains
subroutine s_base_solver_descr(sv,info,iout,coarse) subroutine s_base_solver_descr(sv,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1218,7 +1218,7 @@ contains
subroutine mld_s_apply2v(prec,x,y,desc_data,info,trans,work) subroutine mld_s_apply2v(prec,x,y,desc_data,info,trans,work)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
class(mld_sprec_type), intent(in) :: prec class(mld_sprec_type), intent(in) :: prec
real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: x(:)
@ -1254,7 +1254,7 @@ contains
end subroutine mld_s_apply2v end subroutine mld_s_apply2v
subroutine mld_s_apply1v(prec,x,desc_data,info,trans) subroutine mld_s_apply1v(prec,x,desc_data,info,trans)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
class(mld_sprec_type), intent(in) :: prec class(mld_sprec_type), intent(in) :: prec
real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: x(:)
@ -1289,7 +1289,7 @@ contains
subroutine s_base_onelev_check(lv,info) subroutine s_base_onelev_check(lv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1335,7 +1335,7 @@ contains
subroutine s_base_onelev_default(lv) subroutine s_base_onelev_default(lv)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1365,7 +1365,7 @@ contains
subroutine s_base_onelev_seti(lv,what,val,info) subroutine s_base_onelev_seti(lv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1440,7 +1440,7 @@ contains
subroutine s_base_onelev_setc(lv,what,val,info) subroutine s_base_onelev_setc(lv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1476,7 +1476,7 @@ contains
subroutine s_base_onelev_setr(lv,what,val,info) subroutine s_base_onelev_setr(lv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -1521,7 +1521,7 @@ contains
end subroutine s_base_onelev_setr end subroutine s_base_onelev_setr
subroutine mld_s_dump(prec,info,istart,iend,prefix,head,ac,smoother,solver) subroutine mld_s_dump(prec,info,istart,iend,prefix,head,ac,smoother,solver)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
class(mld_sprec_type), intent(in) :: prec class(mld_sprec_type), intent(in) :: prec
integer, intent(out) :: info integer, intent(out) :: info
@ -1555,7 +1555,7 @@ contains
subroutine s_base_onelev_dump(lv,level,info,prefix,head,ac,smoother,solver) subroutine s_base_onelev_dump(lv,level,info,prefix,head,ac,smoother,solver)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
class(mld_sonelev_type), intent(in) :: lv class(mld_sonelev_type), intent(in) :: lv
integer, intent(in) :: level integer, intent(in) :: level
@ -1605,7 +1605,7 @@ contains
end subroutine s_base_onelev_dump end subroutine s_base_onelev_dump
subroutine s_base_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solver) subroutine s_base_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solver)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
class(mld_s_base_smoother_type), intent(in) :: sm class(mld_s_base_smoother_type), intent(in) :: sm
integer, intent(in) :: ictxt,level integer, intent(in) :: ictxt,level
@ -1646,7 +1646,7 @@ contains
end subroutine s_base_smoother_dmp end subroutine s_base_smoother_dmp
subroutine s_base_solver_dmp(sv,ictxt,level,info,prefix,head,solver) subroutine s_base_solver_dmp(sv,ictxt,level,info,prefix,head,solver)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
class(mld_s_base_solver_type), intent(in) :: sv class(mld_s_base_solver_type), intent(in) :: sv
integer, intent(in) :: ictxt,level integer, intent(in) :: ictxt,level

@ -106,7 +106,7 @@ module mld_s_slu_solver
contains contains
subroutine s_slu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine s_slu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod use psb_base_mod
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_s_slu_solver_type), intent(in) :: sv class(mld_s_slu_solver_type), intent(in) :: sv
real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: x(:)
@ -187,7 +187,7 @@ contains
subroutine s_slu_solver_bld(a,desc_a,sv,upd,info,b) subroutine s_slu_solver_bld(a,desc_a,sv,upd,info,b)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -267,7 +267,7 @@ contains
subroutine s_slu_solver_seti(sv,what,val,info) subroutine s_slu_solver_seti(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -302,7 +302,7 @@ contains
subroutine s_slu_solver_setc(sv,what,val,info) subroutine s_slu_solver_setc(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -340,7 +340,7 @@ contains
subroutine s_slu_solver_setr(sv,what,val,info) subroutine s_slu_solver_setr(sv,what,val,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -376,7 +376,7 @@ contains
subroutine s_slu_solver_free(sv,info) subroutine s_slu_solver_free(sv,info)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -409,7 +409,7 @@ contains
subroutine s_slu_solver_descr(sv,info,iout,coarse) subroutine s_slu_solver_descr(sv,info,iout,coarse)
use psb_sparse_mod use psb_base_mod
Implicit None Implicit None
@ -448,7 +448,7 @@ contains
end subroutine s_slu_solver_descr end subroutine s_slu_solver_descr
function s_slu_solver_sizeof(sv) result(val) function s_slu_solver_sizeof(sv) result(val)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_s_slu_solver_type), intent(in) :: sv class(mld_s_slu_solver_type), intent(in) :: sv

@ -81,7 +81,7 @@
! !
subroutine mld_saggrmap_bld(aggr_type,theta,a,desc_a,ilaggr,nlaggr,info) subroutine mld_saggrmap_bld(aggr_type,theta,a,desc_a,ilaggr,nlaggr,info)
use psb_sparse_mod use psb_base_mod
use mld_s_inner_mod, mld_protect_name => mld_saggrmap_bld use mld_s_inner_mod, mld_protect_name => mld_saggrmap_bld
implicit none implicit none
@ -164,7 +164,7 @@ contains
subroutine mld_dec_map_bld(theta,a,desc_a,nlaggr,ilaggr,info) subroutine mld_dec_map_bld(theta,a,desc_a,nlaggr,ilaggr,info)
use psb_sparse_mod use psb_base_mod
use mld_s_inner_mod !, mld_protect_name => mld_daggrmap_bld use mld_s_inner_mod !, mld_protect_name => mld_daggrmap_bld
implicit none implicit none

@ -100,7 +100,7 @@
! !
subroutine mld_saggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info) subroutine mld_saggrmat_asb(a,desc_a,ilaggr,nlaggr,p,info)
use psb_sparse_mod use psb_base_mod
use mld_s_inner_mod, mld_protect_name => mld_saggrmat_asb use mld_s_inner_mod, mld_protect_name => mld_saggrmat_asb
implicit none implicit none

@ -82,7 +82,7 @@
! Error code. ! Error code.
! !
subroutine mld_saggrmat_nosmth_asb(a,desc_a,ilaggr,nlaggr,p,info) subroutine mld_saggrmat_nosmth_asb(a,desc_a,ilaggr,nlaggr,p,info)
use psb_sparse_mod use psb_base_mod
use mld_s_inner_mod, mld_protect_name => mld_saggrmat_nosmth_asb use mld_s_inner_mod, mld_protect_name => mld_saggrmat_nosmth_asb
#ifdef MPI_MOD #ifdef MPI_MOD

@ -99,7 +99,7 @@
! Error code. ! Error code.
! !
subroutine mld_saggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,p,info) subroutine mld_saggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,p,info)
use psb_sparse_mod use psb_base_mod
use mld_s_inner_mod, mld_protect_name => mld_saggrmat_smth_asb use mld_s_inner_mod, mld_protect_name => mld_saggrmat_smth_asb
#ifdef MPI_MOD #ifdef MPI_MOD

@ -67,7 +67,7 @@
! !
subroutine mld_scoarse_bld(a,desc_a,p,info) subroutine mld_scoarse_bld(a,desc_a,p,info)
use psb_sparse_mod use psb_base_mod
use mld_s_inner_mod, mld_protect_name => mld_scoarse_bld use mld_s_inner_mod, mld_protect_name => mld_scoarse_bld
implicit none implicit none

@ -101,7 +101,7 @@
! !
subroutine mld_silu0_fact(ialg,a,l,u,d,info,blck,upd) subroutine mld_silu0_fact(ialg,a,l,u,d,info,blck,upd)
use psb_sparse_mod use psb_base_mod
use mld_s_ilu_fact_mod, mld_protect_name => mld_silu0_fact use mld_s_ilu_fact_mod, mld_protect_name => mld_silu0_fact
implicit none implicit none
@ -557,7 +557,7 @@ contains
subroutine ilu_copyin(i,m,a,jd,jmin,jmax,l1,lja,lval,& subroutine ilu_copyin(i,m,a,jd,jmin,jmax,l1,lja,lval,&
& dia,l2,uja,uval,ktrw,trw,upd) & dia,l2,uja,uval,ktrw,trw,upd)
use psb_sparse_mod use psb_base_mod
implicit none implicit none

@ -98,7 +98,7 @@
! !
subroutine mld_siluk_fact(fill_in,ialg,a,l,u,d,info,blck) subroutine mld_siluk_fact(fill_in,ialg,a,l,u,d,info,blck)
use psb_sparse_mod use psb_base_mod
use mld_s_ilu_fact_mod, mld_protect_name => mld_siluk_fact use mld_s_ilu_fact_mod, mld_protect_name => mld_siluk_fact
implicit none implicit none
@ -273,7 +273,7 @@ contains
subroutine mld_siluk_factint(fill_in,ialg,a,b,& subroutine mld_siluk_factint(fill_in,ialg,a,b,&
& d,lval,lja,lirp,uval,uja,uirp,l1,l2,info) & d,lval,lja,lirp,uval,uja,uirp,l1,l2,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
@ -491,7 +491,7 @@ contains
! !
subroutine iluk_copyin(i,m,a,jmin,jmax,row,rowlevs,heap,ktrw,trw,info) subroutine iluk_copyin(i,m,a,jmin,jmax,row,rowlevs,heap,ktrw,trw,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
@ -648,7 +648,7 @@ contains
! !
subroutine iluk_fact(fill_in,i,row,rowlevs,heap,d,uja,uirp,uval,uplevs,nidx,idxs,info) subroutine iluk_fact(fill_in,i,row,rowlevs,heap,d,uja,uirp,uval,uplevs,nidx,idxs,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
@ -824,7 +824,7 @@ contains
subroutine iluk_copyout(fill_in,ialg,i,m,row,rowlevs,nidx,idxs,& subroutine iluk_copyout(fill_in,ialg,i,m,row,rowlevs,nidx,idxs,&
& l1,l2,lja,lirp,lval,d,uja,uirp,uval,uplevs,info) & l1,l2,lja,lirp,lval,d,uja,uirp,uval,uplevs,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none

@ -94,7 +94,7 @@
! !
subroutine mld_silut_fact(fill_in,thres,a,l,u,d,info,blck) subroutine mld_silut_fact(fill_in,thres,a,l,u,d,info,blck)
use psb_sparse_mod use psb_base_mod
use mld_s_ilu_fact_mod, mld_protect_name => mld_silut_fact use mld_s_ilu_fact_mod, mld_protect_name => mld_silut_fact
implicit none implicit none
@ -272,7 +272,7 @@ contains
subroutine mld_silut_factint(fill_in,thres,a,b,& subroutine mld_silut_factint(fill_in,thres,a,b,&
& d,lval,lja,lirp,uval,uja,uirp,l1,l2,info) & d,lval,lja,lirp,uval,uja,uirp,l1,l2,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
@ -484,7 +484,7 @@ contains
! every nrb calls to copyin. If A is in CSR format it is unused. ! every nrb calls to copyin. If A is in CSR format it is unused.
! !
subroutine ilut_copyin(i,m,a,jd,jmin,jmax,nlw,nup,jmaxup,nrmi,row,heap,ktrw,trw,info) subroutine ilut_copyin(i,m,a,jd,jmin,jmax,nlw,nup,jmaxup,nrmi,row,heap,ktrw,trw,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
type(psb_sspmat_type), intent(in) :: a type(psb_sspmat_type), intent(in) :: a
type(psb_s_coo_sparse_mat), intent(inout) :: trw type(psb_s_coo_sparse_mat), intent(inout) :: trw
@ -677,7 +677,7 @@ contains
! !
subroutine ilut_fact(thres,i,nrmi,row,heap,d,uja,uirp,uval,nidx,idxs,info) subroutine ilut_fact(thres,i,nrmi,row,heap,d,uja,uirp,uval,nidx,idxs,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none
@ -863,7 +863,7 @@ contains
subroutine ilut_copyout(fill_in,thres,i,m,nlw,nup,jmaxup,nrmi,row, & subroutine ilut_copyout(fill_in,thres,i,m,nlw,nup,jmaxup,nrmi,row, &
& nidx,idxs,l1,l2,lja,lirp,lval,d,uja,uirp,uval,info) & nidx,idxs,l1,l2,lja,lirp,lval,d,uja,uirp,uval,info)
use psb_sparse_mod use psb_base_mod
implicit none implicit none

@ -315,7 +315,7 @@
! !
subroutine mld_smlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info) subroutine mld_smlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info)
use psb_sparse_mod use psb_base_mod
use mld_s_inner_mod, mld_protect_name => mld_smlprec_aply use mld_s_inner_mod, mld_protect_name => mld_smlprec_aply
implicit none implicit none

@ -66,7 +66,7 @@
! !
subroutine mld_smlprec_bld(a,desc_a,p,info) subroutine mld_smlprec_bld(a,desc_a,p,info)
use psb_sparse_mod use psb_base_mod
use mld_s_inner_mod, mld_protect_name => mld_smlprec_bld use mld_s_inner_mod, mld_protect_name => mld_smlprec_bld
use mld_s_prec_mod use mld_s_prec_mod

@ -73,7 +73,7 @@
! !
subroutine mld_sprecaply(prec,x,y,desc_data,info,trans,work) subroutine mld_sprecaply(prec,x,y,desc_data,info,trans,work)
use psb_sparse_mod use psb_base_mod
use mld_s_inner_mod, mld_protect_name => mld_sprecaply use mld_s_inner_mod, mld_protect_name => mld_sprecaply
implicit none implicit none
@ -205,7 +205,7 @@ end subroutine mld_sprecaply
! !
subroutine mld_sprecaply1(prec,x,desc_data,info,trans) subroutine mld_sprecaply1(prec,x,desc_data,info,trans)
use psb_sparse_mod use psb_base_mod
use mld_s_inner_mod, mld_protect_name => mld_sprecaply1 use mld_s_inner_mod, mld_protect_name => mld_sprecaply1
implicit none implicit none

@ -60,7 +60,7 @@
! !
subroutine mld_sprecbld(a,desc_a,p,info) subroutine mld_sprecbld(a,desc_a,p,info)
use psb_sparse_mod use psb_base_mod
use mld_s_inner_mod use mld_s_inner_mod
use mld_s_prec_mod, mld_protect_name => mld_sprecbld use mld_s_prec_mod, mld_protect_name => mld_sprecbld

@ -90,7 +90,7 @@
! !
subroutine mld_sprecinit(p,ptype,info,nlev) subroutine mld_sprecinit(p,ptype,info,nlev)
use psb_sparse_mod use psb_base_mod
use mld_s_prec_mod, mld_protect_name => mld_sprecinit use mld_s_prec_mod, mld_protect_name => mld_sprecinit
use mld_s_jac_smoother use mld_s_jac_smoother
use mld_s_as_smoother use mld_s_as_smoother

@ -78,7 +78,7 @@
! !
subroutine mld_sprecseti(p,what,val,info,ilev) subroutine mld_sprecseti(p,what,val,info,ilev)
use psb_sparse_mod use psb_base_mod
use mld_s_prec_mod, mld_protect_name => mld_sprecseti use mld_s_prec_mod, mld_protect_name => mld_sprecseti
use mld_s_jac_smoother use mld_s_jac_smoother
use mld_s_as_smoother use mld_s_as_smoother
@ -511,7 +511,7 @@ end subroutine mld_sprecseti
subroutine mld_sprecsetsm(p,val,info,ilev) subroutine mld_sprecsetsm(p,val,info,ilev)
use psb_sparse_mod use psb_base_mod
use mld_s_prec_mod, mld_protect_name => mld_sprecsetsm use mld_s_prec_mod, mld_protect_name => mld_sprecsetsm
implicit none implicit none
@ -572,7 +572,7 @@ end subroutine mld_sprecsetsm
subroutine mld_sprecsetsv(p,val,info,ilev) subroutine mld_sprecsetsv(p,val,info,ilev)
use psb_sparse_mod use psb_base_mod
use mld_s_prec_mod, mld_protect_name => mld_sprecsetsv use mld_s_prec_mod, mld_protect_name => mld_sprecsetsv
implicit none implicit none
@ -682,7 +682,7 @@ end subroutine mld_sprecsetsv
! !
subroutine mld_sprecsetc(p,what,string,info,ilev) subroutine mld_sprecsetc(p,what,string,info,ilev)
use psb_sparse_mod use psb_base_mod
use mld_s_prec_mod, mld_protect_name => mld_sprecsetc use mld_s_prec_mod, mld_protect_name => mld_sprecsetc
implicit none implicit none
@ -766,7 +766,7 @@ end subroutine mld_sprecsetc
! !
subroutine mld_sprecsetr(p,what,val,info,ilev) subroutine mld_sprecsetr(p,what,val,info,ilev)
use psb_sparse_mod use psb_base_mod
use mld_s_prec_mod, mld_protect_name => mld_sprecsetr use mld_s_prec_mod, mld_protect_name => mld_sprecsetr
implicit none implicit none

@ -71,7 +71,7 @@
! !
subroutine mld_sslu_bld(a,desc_a,p,info) subroutine mld_sslu_bld(a,desc_a,p,info)
use psb_sparse_mod use psb_base_mod
use mld_s_inner_mod, mld_protect_name => mld_sslu_bld use mld_s_inner_mod, mld_protect_name => mld_sslu_bld
implicit none implicit none

Some files were not shown because too many files have changed in this diff Show More

Loading…
Cancel
Save