mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-18 20:02:27 +00:00
22 lines
371 B
Fortran
22 lines
371 B
Fortran
program dhb2mm
|
|
use psb_sparse_mod
|
|
use mmio
|
|
use hbio
|
|
type(psb_dspmat_type) :: a
|
|
|
|
integer n, nnz,info,i,j,k
|
|
INTEGER :: iwflag,IOUT,NCOL,NELTVL,NNZERO,NRHS,NRHSIX,NROW,&
|
|
& iter
|
|
CHARACTER :: RHSDATATYPE,DATATYPE*3,KEY*8,OUTFILE*20,MTITLE*72
|
|
|
|
|
|
call hb_read(a,info,mtitle=mtitle)
|
|
|
|
call mm_mat_write(a,mtitle,info)
|
|
|
|
stop
|
|
|
|
|
|
end program dhb2mm
|
|
|