mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-19 04:12:09 +00:00
Fixed USE statements to minimize size of generated module files.
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user