mld2p4-2:

mlprec/mld_cprecaply.f90
 mlprec/mld_dprecinit.F90
 mlprec/mld_zprecaply.f90
 tests/pdegen/Makefile
 tests/pdegen/ppde.f90
 tests/pdegen/runs/ppde.inp

Fix use statements.

mlprec/mld_cprecaply.f90

@@ -74,8 +74,7 @@
 subroutine mld_cprecaply(prec,x,y,desc_data,info,trans,work)
 
   use psb_sparse_mod
-  use mld_inner_mod
+  use mld_inner_mod, mld_protect_name => mld_cprecaply
-  use mld_prec_mod, mld_protect_name => mld_cprecaply
 
   implicit none
   
@@ -208,8 +207,7 @@ end subroutine mld_cprecaply
 subroutine mld_cprecaply1(prec,x,desc_data,info,trans)
 
   use psb_sparse_mod
-  use mld_inner_mod
+  use mld_inner_mod, mld_protect_name => mld_cprecaply1
-  use mld_prec_mod, mld_protect_name => mld_cprecaply1
 
   implicit none
 

mlprec/mld_dprecinit.F90

@@ -228,10 +228,13 @@ subroutine mld_dprecinit(p,ptype,info,nlev)
     end if
     ilev_ = 1
     allocate(p%precv(nlev_),stat=info) 
+!!$    write(0,*) 'Check 1: ',allocated(p%precv(1)%sm)
     if (info == psb_success_) call psb_realloc(mld_ifpsz_,p%precv(ilev_)%iprcparm,info)
     if (info == psb_success_) call psb_realloc(mld_rfpsz_,p%precv(ilev_)%rprcparm,info)
+!!$    write(0,*) 'Check 2: ',allocated(p%precv(1)%sm)
     if (info == psb_success_) call psb_realloc(mld_ifpsz_,p%precv(ilev_)%prec%iprcparm,info)
     if (info == psb_success_) call psb_realloc(mld_rfpsz_,p%precv(ilev_)%prec%rprcparm,info)
+!!$    write(0,*) 'Check 3: ',allocated(p%precv(1)%sm)
     if (info /= psb_success_) return
     p%precv(ilev_)%iprcparm(:)      = 0
     p%precv(ilev_)%rprcparm(:)      = dzero
@@ -256,8 +259,8 @@ subroutine mld_dprecinit(p,ptype,info,nlev)
     p%precv(ilev_)%iprcparm(mld_smoother_sweeps_)      = 1
     p%precv(ilev_)%iprcparm(mld_smoother_sweeps_pre_)  = 1
     p%precv(ilev_)%iprcparm(mld_smoother_sweeps_post_) = 1
+!!$    write(0,*) 'Check 4: ',allocated(p%precv(1)%sm)
     if (nlev_ == 1) return 
-
     do ilev_ = 2, nlev_ -1 
       if (info == psb_success_) call psb_realloc(mld_ifpsz_,p%precv(ilev_)%iprcparm,info)
       if (info == psb_success_) call psb_realloc(mld_rfpsz_,p%precv(ilev_)%rprcparm,info)
@@ -327,6 +330,7 @@ subroutine mld_dprecinit(p,ptype,info,nlev)
     p%precv(ilev_)%iprcparm(mld_aggr_filter_)      = mld_no_filter_mat_
     p%precv(ilev_)%rprcparm(mld_aggr_omega_val_)   = dzero
     p%precv(ilev_)%rprcparm(mld_aggr_thresh_)      = dzero
+!!$    write(0,*) 'Check 5: ',allocated(p%precv(1)%sm)
       
   case default
     write(0,*) name,': Warning: Unknown preconditioner type request "',ptype,'"'

mlprec/mld_zprecaply.f90

@@ -74,8 +74,7 @@
 subroutine mld_zprecaply(prec,x,y,desc_data,info,trans,work)
 
   use psb_sparse_mod
-  use mld_inner_mod
+  use mld_inner_mod, mld_protect_name => mld_zprecaply
-  use mld_prec_mod, mld_protect_name => mld_zprecaply
 
   implicit none
   
@@ -208,8 +207,7 @@ end subroutine mld_zprecaply
 subroutine mld_zprecaply1(prec,x,desc_data,info,trans)
 
   use psb_sparse_mod
-  use mld_inner_mod
+  use mld_inner_mod, mld_protect_name => mld_zprecaply1
-  use mld_prec_mod, mld_protect_name => mld_zprecaply1
 
   implicit none
 

tests/pdegen/Makefile

@@ -21,6 +21,10 @@ spde: spde.o   data_input.o
 	$(F90LINK) spde.o  data_input.o -o spde $(MLD_LIB) $(PSBLAS_LIB) $(LDLIBS)
 	/bin/mv spde $(EXEDIR)
 
+tp: tp.o   data_input.o
+	$(F90LINK) tp.o data_input.o  -o tp $(MLD_LIB) $(PSBLAS_LIB) $(LDLIBS)
+	/bin/mv tp $(EXEDIR)
+
 ppde.o spde.o: data_input.o 
 
 

tests/pdegen/ppde.f90

@@ -144,6 +144,7 @@ program ppde
   name='pde90'
   call psb_set_errverbosity(2)
 
+
   !
   !  get parameters
   !
@@ -165,6 +166,7 @@ program ppde
     goto 9999
   end if
   
+
   if (iam == psb_root_) write(*,'("Overall matrix creation time : ",es12.5)')t2
   if (iam == psb_root_) write(*,'(" ")')
   !

tests/pdegen/runs/ppde.inp

@@ -1,6 +1,6 @@
 BICGSTAB                    ! Iterative method: BiCGSTAB BiCG CGS RGMRES BiCGSTABL CG
 CSR                         ! Storage format CSR COO JAD 
-100                          ! IDIM; domain size is idim**3
+060                          ! IDIM; domain size is idim**3
 2                           ! ISTOPC
 0200                        ! ITMAX
 -1                          ! ITRACE