Lifted interface to symbmm into psb_serial_mod.

Updated printouts in test programs.
2026-10-20 12:52:14 +00:00 · 2018-04-06 16:19:52 +01:00
parent e37b43d45a
commit 95009f7ad5
18 changed files with 38 additions and 1054 deletions
@@ -68,6 +68,16 @@ module psb_serial_mod
    end subroutine psb_d_nspaxpby
  end interface psb_nspaxpby

+  interface symbmm
+    subroutine symbmm (n, m, l, ia, ja, diaga, &
+         & ib, jb, diagb, ic, jc, diagc, index)
+      import :: psb_ipk_
+      integer(psb_ipk_) :: n,m,l,  ia(*), ja(*), diaga, ib(*), jb(*), diagb,&
+           & diagc,  index(*)
+      integer(psb_ipk_), allocatable :: ic(:),jc(:)
+    end subroutine symbmm
+  end interface
+  

 contains