*** empty log message ***

This commit is contained in:
Salvatore Filippone
2006-03-02 10:48:06 +00:00
parent 717d8afd43
commit cd7649fd1b
4 changed files with 7 additions and 12 deletions
+1 -1
View File
@@ -29,7 +29,7 @@
!!$
!!$
program df_sample
use psb_all_mod
use psb_sparse_mod
use mat_dist
use read_mat
use partgraph
+2 -2
View File
@@ -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(:)
+3 -3
View File
@@ -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