Fixed USE statements to minimize size of generated module files.

psblas3-type-indexed
Salvatore Filippone 18 years ago
parent 211cebb87c
commit fb0fc8cf90

@ -29,7 +29,6 @@
!!$
!!$
module psb_psblas_mod
use psb_comm_mod
interface psb_gedot
function psb_ddotv(x, y, desc_a,info)

@ -30,9 +30,6 @@
!!$
Module psb_krylov_mod
use psb_base_mod
use psb_prec_mod
interface psb_krylov
module procedure psb_dkrylov, psb_zkrylov
@ -183,6 +180,10 @@ contains
Subroutine psb_dkrylov(method,a,prec,b,x,eps,desc_a,info,&
&itmax,iter,err,itrace,irst,istop)
use psb_base_mod
use psb_prec_mod
character(len=*) :: method
Type(psb_dspmat_type), Intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a
@ -260,6 +261,8 @@ contains
Subroutine psb_zkrylov(method,a,prec,b,x,eps,desc_a,info,&
&itmax,iter,err,itrace,irst,istop)
use psb_base_mod
use psb_prec_mod
character(len=*) :: method
Type(psb_zspmat_type), Intent(in) :: a
Type(psb_desc_type), Intent(in) :: desc_a

@ -29,7 +29,7 @@
!!$
!!$
module psb_hbio_mod
use psb_base_mod
public hb_read, hb_write
interface hb_read
module procedure dhb_read, zhb_read

@ -29,7 +29,7 @@
!!$
!!$
module psb_mmio_mod
use psb_base_mod
public mm_mat_read, mm_mat_write
interface mm_mat_read
module procedure dmm_mat_read, zmm_mat_read

Loading…
Cancel
Save