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_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
 
   !