psblas3:

test/fileread/df_sample.f90 test/util/dhb2mm.f90 test/util/dmm2hb.f90 Finished (hopefully) conversion of test programs to new serial data.
15 years ago · adb51fddc5
parent 047eb9933b
commit adb51fddc5
3 changed files with 3 additions and 3 deletions
--- a/test/fileread/df_sample.f90
+++ b/test/fileread/df_sample.f90
@ -182,7 +182,7 @@ program df_sample
      write(*,'("Partition type: graph")')
      write(*,'(" ")')
      !      write(0,'("Build type: graph")')
-      select type (aa=>a%a) 
+      select type (aa=>aux_a%a) 
      type is (psb_d_csr_sparse_mat)
        call build_mtpart(aa%get_nrows(),aa%get_fmt(),aa%ja,aa%irp,np)
      class default
--- a/test/util/dhb2mm.f90
+++ b/test/util/dhb2mm.f90
@ -37,7 +37,7 @@
 program dhb2mm
  use psb_base_mod
  use psb_util_mod
-  type(psb_dspmat_type) :: a
+  type(psb_d_sparse_mat) :: a
  
  integer    :: info
  character(len=72)  :: mtitle
--- a/test/util/dmm2hb.f90
+++ b/test/util/dmm2hb.f90
@ -37,7 +37,7 @@
 program dmm2hb
  use psb_base_mod
  use psb_util_mod
-  type(psb_dspmat_type) :: a
+  type(psb_d_sparse_mat) :: a
  
  integer info