fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 12:52:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas2:

Browse Source 
base/modules/psb_serial_mod.f90
 base/modules/psb_spsb_mod.f90
 base/serial/coo/dcoonrmi.f
 base/serial/coo/zcoonrmi.f
 base/serial/csr/dcrnrmi.f
 base/serial/csr/zcrnrmi.f
 base/serial/f77/dcsnmi.f
 base/serial/f77/zcsnmi.f
 base/serial/jad/djadnr.f
 base/serial/jad/djdnrmi.f
 base/serial/psb_dcsnmi.f90
 base/serial/psb_zcsnmi.f90

Merged changes rev. 2919:2920 about function style declaration from psblas-2.2-maint.
This commit is contained in:
Salvatore Filippone
2008-03-07 09:20:02 +00:00
parent 5e4519f8b6
commit 13be647fee
12 changed files with 33 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_serial_mod.f90
+4 -2
View File
@@ -379,17 +379,19 @@ module psb_serial_mod
end interface
interface psb_csnmi
real(psb_dpk_) function psb_dcsnmi(a,info,trans)
function psb_dcsnmi(a,info,trans)
use psb_spmat_type
type(psb_dspmat_type), intent(in) :: a
integer, intent(out) :: info
character, optional :: trans
real(psb_dpk_) :: psb_dcsnmi
end function psb_dcsnmi
real(psb_dpk_) function psb_zcsnmi(a,info,trans)
function psb_zcsnmi(a,info,trans)
use psb_spmat_type
type(psb_zspmat_type), intent(in) :: a
integer, intent(out) :: info
character, optional :: trans
real(psb_dpk_) :: psb_zcsnmi
end function psb_zcsnmi
end interface
base/modules/psb_spsb_mod.f90
+5 -3
View File
@@ -32,10 +32,11 @@
module psb_spsb_mod
interface
real(psb_dpk_) function ddot(n,dx,incx,dy,incy)
function ddot(n,dx,incx,dy,incy)
use psb_const_mod
real(psb_dpk_) :: dx(*),dy(*),dtemp
integer :: i,incx,incy,ix,iy,m,mp1,n
real(psb_dpk_) :: ddot
end function ddot
end interface
@@ -62,14 +63,15 @@ module psb_spsb_mod
end interface
interface
real(psb_dpk_) function dcsnmi(trans,m,n,fida,descra,a,ia1,ia2,&
function dcsnmi(trans,m,n,fida,descra,a,ia1,ia2,&
& infoa,ierror)
use psb_const_mod
integer :: m,n, ierror
character :: trans
integer :: ia1(*),ia2(*),infoa(*)
character :: descra*11, fida*5
real(psb_dpk_) :: a(*)
real(psb_dpk_) :: a(*)
real(psb_dpk_) :: dcsnmi
end function dcsnmi
end interface
base/serial/coo/dcoonrmi.f
+2 -1
View File
@@ -30,10 +30,11 @@ C POSSIBILITY OF SUCH DAMAGE.
C
C
C ... Compute Infinity norm for sparse matrix in CSR Format ...
real(psb_dpk_) FUNCTION DCOONRMI(TRANS,M,N,DESCRA,A,IA1,IA2,
FUNCTION DCOONRMI(TRANS,M,N,DESCRA,A,IA1,IA2,
+ INFOA,IERROR)
use psb_const_mod
IMPLICIT NONE
real(psb_dpk_) dcoonrmi
C .. Scalar Arguments ..
INTEGER M,N, IERROR
CHARACTER TRANS
base/serial/coo/zcoonrmi.f
+2 -1
View File
@@ -29,10 +29,11 @@ C ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
C POSSIBILITY OF SUCH DAMAGE.
C
C ... Compute Infinity norm for sparse matrix in CSR Format ...
real(psb_dpk_) FUNCTION ZCOONRMI(TRANS,M,N,DESCRA,A,IA1,IA2,
FUNCTION ZCOONRMI(TRANS,M,N,DESCRA,A,IA1,IA2,
+ INFOA,IERROR)
use psb_const_mod
IMPLICIT NONE
real(psb_dpk_) zcoonrmi
C .. Scalar Arguments ..
INTEGER M,N, IERROR
CHARACTER TRANS
base/serial/csr/dcrnrmi.f
+2 -1
View File
@@ -30,10 +30,11 @@ C POSSIBILITY OF SUCH DAMAGE.
C
C
C ... Compute Infinity norm for sparse matrix in CSR Format ...
real(psb_dpk_) FUNCTION DCRNRMI(TRANS,M,N,DESCRA,A,IA1,IA2,
FUNCTION DCRNRMI(TRANS,M,N,DESCRA,A,IA1,IA2,
+ INFOA,IERROR)
use psb_const_mod
IMPLICIT NONE
real(psb_dpk_) dcrnrmi
C .. Scalar Arguments ..
INTEGER M,N, IERROR
CHARACTER TRANS
base/serial/csr/zcrnrmi.f
+2 -1
View File
@@ -28,10 +28,11 @@ C CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
C ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
C POSSIBILITY OF SUCH DAMAGE.
C
real(psb_dpk_) FUNCTION ZCRNRMI(TRANS,M,N,DESCRA,A,IA1,IA2,
FUNCTION ZCRNRMI(TRANS,M,N,DESCRA,A,IA1,IA2,
& INFOA,IERROR)
use psb_const_mod
IMPLICIT NONE
real(psb_dpk_) zcrnrmi
C .. Scalar Arguments ..
INTEGER M,N, IERROR
CHARACTER TRANS
base/serial/f77/dcsnmi.f
+2 -1
View File
@@ -94,10 +94,11 @@ C
C Notes
C =====
C
real(psb_dpk_) FUNCTION DCSNMI(TRANS,M,N,FIDA,DESCRA,A,IA1,IA2,
FUNCTION DCSNMI(TRANS,M,N,FIDA,DESCRA,A,IA1,IA2,
& INFOA,IERROR)
use psb_const_mod
IMPLICIT NONE
real(psb_dpk_) dcsnmi
C .. Scalar Arguments ..
INTEGER M,N, IERROR
CHARACTER TRANS
base/serial/f77/zcsnmi.f
+2 -1
View File
@@ -93,10 +93,11 @@ C
C Notes
C =====
C
real(psb_dpk_) FUNCTION ZCSNMI(TRANS,M,N,FIDA,DESCRA,A,IA1,IA2,
FUNCTION ZCSNMI(TRANS,M,N,FIDA,DESCRA,A,IA1,IA2,
& INFOA,IERROR)
use psb_const_mod
IMPLICIT NONE
real(psb_dpk_) zcsnmi
C .. Scalar Arguments ..
INTEGER M,N, IERROR
CHARACTER TRANS
base/serial/jad/djadnr.f
+2 -1
View File
@@ -30,11 +30,12 @@ C POSSIBILITY OF SUCH DAMAGE.
C
C
C ... Compute infinity norma for sparse matrix in CSR Format ...
real(psb_dpk_) FUNCTION DJADNR(TRANS,M,N,NG,A,KA,JA,IA,
FUNCTION DJADNR(TRANS,M,N,NG,A,KA,JA,IA,
+ INFOA,IERROR)
use psb_const_mod
use psb_spmat_type
IMPLICIT NONE
real(psb_dpk_) djadnr
C .. Scalar Arguments ..
INTEGER M,N, IERROR, NG
CHARACTER TRANS
base/serial/jad/djdnrmi.f
+2 -1
View File
@@ -30,10 +30,11 @@ C POSSIBILITY OF SUCH DAMAGE.
C
C
C ... Compute infinity norm for sparse matrix in CSR Format ...
real(psb_dpk_) FUNCTION DJDNRMI(TRANS,M,N,DESCRA,A,JA,IA,
FUNCTION DJDNRMI(TRANS,M,N,DESCRA,A,JA,IA,
+ INFOA,IERROR)
use psb_const_mod
IMPLICIT NONE
real(psb_dpk_) djdnrmi
C .. Scalar Arguments ..
INTEGER M,N, IERROR
CHARACTER TRANS
base/serial/psb_dcsnmi.f90
+4 -3
View File
@@ -33,7 +33,7 @@
! Subroutine:
! Arguments:
real(psb_dpk_) function psb_dcsnmi(a,info,trans)
function psb_dcsnmi(a,info,trans)
use psb_spmat_type
use psb_error_mod
@@ -42,11 +42,12 @@ real(psb_dpk_) function psb_dcsnmi(a,info,trans)
type(psb_dspmat_type), intent(in) :: a
integer, intent(out) :: info
character, optional :: trans
real(psb_dpk_) :: psb_dcsnmi
interface
real(psb_dpk_) function dcsnmi(trans,m,n,fida,descra,a,ia1,ia2,&
function dcsnmi(trans,m,n,fida,descra,a,ia1,ia2,&
& infoa,ierror)
use psb_const_mod
real(psb_dpk_) :: dcsnmi
integer :: m,n, ierror
character :: trans
integer :: ia1(*),ia2(*),infoa(*)
base/serial/psb_zcsnmi.f90
+4 -3
View File
@@ -33,7 +33,7 @@
! Subroutine:
! Arguments:
real(psb_dpk_) function psb_zcsnmi(a,info,trans)
function psb_zcsnmi(a,info,trans)
use psb_spmat_type
use psb_error_mod
@@ -42,11 +42,12 @@ real(psb_dpk_) function psb_zcsnmi(a,info,trans)
type(psb_zspmat_type), intent(in) :: a
integer, intent(out) :: info
character, optional :: trans
real(psb_dpk_) :: psb_zcsnmi
interface
real(psb_dpk_) function zcsnmi(trans,m,n,fida,descra,a,ia1,ia2,&
function zcsnmi(trans,m,n,fida,descra,a,ia1,ia2,&
& infoa,ierror)
use psb_const_mod
real(psb_dpk_) :: psb_zcsnmi
integer :: m,n, ierror
character :: trans
integer :: ia1(*),ia2(*),infoa(*)