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 module psb_psblas_mod
use psb_comm_mod
interface psb_gedot interface psb_gedot
function psb_ddotv(x, y, desc_a,info) function psb_ddotv(x, y, desc_a,info)

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

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

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

Loading…
Cancel
Save