Fix matrix generation in examples

4 years ago · fafd03fd4c
parent 7a71aa8c43
commit fafd03fd4c
2 changed files with 2 additions and 2 deletions
--- a/examples/pdegen/amg_dpde_mod.f90
+++ b/examples/pdegen/amg_dpde_mod.f90
@ -116,7 +116,7 @@ contains
    ! Process grid
    integer(psb_ipk_) :: np, iam
    integer(psb_ipk_) :: icoeff
-    integer(psb_lpk_), allocatable     :: irow(:),icol(:),myidx(:)
+    integer(psb_ipk_), allocatable     :: irow(:),icol(:),myidx(:)
    real(psb_dpk_), allocatable :: val(:)
    ! deltah dimension of each grid cell
    ! deltat discretization time
--- a/examples/pdegen/amg_spde_mod.f90
+++ b/examples/pdegen/amg_spde_mod.f90
@ -116,7 +116,7 @@ contains
    ! Process grid
    integer(psb_ipk_) :: np, iam
    integer(psb_ipk_) :: icoeff
-    integer(psb_lpk_), allocatable     :: irow(:),icol(:),myidx(:)
+    integer(psb_ipk_), allocatable     :: irow(:),icol(:),myidx(:)
    real(psb_spk_), allocatable :: val(:)
    ! deltah dimension of each grid cell
    ! deltat discretization time