mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-21 05:12:13 +00:00
*** empty log message ***
This commit is contained in:
@@ -29,7 +29,7 @@
|
||||
!!$
|
||||
!!$
|
||||
program df_sample
|
||||
use psb_all_mod
|
||||
use psb_sparse_mod
|
||||
use mat_dist
|
||||
use read_mat
|
||||
use partgraph
|
||||
|
||||
@@ -94,7 +94,7 @@ contains
|
||||
! on entry: specifies processor holding a_glob. default: 0
|
||||
! on exit : unchanged.
|
||||
!
|
||||
use psb_all_mod
|
||||
use psb_sparse_mod
|
||||
implicit none
|
||||
|
||||
! parameters
|
||||
@@ -553,7 +553,7 @@ contains
|
||||
! on entry: specifies processor holding a_glob. default: 0
|
||||
! on exit : unchanged.
|
||||
!
|
||||
use psb_all_mod
|
||||
use psb_sparse_mod
|
||||
implicit none ! parameters
|
||||
type(psb_dspmat_type) :: a_glob
|
||||
real(kind(1.d0)), pointer :: b_glob(:)
|
||||
|
||||
@@ -29,7 +29,7 @@
|
||||
!!$
|
||||
!!$
|
||||
module mmio
|
||||
use psb_spmat_type
|
||||
use psb_sparse_mod
|
||||
public mm_mat_read, mm_mat_write
|
||||
interface mm_mat_read
|
||||
module procedure dmm_mat_read
|
||||
@@ -42,7 +42,7 @@ module mmio
|
||||
contains
|
||||
|
||||
subroutine dmm_mat_read(a, iret, iunit, filename)
|
||||
use psb_spmat_type
|
||||
use psb_sparse_mod
|
||||
implicit none
|
||||
type(psb_dspmat_type), intent(out) :: a
|
||||
integer, intent(out) :: iret
|
||||
@@ -222,7 +222,7 @@ contains
|
||||
|
||||
|
||||
subroutine dmm_mat_write(a,mtitle,iret,eiout,filename)
|
||||
use psb_spmat_type
|
||||
use psb_sparse_mod
|
||||
implicit none
|
||||
type(psb_dspmat_type), intent(in) :: a
|
||||
integer, intent(out) :: iret
|
||||
|
||||
Reference in New Issue
Block a user