From 385047f0bb33840367f8172b9d9b6482afc04112 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Sun, 2 Jan 2011 14:51:11 +0000 Subject: [PATCH] mld2p4-2: mlprec/mld_c_as_smoother.f03 mlprec/mld_c_as_smoother.f90 mlprec/mld_c_diag_solver.f03 mlprec/mld_c_diag_solver.f90 mlprec/mld_c_ilu_solver.f03 mlprec/mld_c_ilu_solver.f90 mlprec/mld_c_jac_smoother.f03 mlprec/mld_c_jac_smoother.f90 mlprec/mld_c_prec_type.f03 mlprec/mld_c_prec_type.f90 mlprec/mld_d_as_smoother.f03 mlprec/mld_d_as_smoother.f90 mlprec/mld_d_diag_solver.f03 mlprec/mld_d_diag_solver.f90 mlprec/mld_d_ilu_solver.f03 mlprec/mld_d_ilu_solver.f90 mlprec/mld_d_jac_smoother.f03 mlprec/mld_d_jac_smoother.f90 mlprec/mld_d_prec_type.f03 mlprec/mld_d_prec_type.f90 mlprec/mld_s_as_smoother.f03 mlprec/mld_s_as_smoother.f90 mlprec/mld_s_diag_solver.f03 mlprec/mld_s_diag_solver.f90 mlprec/mld_s_ilu_solver.f03 mlprec/mld_s_ilu_solver.f90 mlprec/mld_s_jac_smoother.f03 mlprec/mld_s_jac_smoother.f90 mlprec/mld_s_prec_type.f03 mlprec/mld_s_prec_type.f90 mlprec/mld_z_as_smoother.f03 mlprec/mld_z_as_smoother.f90 mlprec/mld_z_diag_solver.f03 mlprec/mld_z_diag_solver.f90 mlprec/mld_z_ilu_solver.f03 mlprec/mld_z_ilu_solver.f90 mlprec/mld_z_jac_smoother.f03 mlprec/mld_z_jac_smoother.f90 mlprec/mld_z_prec_type.f03 mlprec/mld_z_prec_type.f90 Switched names f03 to f90 --- mlprec/{mld_c_as_smoother.f03 => mld_c_as_smoother.f90} | 0 mlprec/{mld_c_diag_solver.f03 => mld_c_diag_solver.f90} | 0 mlprec/{mld_c_ilu_solver.f03 => mld_c_ilu_solver.f90} | 0 mlprec/{mld_c_jac_smoother.f03 => mld_c_jac_smoother.f90} | 0 mlprec/{mld_c_prec_type.f03 => mld_c_prec_type.f90} | 0 mlprec/{mld_d_as_smoother.f03 => mld_d_as_smoother.f90} | 0 mlprec/{mld_d_diag_solver.f03 => mld_d_diag_solver.f90} | 0 mlprec/{mld_d_ilu_solver.f03 => mld_d_ilu_solver.f90} | 0 mlprec/{mld_d_jac_smoother.f03 => mld_d_jac_smoother.f90} | 0 mlprec/{mld_d_prec_type.f03 => mld_d_prec_type.f90} | 3 +++ mlprec/{mld_s_as_smoother.f03 => mld_s_as_smoother.f90} | 0 mlprec/{mld_s_diag_solver.f03 => mld_s_diag_solver.f90} | 0 mlprec/{mld_s_ilu_solver.f03 => mld_s_ilu_solver.f90} | 0 mlprec/{mld_s_jac_smoother.f03 => mld_s_jac_smoother.f90} | 0 mlprec/{mld_s_prec_type.f03 => mld_s_prec_type.f90} | 0 mlprec/{mld_z_as_smoother.f03 => mld_z_as_smoother.f90} | 0 mlprec/{mld_z_diag_solver.f03 => mld_z_diag_solver.f90} | 0 mlprec/{mld_z_ilu_solver.f03 => mld_z_ilu_solver.f90} | 0 mlprec/{mld_z_jac_smoother.f03 => mld_z_jac_smoother.f90} | 0 mlprec/{mld_z_prec_type.f03 => mld_z_prec_type.f90} | 0 20 files changed, 3 insertions(+) rename mlprec/{mld_c_as_smoother.f03 => mld_c_as_smoother.f90} (100%) rename mlprec/{mld_c_diag_solver.f03 => mld_c_diag_solver.f90} (100%) rename mlprec/{mld_c_ilu_solver.f03 => mld_c_ilu_solver.f90} (100%) rename mlprec/{mld_c_jac_smoother.f03 => mld_c_jac_smoother.f90} (100%) rename mlprec/{mld_c_prec_type.f03 => mld_c_prec_type.f90} (100%) rename mlprec/{mld_d_as_smoother.f03 => mld_d_as_smoother.f90} (100%) rename mlprec/{mld_d_diag_solver.f03 => mld_d_diag_solver.f90} (100%) rename mlprec/{mld_d_ilu_solver.f03 => mld_d_ilu_solver.f90} (100%) rename mlprec/{mld_d_jac_smoother.f03 => mld_d_jac_smoother.f90} (100%) rename mlprec/{mld_d_prec_type.f03 => mld_d_prec_type.f90} (99%) rename mlprec/{mld_s_as_smoother.f03 => mld_s_as_smoother.f90} (100%) rename mlprec/{mld_s_diag_solver.f03 => mld_s_diag_solver.f90} (100%) rename mlprec/{mld_s_ilu_solver.f03 => mld_s_ilu_solver.f90} (100%) rename mlprec/{mld_s_jac_smoother.f03 => mld_s_jac_smoother.f90} (100%) rename mlprec/{mld_s_prec_type.f03 => mld_s_prec_type.f90} (100%) rename mlprec/{mld_z_as_smoother.f03 => mld_z_as_smoother.f90} (100%) rename mlprec/{mld_z_diag_solver.f03 => mld_z_diag_solver.f90} (100%) rename mlprec/{mld_z_ilu_solver.f03 => mld_z_ilu_solver.f90} (100%) rename mlprec/{mld_z_jac_smoother.f03 => mld_z_jac_smoother.f90} (100%) rename mlprec/{mld_z_prec_type.f03 => mld_z_prec_type.f90} (100%) diff --git a/mlprec/mld_c_as_smoother.f03 b/mlprec/mld_c_as_smoother.f90 similarity index 100% rename from mlprec/mld_c_as_smoother.f03 rename to mlprec/mld_c_as_smoother.f90 diff --git a/mlprec/mld_c_diag_solver.f03 b/mlprec/mld_c_diag_solver.f90 similarity index 100% rename from mlprec/mld_c_diag_solver.f03 rename to mlprec/mld_c_diag_solver.f90 diff --git a/mlprec/mld_c_ilu_solver.f03 b/mlprec/mld_c_ilu_solver.f90 similarity index 100% rename from mlprec/mld_c_ilu_solver.f03 rename to mlprec/mld_c_ilu_solver.f90 diff --git a/mlprec/mld_c_jac_smoother.f03 b/mlprec/mld_c_jac_smoother.f90 similarity index 100% rename from mlprec/mld_c_jac_smoother.f03 rename to mlprec/mld_c_jac_smoother.f90 diff --git a/mlprec/mld_c_prec_type.f03 b/mlprec/mld_c_prec_type.f90 similarity index 100% rename from mlprec/mld_c_prec_type.f03 rename to mlprec/mld_c_prec_type.f90 diff --git a/mlprec/mld_d_as_smoother.f03 b/mlprec/mld_d_as_smoother.f90 similarity index 100% rename from mlprec/mld_d_as_smoother.f03 rename to mlprec/mld_d_as_smoother.f90 diff --git a/mlprec/mld_d_diag_solver.f03 b/mlprec/mld_d_diag_solver.f90 similarity index 100% rename from mlprec/mld_d_diag_solver.f03 rename to mlprec/mld_d_diag_solver.f90 diff --git a/mlprec/mld_d_ilu_solver.f03 b/mlprec/mld_d_ilu_solver.f90 similarity index 100% rename from mlprec/mld_d_ilu_solver.f03 rename to mlprec/mld_d_ilu_solver.f90 diff --git a/mlprec/mld_d_jac_smoother.f03 b/mlprec/mld_d_jac_smoother.f90 similarity index 100% rename from mlprec/mld_d_jac_smoother.f03 rename to mlprec/mld_d_jac_smoother.f90 diff --git a/mlprec/mld_d_prec_type.f03 b/mlprec/mld_d_prec_type.f90 similarity index 99% rename from mlprec/mld_d_prec_type.f03 rename to mlprec/mld_d_prec_type.f90 index 122654f0..c0dbf3de 100644 --- a/mlprec/mld_d_prec_type.f03 +++ b/mlprec/mld_d_prec_type.f90 @@ -310,6 +310,7 @@ contains val = val + psb_sizeof_int if (allocated(prec%precv)) then do i=1, size(prec%precv) +!!$ write(0,*) 'At level ',i, mld_sizeof(prec%precv(i)) val = val + mld_sizeof(prec%precv(i)) end do end if @@ -368,6 +369,8 @@ contains val = val + psb_sizeof(prec%ac) val = val + psb_sizeof(prec%map) if (allocated(prec%sm)) val = val + prec%sm%sizeof() +!!$ write(0,*) 'ONelev sizes: ',psb_sizeof(prec%desc_ac),& +!!$ & psb_sizeof(prec%ac), psb_sizeof(prec%map), prec%sm%sizeof() end function mld_d_onelev_prec_sizeof ! diff --git a/mlprec/mld_s_as_smoother.f03 b/mlprec/mld_s_as_smoother.f90 similarity index 100% rename from mlprec/mld_s_as_smoother.f03 rename to mlprec/mld_s_as_smoother.f90 diff --git a/mlprec/mld_s_diag_solver.f03 b/mlprec/mld_s_diag_solver.f90 similarity index 100% rename from mlprec/mld_s_diag_solver.f03 rename to mlprec/mld_s_diag_solver.f90 diff --git a/mlprec/mld_s_ilu_solver.f03 b/mlprec/mld_s_ilu_solver.f90 similarity index 100% rename from mlprec/mld_s_ilu_solver.f03 rename to mlprec/mld_s_ilu_solver.f90 diff --git a/mlprec/mld_s_jac_smoother.f03 b/mlprec/mld_s_jac_smoother.f90 similarity index 100% rename from mlprec/mld_s_jac_smoother.f03 rename to mlprec/mld_s_jac_smoother.f90 diff --git a/mlprec/mld_s_prec_type.f03 b/mlprec/mld_s_prec_type.f90 similarity index 100% rename from mlprec/mld_s_prec_type.f03 rename to mlprec/mld_s_prec_type.f90 diff --git a/mlprec/mld_z_as_smoother.f03 b/mlprec/mld_z_as_smoother.f90 similarity index 100% rename from mlprec/mld_z_as_smoother.f03 rename to mlprec/mld_z_as_smoother.f90 diff --git a/mlprec/mld_z_diag_solver.f03 b/mlprec/mld_z_diag_solver.f90 similarity index 100% rename from mlprec/mld_z_diag_solver.f03 rename to mlprec/mld_z_diag_solver.f90 diff --git a/mlprec/mld_z_ilu_solver.f03 b/mlprec/mld_z_ilu_solver.f90 similarity index 100% rename from mlprec/mld_z_ilu_solver.f03 rename to mlprec/mld_z_ilu_solver.f90 diff --git a/mlprec/mld_z_jac_smoother.f03 b/mlprec/mld_z_jac_smoother.f90 similarity index 100% rename from mlprec/mld_z_jac_smoother.f03 rename to mlprec/mld_z_jac_smoother.f90 diff --git a/mlprec/mld_z_prec_type.f03 b/mlprec/mld_z_prec_type.f90 similarity index 100% rename from mlprec/mld_z_prec_type.f03 rename to mlprec/mld_z_prec_type.f90