fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
base/modules/psb_c_psblas_mod.f90
 base/modules/psb_d_psblas_mod.f90
 base/modules/psb_s_psblas_mod.f90
 base/modules/psb_z_psblas_mod.f90
 docs/html/index.html
 docs/html/node128.html
 docs/html/node47.html
 docs/html/node50.html
 docs/html/node51.html
 docs/html/node52.html
 docs/html/node53.html
 docs/html/node54.html
 docs/html/node55.html
 docs/html/node56.html
 docs/html/node57.html
 docs/html/node58.html
 docs/html/node59.html
 docs/html/userhtml.html
 docs/psblas-3.2.pdf
 docs/src/psbrout.tex
 util/psb_mmio_mod.f90

Multiple generic names for array_read/write and for norms of vectors/matrices.
psblas-3.2.0
Salvatore Filippone 11 years ago
parent cd4d33c42a
commit 49877b1c47
21 changed files with 2158 additions and 2031 deletions
Show Stats Download Patch File Download Diff File

26
base/modules/psb_c_psblas_mod.f90
Unescape Escape View File

@ -144,6 +144,13 @@ module psb_c_psblas_mod
end function psb_camax_vect end function psb_camax_vect
end interface end interface
interface psb_genrmi
procedure psb_camax, psb_camaxv, psb_camax_vect
end interface
interface psb_normi
procedure psb_camax, psb_camaxv, psb_camax_vect
end interface
interface psb_geamaxs interface psb_geamaxs
subroutine psb_camaxvs(res,x,desc_a,info) subroutine psb_camaxvs(res,x,desc_a,info)
import :: psb_desc_type, psb_spk_, psb_ipk_, & import :: psb_desc_type, psb_spk_, psb_ipk_, &
@ -211,6 +218,13 @@ module psb_c_psblas_mod
end subroutine psb_cmasum end subroutine psb_cmasum
end interface end interface
interface psb_genrm1
procedure psb_casum, psb_casumv, psb_casum_vect
end interface
interface psb_norm1
procedure psb_casum, psb_casumv, psb_casum_vect
end interface
interface psb_genrm2 interface psb_genrm2
function psb_cnrm2(x, desc_a, info, jx) function psb_cnrm2(x, desc_a, info, jx)
@ -240,6 +254,10 @@ module psb_c_psblas_mod
end function psb_cnrm2_vect end function psb_cnrm2_vect
end interface end interface
interface psb_norm2
procedure psb_cnrm2, psb_cnrm2v, psb_cnrm2_vect
end interface
interface psb_genrm2s interface psb_genrm2s
subroutine psb_cnrm2vs(res,x,desc_a,info) subroutine psb_cnrm2vs(res,x,desc_a,info)
import :: psb_desc_type, psb_spk_, psb_ipk_, & import :: psb_desc_type, psb_spk_, psb_ipk_, &
@ -263,6 +281,10 @@ module psb_c_psblas_mod
end function psb_cnrmi end function psb_cnrmi
end interface end interface
interface psb_normi
procedure psb_cnrmi
end interface
interface psb_spnrm1 interface psb_spnrm1
function psb_cspnrm1(a, desc_a,info) function psb_cspnrm1(a, desc_a,info)
import :: psb_desc_type, psb_spk_, psb_ipk_, & import :: psb_desc_type, psb_spk_, psb_ipk_, &
@ -274,6 +296,10 @@ module psb_c_psblas_mod
end function psb_cspnrm1 end function psb_cspnrm1
end interface end interface
interface psb_norm1
procedure psb_cspnrm1
end interface
interface psb_spmm interface psb_spmm
subroutine psb_cspmm(alpha, a, x, beta, y, desc_a, info,& subroutine psb_cspmm(alpha, a, x, beta, y, desc_a, info,&
&trans, k, jx, jy,work,doswap) &trans, k, jx, jy,work,doswap)

26
base/modules/psb_d_psblas_mod.f90
Unescape Escape View File

@ -144,6 +144,13 @@ module psb_d_psblas_mod
end function psb_damax_vect end function psb_damax_vect
end interface end interface
interface psb_genrmi
procedure psb_damax, psb_damaxv, psb_damax_vect
end interface
interface psb_normi
procedure psb_damax, psb_damaxv, psb_damax_vect
end interface
interface psb_geamaxs interface psb_geamaxs
subroutine psb_damaxvs(res,x,desc_a,info) subroutine psb_damaxvs(res,x,desc_a,info)
import :: psb_desc_type, psb_dpk_, psb_ipk_, & import :: psb_desc_type, psb_dpk_, psb_ipk_, &
@ -211,6 +218,13 @@ module psb_d_psblas_mod
end subroutine psb_dmasum end subroutine psb_dmasum
end interface end interface
interface psb_genrm1
procedure psb_dasum, psb_dasumv, psb_dasum_vect
end interface
interface psb_norm1
procedure psb_dasum, psb_dasumv, psb_dasum_vect
end interface
interface psb_genrm2 interface psb_genrm2
function psb_dnrm2(x, desc_a, info, jx) function psb_dnrm2(x, desc_a, info, jx)
@ -240,6 +254,10 @@ module psb_d_psblas_mod
end function psb_dnrm2_vect end function psb_dnrm2_vect
end interface end interface
interface psb_norm2
procedure psb_dnrm2, psb_dnrm2v, psb_dnrm2_vect
end interface
interface psb_genrm2s interface psb_genrm2s
subroutine psb_dnrm2vs(res,x,desc_a,info) subroutine psb_dnrm2vs(res,x,desc_a,info)
import :: psb_desc_type, psb_dpk_, psb_ipk_, & import :: psb_desc_type, psb_dpk_, psb_ipk_, &
@ -263,6 +281,10 @@ module psb_d_psblas_mod
end function psb_dnrmi end function psb_dnrmi
end interface end interface
interface psb_normi
procedure psb_dnrmi
end interface
interface psb_spnrm1 interface psb_spnrm1
function psb_dspnrm1(a, desc_a,info) function psb_dspnrm1(a, desc_a,info)
import :: psb_desc_type, psb_dpk_, psb_ipk_, & import :: psb_desc_type, psb_dpk_, psb_ipk_, &
@ -274,6 +296,10 @@ module psb_d_psblas_mod
end function psb_dspnrm1 end function psb_dspnrm1
end interface end interface
interface psb_norm1
procedure psb_dspnrm1
end interface
interface psb_spmm interface psb_spmm
subroutine psb_dspmm(alpha, a, x, beta, y, desc_a, info,& subroutine psb_dspmm(alpha, a, x, beta, y, desc_a, info,&
&trans, k, jx, jy,work,doswap) &trans, k, jx, jy,work,doswap)

26
base/modules/psb_s_psblas_mod.f90
Unescape Escape View File

@ -144,6 +144,13 @@ module psb_s_psblas_mod
end function psb_samax_vect end function psb_samax_vect
end interface end interface
interface psb_genrmi
procedure psb_samax, psb_samaxv, psb_samax_vect
end interface
interface psb_normi
procedure psb_samax, psb_samaxv, psb_samax_vect
end interface
interface psb_geamaxs interface psb_geamaxs
subroutine psb_samaxvs(res,x,desc_a,info) subroutine psb_samaxvs(res,x,desc_a,info)
import :: psb_desc_type, psb_spk_, psb_ipk_, & import :: psb_desc_type, psb_spk_, psb_ipk_, &
@ -211,6 +218,13 @@ module psb_s_psblas_mod
end subroutine psb_smasum end subroutine psb_smasum
end interface end interface
interface psb_genrm1
procedure psb_sasum, psb_sasumv, psb_sasum_vect
end interface
interface psb_norm1
procedure psb_sasum, psb_sasumv, psb_sasum_vect
end interface
interface psb_genrm2 interface psb_genrm2
function psb_snrm2(x, desc_a, info, jx) function psb_snrm2(x, desc_a, info, jx)
@ -240,6 +254,10 @@ module psb_s_psblas_mod
end function psb_snrm2_vect end function psb_snrm2_vect
end interface end interface
interface psb_norm2
procedure psb_snrm2, psb_snrm2v, psb_snrm2_vect
end interface
interface psb_genrm2s interface psb_genrm2s
subroutine psb_snrm2vs(res,x,desc_a,info) subroutine psb_snrm2vs(res,x,desc_a,info)
import :: psb_desc_type, psb_spk_, psb_ipk_, & import :: psb_desc_type, psb_spk_, psb_ipk_, &
@ -263,6 +281,10 @@ module psb_s_psblas_mod
end function psb_snrmi end function psb_snrmi
end interface end interface
interface psb_normi
procedure psb_snrmi
end interface
interface psb_spnrm1 interface psb_spnrm1
function psb_sspnrm1(a, desc_a,info) function psb_sspnrm1(a, desc_a,info)
import :: psb_desc_type, psb_spk_, psb_ipk_, & import :: psb_desc_type, psb_spk_, psb_ipk_, &
@ -274,6 +296,10 @@ module psb_s_psblas_mod
end function psb_sspnrm1 end function psb_sspnrm1
end interface end interface
interface psb_norm1
procedure psb_sspnrm1
end interface
interface psb_spmm interface psb_spmm
subroutine psb_sspmm(alpha, a, x, beta, y, desc_a, info,& subroutine psb_sspmm(alpha, a, x, beta, y, desc_a, info,&
&trans, k, jx, jy,work,doswap) &trans, k, jx, jy,work,doswap)

26
base/modules/psb_z_psblas_mod.f90
Unescape Escape View File

@ -144,6 +144,13 @@ module psb_z_psblas_mod
end function psb_zamax_vect end function psb_zamax_vect
end interface end interface
interface psb_genrmi
procedure psb_zamax, psb_zamaxv, psb_zamax_vect
end interface
interface psb_normi
procedure psb_zamax, psb_zamaxv, psb_zamax_vect
end interface
interface psb_geamaxs interface psb_geamaxs
subroutine psb_zamaxvs(res,x,desc_a,info) subroutine psb_zamaxvs(res,x,desc_a,info)
import :: psb_desc_type, psb_dpk_, psb_ipk_, & import :: psb_desc_type, psb_dpk_, psb_ipk_, &
@ -211,6 +218,13 @@ module psb_z_psblas_mod
end subroutine psb_zmasum end subroutine psb_zmasum
end interface end interface
interface psb_genrm1
procedure psb_zasum, psb_zasumv, psb_zasum_vect
end interface
interface psb_norm1
procedure psb_zasum, psb_zasumv, psb_zasum_vect
end interface
interface psb_genrm2 interface psb_genrm2
function psb_znrm2(x, desc_a, info, jx) function psb_znrm2(x, desc_a, info, jx)
@ -240,6 +254,10 @@ module psb_z_psblas_mod
end function psb_znrm2_vect end function psb_znrm2_vect
end interface end interface
interface psb_norm2
procedure psb_znrm2, psb_znrm2v, psb_znrm2_vect
end interface
interface psb_genrm2s interface psb_genrm2s
subroutine psb_znrm2vs(res,x,desc_a,info) subroutine psb_znrm2vs(res,x,desc_a,info)
import :: psb_desc_type, psb_dpk_, psb_ipk_, & import :: psb_desc_type, psb_dpk_, psb_ipk_, &
@ -263,6 +281,10 @@ module psb_z_psblas_mod
end function psb_znrmi end function psb_znrmi
end interface end interface
interface psb_normi
procedure psb_znrmi
end interface
interface psb_spnrm1 interface psb_spnrm1
function psb_zspnrm1(a, desc_a,info) function psb_zspnrm1(a, desc_a,info)
import :: psb_desc_type, psb_dpk_, psb_ipk_, & import :: psb_desc_type, psb_dpk_, psb_ipk_, &
@ -274,6 +296,10 @@ module psb_z_psblas_mod
end function psb_zspnrm1 end function psb_zspnrm1
end interface end interface
interface psb_norm1
procedure psb_zspnrm1
end interface
interface psb_spmm interface psb_spmm
subroutine psb_zspmm(alpha, a, x, beta, y, desc_a, info,& subroutine psb_zspmm(alpha, a, x, beta, y, desc_a, info,&
&trans, k, jx, jy,work,doswap) &trans, k, jx, jy,work,doswap)

10
docs/html/index.html
Unescape Escape View File

@ -192,21 +192,21 @@ of a dense vector</A>
<LI><A NAME="tex2html84" <LI><A NAME="tex2html84"
HREF="node50.html">psb_gedots -- Generalized Dot Product</A> HREF="node50.html">psb_gedots -- Generalized Dot Product</A>
<LI><A NAME="tex2html85" <LI><A NAME="tex2html85"
HREF="node51.html">psb_geamax -- Infinity-Norm of Vector</A> HREF="node51.html">psb_normi -- Infinity-Norm of Vector</A>
<LI><A NAME="tex2html86" <LI><A NAME="tex2html86"
HREF="node52.html">psb_geamaxs -- Generalized Infinity Norm</A> HREF="node52.html">psb_geamaxs -- Generalized Infinity Norm</A>
<LI><A NAME="tex2html87" <LI><A NAME="tex2html87"
HREF="node53.html">psb_geasum -- 1-Norm of Vector</A> HREF="node53.html">psb_norm1 -- 1-Norm of Vector</A>
<LI><A NAME="tex2html88" <LI><A NAME="tex2html88"
HREF="node54.html">psb_geasums -- Generalized 1-Norm of Vector</A> HREF="node54.html">psb_geasums -- Generalized 1-Norm of Vector</A>
<LI><A NAME="tex2html89" <LI><A NAME="tex2html89"
HREF="node55.html">psb_genrm2 -- 2-Norm of Vector</A> HREF="node55.html">psb_norm2 -- 2-Norm of Vector</A>
<LI><A NAME="tex2html90" <LI><A NAME="tex2html90"
HREF="node56.html">psb_genrm2s -- Generalized 2-Norm of Vector</A> HREF="node56.html">psb_genrm2s -- Generalized 2-Norm of Vector</A>
<LI><A NAME="tex2html91" <LI><A NAME="tex2html91"
HREF="node57.html">psb_spnrm1 -- 1-Norm of Sparse Matrix</A> HREF="node57.html">psb_norm1 -- 1-Norm of Sparse Matrix</A>
<LI><A NAME="tex2html92" <LI><A NAME="tex2html92"
HREF="node58.html">psb_spnrmi -- Infinity Norm of Sparse Matrix</A> HREF="node58.html">psb_normi -- Infinity Norm of Sparse Matrix</A>
<LI><A NAME="tex2html93" <LI><A NAME="tex2html93"
HREF="node59.html">psb_spmm -- Sparse Matrix by Dense Matrix HREF="node59.html">psb_spmm -- Sparse Matrix by Dense Matrix
Product</A> Product</A>

2
docs/html/node128.html
Unescape Escape View File

@ -63,7 +63,7 @@ Mathematics Department, Macquarie University, Sydney.
The command line arguments were: <BR> The command line arguments were: <BR>
<STRONG>latex2html</STRONG> <TT>-local_icons -noaddress -dir ../../html userhtml.tex</TT> <STRONG>latex2html</STRONG> <TT>-local_icons -noaddress -dir ../../html userhtml.tex</TT>
<P> <P>
The translation was initiated by Salvatore Filippone on 2014-03-26 The translation was initiated by Salvatore Filippone on 2014-03-27
<BR><HR> <BR><HR>
</BODY> </BODY>

10
docs/html/node47.html
Unescape Escape View File

@ -68,21 +68,21 @@ Computational routines</A>
<LI><A NAME="tex2html811" <LI><A NAME="tex2html811"
HREF="node50.html">psb_gedots -- Generalized Dot Product</A> HREF="node50.html">psb_gedots -- Generalized Dot Product</A>
<LI><A NAME="tex2html812" <LI><A NAME="tex2html812"
HREF="node51.html">psb_geamax -- Infinity-Norm of Vector</A> HREF="node51.html">psb_normi -- Infinity-Norm of Vector</A>
<LI><A NAME="tex2html813" <LI><A NAME="tex2html813"
HREF="node52.html">psb_geamaxs -- Generalized Infinity Norm</A> HREF="node52.html">psb_geamaxs -- Generalized Infinity Norm</A>
<LI><A NAME="tex2html814" <LI><A NAME="tex2html814"
HREF="node53.html">psb_geasum -- 1-Norm of Vector</A> HREF="node53.html">psb_norm1 -- 1-Norm of Vector</A>
<LI><A NAME="tex2html815" <LI><A NAME="tex2html815"
HREF="node54.html">psb_geasums -- Generalized 1-Norm of Vector</A> HREF="node54.html">psb_geasums -- Generalized 1-Norm of Vector</A>
<LI><A NAME="tex2html816" <LI><A NAME="tex2html816"
HREF="node55.html">psb_genrm2 -- 2-Norm of Vector</A> HREF="node55.html">psb_norm2 -- 2-Norm of Vector</A>
<LI><A NAME="tex2html817" <LI><A NAME="tex2html817"
HREF="node56.html">psb_genrm2s -- Generalized 2-Norm of Vector</A> HREF="node56.html">psb_genrm2s -- Generalized 2-Norm of Vector</A>
<LI><A NAME="tex2html818" <LI><A NAME="tex2html818"
HREF="node57.html">psb_spnrm1 -- 1-Norm of Sparse Matrix</A> HREF="node57.html">psb_norm1 -- 1-Norm of Sparse Matrix</A>
<LI><A NAME="tex2html819" <LI><A NAME="tex2html819"
HREF="node58.html">psb_spnrmi -- Infinity Norm of Sparse Matrix</A> HREF="node58.html">psb_normi -- Infinity Norm of Sparse Matrix</A>
<LI><A NAME="tex2html820" <LI><A NAME="tex2html820"
HREF="node59.html">psb_spmm -- Sparse Matrix by Dense Matrix HREF="node59.html">psb_spmm -- Sparse Matrix by Dense Matrix
Product</A> Product</A>

4
docs/html/node50.html
Unescape Escape View File

@ -40,7 +40,7 @@ original version by: Nikos Drakos, CBLU, University of Leeds
<IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents" SRC="contents.png"></A> <IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents" SRC="contents.png"></A>
<BR> <BR>
<B> Next:</B> <A NAME="tex2html857" <B> Next:</B> <A NAME="tex2html857"
HREF="node51.html">psb_geamax Infinity-Norm</A> HREF="node51.html">psb_normi Infinity-Norm</A>
<B> Up:</B> <A NAME="tex2html853" <B> Up:</B> <A NAME="tex2html853"
HREF="node47.html">Computational routines</A> HREF="node47.html">Computational routines</A>
<B> Previous:</B> <A NAME="tex2html847" <B> Previous:</B> <A NAME="tex2html847"
@ -253,7 +253,7 @@ An integer value; 0 means no error has been detected.
<IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents" SRC="contents.png"></A> <IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents" SRC="contents.png"></A>
<BR> <BR>
<B> Next:</B> <A NAME="tex2html857" <B> Next:</B> <A NAME="tex2html857"
HREF="node51.html">psb_geamax Infinity-Norm</A> HREF="node51.html">psb_normi Infinity-Norm</A>
<B> Up:</B> <A NAME="tex2html853" <B> Up:</B> <A NAME="tex2html853"
HREF="node47.html">Computational routines</A> HREF="node47.html">Computational routines</A>
<B> Previous:</B> <A NAME="tex2html847" <B> Previous:</B> <A NAME="tex2html847"

7
docs/html/node51.html
Unescape Escape View File

@ -7,8 +7,8 @@ original version by: Nikos Drakos, CBLU, University of Leeds
Jens Lippmann, Marek Rouchal, Martin Wilck and others --> Jens Lippmann, Marek Rouchal, Martin Wilck and others -->
<HTML> <HTML>
<HEAD> <HEAD>
<TITLE>psb_geamax -- Infinity-Norm of Vector</TITLE> <TITLE>psb_normi -- Infinity-Norm of Vector</TITLE>
<META NAME="description" CONTENT="psb_geamax -- Infinity-Norm of Vector"> <META NAME="description" CONTENT="psb_normi -- Infinity-Norm of Vector">
<META NAME="keywords" CONTENT="userhtml"> <META NAME="keywords" CONTENT="userhtml">
<META NAME="resource-type" CONTENT="document"> <META NAME="resource-type" CONTENT="document">
<META NAME="distribution" CONTENT="global"> <META NAME="distribution" CONTENT="global">
@ -52,7 +52,7 @@ original version by: Nikos Drakos, CBLU, University of Leeds
<!--End of Navigation Panel--> <!--End of Navigation Panel-->
<H2><A NAME="SECTION00054000000000000000"> <H2><A NAME="SECTION00054000000000000000">
psb_geamax -- Infinity-Norm of Vector</A> psb_normi -- Infinity-Norm of Vector</A>
</H2> </H2>
<P> <P>
@ -105,6 +105,7 @@ amax \leftarrow \max_i {(|re(x_i)| + |im(x_i)|)}
<P> <P>
<PRE> <PRE>
psb_geamax(x, desc_a, info) psb_geamax(x, desc_a, info)
psb_normi(x, desc_a, info)
</PRE> </PRE>
<P> <P>

8
docs/html/node52.html
Unescape Escape View File

@ -40,11 +40,11 @@ original version by: Nikos Drakos, CBLU, University of Leeds
<IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents" SRC="contents.png"></A> <IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents" SRC="contents.png"></A>
<BR> <BR>
<B> Next:</B> <A NAME="tex2html881" <B> Next:</B> <A NAME="tex2html881"
HREF="node53.html">psb_geasum 1-Norm</A> HREF="node53.html">psb_norm1 1-Norm</A>
<B> Up:</B> <A NAME="tex2html877" <B> Up:</B> <A NAME="tex2html877"
HREF="node47.html">Computational routines</A> HREF="node47.html">Computational routines</A>
<B> Previous:</B> <A NAME="tex2html871" <B> Previous:</B> <A NAME="tex2html871"
HREF="node51.html">psb_geamax Infinity-Norm</A> HREF="node51.html">psb_normi Infinity-Norm</A>
&nbsp; <B> <A NAME="tex2html879" &nbsp; <B> <A NAME="tex2html879"
HREF="node1.html">Contents</A></B> HREF="node1.html">Contents</A></B>
<BR> <BR>
@ -205,11 +205,11 @@ An integer value; 0 means no error has been detected.
<IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents" SRC="contents.png"></A> <IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents" SRC="contents.png"></A>
<BR> <BR>
<B> Next:</B> <A NAME="tex2html881" <B> Next:</B> <A NAME="tex2html881"
HREF="node53.html">psb_geasum 1-Norm</A> HREF="node53.html">psb_norm1 1-Norm</A>
<B> Up:</B> <A NAME="tex2html877" <B> Up:</B> <A NAME="tex2html877"
HREF="node47.html">Computational routines</A> HREF="node47.html">Computational routines</A>
<B> Previous:</B> <A NAME="tex2html871" <B> Previous:</B> <A NAME="tex2html871"
HREF="node51.html">psb_geamax Infinity-Norm</A> HREF="node51.html">psb_normi Infinity-Norm</A>
&nbsp; <B> <A NAME="tex2html879" &nbsp; <B> <A NAME="tex2html879"
HREF="node1.html">Contents</A></B> HREF="node1.html">Contents</A></B>
<!--End of Navigation Panel--> <!--End of Navigation Panel-->

7
docs/html/node53.html
Unescape Escape View File

@ -7,8 +7,8 @@ original version by: Nikos Drakos, CBLU, University of Leeds
Jens Lippmann, Marek Rouchal, Martin Wilck and others --> Jens Lippmann, Marek Rouchal, Martin Wilck and others -->
<HTML> <HTML>
<HEAD> <HEAD>
<TITLE>psb_geasum -- 1-Norm of Vector</TITLE> <TITLE>psb_norm1 -- 1-Norm of Vector</TITLE>
<META NAME="description" CONTENT="psb_geasum -- 1-Norm of Vector"> <META NAME="description" CONTENT="psb_norm1 -- 1-Norm of Vector">
<META NAME="keywords" CONTENT="userhtml"> <META NAME="keywords" CONTENT="userhtml">
<META NAME="resource-type" CONTENT="document"> <META NAME="resource-type" CONTENT="document">
<META NAME="distribution" CONTENT="global"> <META NAME="distribution" CONTENT="global">
@ -52,7 +52,7 @@ original version by: Nikos Drakos, CBLU, University of Leeds
<!--End of Navigation Panel--> <!--End of Navigation Panel-->
<H2><A NAME="SECTION00056000000000000000"> <H2><A NAME="SECTION00056000000000000000">
psb_geasum -- 1-Norm of Vector</A> psb_norm1 -- 1-Norm of Vector</A>
</H2> </H2>
<P> <P>
@ -104,6 +104,7 @@ asum \leftarrow \|re(x)\|_1 + \|im(x)\|_1
<P> <P>
<PRE> <PRE>
psb_geasum(x, desc_a, info) psb_geasum(x, desc_a, info)
psb_norm1(x, desc_a, info)
</PRE> </PRE>
<P> <P>

8
docs/html/node54.html
Unescape Escape View File

@ -40,11 +40,11 @@ original version by: Nikos Drakos, CBLU, University of Leeds
<IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents" SRC="contents.png"></A> <IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents" SRC="contents.png"></A>
<BR> <BR>
<B> Next:</B> <A NAME="tex2html905" <B> Next:</B> <A NAME="tex2html905"
HREF="node55.html">psb_genrm2 2-Norm</A> HREF="node55.html">psb_norm2 2-Norm</A>
<B> Up:</B> <A NAME="tex2html901" <B> Up:</B> <A NAME="tex2html901"
HREF="node47.html">Computational routines</A> HREF="node47.html">Computational routines</A>
<B> Previous:</B> <A NAME="tex2html895" <B> Previous:</B> <A NAME="tex2html895"
HREF="node53.html">psb_geasum 1-Norm</A> HREF="node53.html">psb_norm1 1-Norm</A>
&nbsp; <B> <A NAME="tex2html903" &nbsp; <B> <A NAME="tex2html903"
HREF="node1.html">Contents</A></B> HREF="node1.html">Contents</A></B>
<BR> <BR>
@ -253,11 +253,11 @@ An integer value; 0 means no error has been detected.
<IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents" SRC="contents.png"></A> <IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents" SRC="contents.png"></A>
<BR> <BR>
<B> Next:</B> <A NAME="tex2html905" <B> Next:</B> <A NAME="tex2html905"
HREF="node55.html">psb_genrm2 2-Norm</A> HREF="node55.html">psb_norm2 2-Norm</A>
<B> Up:</B> <A NAME="tex2html901" <B> Up:</B> <A NAME="tex2html901"
HREF="node47.html">Computational routines</A> HREF="node47.html">Computational routines</A>
<B> Previous:</B> <A NAME="tex2html895" <B> Previous:</B> <A NAME="tex2html895"
HREF="node53.html">psb_geasum 1-Norm</A> HREF="node53.html">psb_norm1 1-Norm</A>
&nbsp; <B> <A NAME="tex2html903" &nbsp; <B> <A NAME="tex2html903"
HREF="node1.html">Contents</A></B> HREF="node1.html">Contents</A></B>
<!--End of Navigation Panel--> <!--End of Navigation Panel-->

7
docs/html/node55.html
Unescape Escape View File

@ -7,8 +7,8 @@ original version by: Nikos Drakos, CBLU, University of Leeds
Jens Lippmann, Marek Rouchal, Martin Wilck and others --> Jens Lippmann, Marek Rouchal, Martin Wilck and others -->
<HTML> <HTML>
<HEAD> <HEAD>
<TITLE>psb_genrm2 -- 2-Norm of Vector</TITLE> <TITLE>psb_norm2 -- 2-Norm of Vector</TITLE>
<META NAME="description" CONTENT="psb_genrm2 -- 2-Norm of Vector"> <META NAME="description" CONTENT="psb_norm2 -- 2-Norm of Vector">
<META NAME="keywords" CONTENT="userhtml"> <META NAME="keywords" CONTENT="userhtml">
<META NAME="resource-type" CONTENT="document"> <META NAME="resource-type" CONTENT="document">
<META NAME="distribution" CONTENT="global"> <META NAME="distribution" CONTENT="global">
@ -52,7 +52,7 @@ original version by: Nikos Drakos, CBLU, University of Leeds
<!--End of Navigation Panel--> <!--End of Navigation Panel-->
<H2><A NAME="SECTION00058000000000000000"> <H2><A NAME="SECTION00058000000000000000">
psb_genrm2 -- 2-Norm of Vector</A> psb_norm2 -- 2-Norm of Vector</A>
</H2> </H2>
<P> <P>
@ -146,6 +146,7 @@ Data types</CAPTION>
<P> <P>
<PRE> <PRE>
psb_genrm2(x, desc_a, info) psb_genrm2(x, desc_a, info)
psb_norm2(x, desc_a, info)
</PRE> </PRE>
<P> <P>

8
docs/html/node56.html
Unescape Escape View File

@ -40,11 +40,11 @@ original version by: Nikos Drakos, CBLU, University of Leeds
<IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents" SRC="contents.png"></A> <IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents" SRC="contents.png"></A>
<BR> <BR>
<B> Next:</B> <A NAME="tex2html929" <B> Next:</B> <A NAME="tex2html929"
HREF="node57.html">psb_spnrm1 1-Norm</A> HREF="node57.html">psb_norm1 1-Norm</A>
<B> Up:</B> <A NAME="tex2html925" <B> Up:</B> <A NAME="tex2html925"
HREF="node47.html">Computational routines</A> HREF="node47.html">Computational routines</A>
<B> Previous:</B> <A NAME="tex2html919" <B> Previous:</B> <A NAME="tex2html919"
HREF="node55.html">psb_genrm2 2-Norm</A> HREF="node55.html">psb_norm2 2-Norm</A>
&nbsp; <B> <A NAME="tex2html927" &nbsp; <B> <A NAME="tex2html927"
HREF="node1.html">Contents</A></B> HREF="node1.html">Contents</A></B>
<BR> <BR>
@ -208,11 +208,11 @@ An integer value; 0 means no error has been detected.
<IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents" SRC="contents.png"></A> <IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents" SRC="contents.png"></A>
<BR> <BR>
<B> Next:</B> <A NAME="tex2html929" <B> Next:</B> <A NAME="tex2html929"
HREF="node57.html">psb_spnrm1 1-Norm</A> HREF="node57.html">psb_norm1 1-Norm</A>
<B> Up:</B> <A NAME="tex2html925" <B> Up:</B> <A NAME="tex2html925"
HREF="node47.html">Computational routines</A> HREF="node47.html">Computational routines</A>
<B> Previous:</B> <A NAME="tex2html919" <B> Previous:</B> <A NAME="tex2html919"
HREF="node55.html">psb_genrm2 2-Norm</A> HREF="node55.html">psb_norm2 2-Norm</A>
&nbsp; <B> <A NAME="tex2html927" &nbsp; <B> <A NAME="tex2html927"
HREF="node1.html">Contents</A></B> HREF="node1.html">Contents</A></B>
<!--End of Navigation Panel--> <!--End of Navigation Panel-->

11
docs/html/node57.html
Unescape Escape View File

@ -7,8 +7,8 @@ original version by: Nikos Drakos, CBLU, University of Leeds
Jens Lippmann, Marek Rouchal, Martin Wilck and others --> Jens Lippmann, Marek Rouchal, Martin Wilck and others -->
<HTML> <HTML>
<HEAD> <HEAD>
<TITLE>psb_spnrm1 -- 1-Norm of Sparse Matrix</TITLE> <TITLE>psb_norm1 -- 1-Norm of Sparse Matrix</TITLE>
<META NAME="description" CONTENT="psb_spnrm1 -- 1-Norm of Sparse Matrix"> <META NAME="description" CONTENT="psb_norm1 -- 1-Norm of Sparse Matrix">
<META NAME="keywords" CONTENT="userhtml"> <META NAME="keywords" CONTENT="userhtml">
<META NAME="resource-type" CONTENT="document"> <META NAME="resource-type" CONTENT="document">
<META NAME="distribution" CONTENT="global"> <META NAME="distribution" CONTENT="global">
@ -40,7 +40,7 @@ original version by: Nikos Drakos, CBLU, University of Leeds
<IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents" SRC="contents.png"></A> <IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents" SRC="contents.png"></A>
<BR> <BR>
<B> Next:</B> <A NAME="tex2html941" <B> Next:</B> <A NAME="tex2html941"
HREF="node58.html">psb_spnrmi Infinity</A> HREF="node58.html">psb_normi Infinity</A>
<B> Up:</B> <A NAME="tex2html937" <B> Up:</B> <A NAME="tex2html937"
HREF="node47.html">Computational routines</A> HREF="node47.html">Computational routines</A>
<B> Previous:</B> <A NAME="tex2html931" <B> Previous:</B> <A NAME="tex2html931"
@ -52,7 +52,7 @@ original version by: Nikos Drakos, CBLU, University of Leeds
<!--End of Navigation Panel--> <!--End of Navigation Panel-->
<H2><A NAME="SECTION000510000000000000000"> <H2><A NAME="SECTION000510000000000000000">
psb_spnrm1 -- 1-Norm of Sparse Matrix</A> psb_norm1 -- 1-Norm of Sparse Matrix</A>
</H2> </H2>
<P> <P>
@ -127,6 +127,7 @@ Data types</CAPTION>
<P> <P>
<PRE> <PRE>
psb_spnrm1(A, desc_a, info) psb_spnrm1(A, desc_a, info)
psb_norm1(A, desc_a, info)
</PRE> </PRE>
<P> <P>
@ -206,7 +207,7 @@ An integer value; 0 means no error has been detected.
<IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents" SRC="contents.png"></A> <IMG WIDTH="65" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="contents" SRC="contents.png"></A>
<BR> <BR>
<B> Next:</B> <A NAME="tex2html941" <B> Next:</B> <A NAME="tex2html941"
HREF="node58.html">psb_spnrmi Infinity</A> HREF="node58.html">psb_normi Infinity</A>
<B> Up:</B> <A NAME="tex2html937" <B> Up:</B> <A NAME="tex2html937"
HREF="node47.html">Computational routines</A> HREF="node47.html">Computational routines</A>
<B> Previous:</B> <A NAME="tex2html931" <B> Previous:</B> <A NAME="tex2html931"

11
docs/html/node58.html
Unescape Escape View File

@ -7,8 +7,8 @@ original version by: Nikos Drakos, CBLU, University of Leeds
Jens Lippmann, Marek Rouchal, Martin Wilck and others --> Jens Lippmann, Marek Rouchal, Martin Wilck and others -->
<HTML> <HTML>
<HEAD> <HEAD>
<TITLE>psb_spnrmi -- Infinity Norm of Sparse Matrix</TITLE> <TITLE>psb_normi -- Infinity Norm of Sparse Matrix</TITLE>
<META NAME="description" CONTENT="psb_spnrmi -- Infinity Norm of Sparse Matrix"> <META NAME="description" CONTENT="psb_normi -- Infinity Norm of Sparse Matrix">
<META NAME="keywords" CONTENT="userhtml"> <META NAME="keywords" CONTENT="userhtml">
<META NAME="resource-type" CONTENT="document"> <META NAME="resource-type" CONTENT="document">
<META NAME="distribution" CONTENT="global"> <META NAME="distribution" CONTENT="global">
@ -44,7 +44,7 @@ original version by: Nikos Drakos, CBLU, University of Leeds
<B> Up:</B> <A NAME="tex2html949" <B> Up:</B> <A NAME="tex2html949"
HREF="node47.html">Computational routines</A> HREF="node47.html">Computational routines</A>
<B> Previous:</B> <A NAME="tex2html943" <B> Previous:</B> <A NAME="tex2html943"
HREF="node57.html">psb_spnrm1 1-Norm</A> HREF="node57.html">psb_norm1 1-Norm</A>
&nbsp; <B> <A NAME="tex2html951" &nbsp; <B> <A NAME="tex2html951"
HREF="node1.html">Contents</A></B> HREF="node1.html">Contents</A></B>
<BR> <BR>
@ -52,7 +52,7 @@ original version by: Nikos Drakos, CBLU, University of Leeds
<!--End of Navigation Panel--> <!--End of Navigation Panel-->
<H2><A NAME="SECTION000511000000000000000"> <H2><A NAME="SECTION000511000000000000000">
psb_spnrmi -- Infinity Norm of Sparse Matrix</A> psb_normi -- Infinity Norm of Sparse Matrix</A>
</H2> </H2>
<P> <P>
@ -127,6 +127,7 @@ Data types</CAPTION>
<P> <P>
<PRE> <PRE>
psb_spnrmi(A, desc_a, info) psb_spnrmi(A, desc_a, info)
psb_normi(A, desc_a, info)
</PRE> </PRE>
<P> <P>
@ -210,7 +211,7 @@ An integer value; 0 means no error has been detected.
<B> Up:</B> <A NAME="tex2html949" <B> Up:</B> <A NAME="tex2html949"
HREF="node47.html">Computational routines</A> HREF="node47.html">Computational routines</A>
<B> Previous:</B> <A NAME="tex2html943" <B> Previous:</B> <A NAME="tex2html943"
HREF="node57.html">psb_spnrm1 1-Norm</A> HREF="node57.html">psb_norm1 1-Norm</A>
&nbsp; <B> <A NAME="tex2html951" &nbsp; <B> <A NAME="tex2html951"
HREF="node1.html">Contents</A></B> HREF="node1.html">Contents</A></B>
<!--End of Navigation Panel--> <!--End of Navigation Panel-->

4
docs/html/node59.html
Unescape Escape View File

@ -44,7 +44,7 @@ original version by: Nikos Drakos, CBLU, University of Leeds
<B> Up:</B> <A NAME="tex2html961" <B> Up:</B> <A NAME="tex2html961"
HREF="node47.html">Computational routines</A> HREF="node47.html">Computational routines</A>
<B> Previous:</B> <A NAME="tex2html955" <B> Previous:</B> <A NAME="tex2html955"
HREF="node58.html">psb_spnrmi Infinity</A> HREF="node58.html">psb_normi Infinity</A>
&nbsp; <B> <A NAME="tex2html963" &nbsp; <B> <A NAME="tex2html963"
HREF="node1.html">Contents</A></B> HREF="node1.html">Contents</A></B>
<BR> <BR>
@ -417,7 +417,7 @@ An integer value; 0 means no error has been detected.
<B> Up:</B> <A NAME="tex2html961" <B> Up:</B> <A NAME="tex2html961"
HREF="node47.html">Computational routines</A> HREF="node47.html">Computational routines</A>
<B> Previous:</B> <A NAME="tex2html955" <B> Previous:</B> <A NAME="tex2html955"
HREF="node58.html">psb_spnrmi Infinity</A> HREF="node58.html">psb_normi Infinity</A>
&nbsp; <B> <A NAME="tex2html963" &nbsp; <B> <A NAME="tex2html963"
HREF="node1.html">Contents</A></B> HREF="node1.html">Contents</A></B>
<!--End of Navigation Panel--> <!--End of Navigation Panel-->

10
docs/html/userhtml.html
Unescape Escape View File

@ -192,21 +192,21 @@ of a dense vector</A>
<LI><A NAME="tex2html84" <LI><A NAME="tex2html84"
HREF="node50.html">psb_gedots -- Generalized Dot Product</A> HREF="node50.html">psb_gedots -- Generalized Dot Product</A>
<LI><A NAME="tex2html85" <LI><A NAME="tex2html85"
HREF="node51.html">psb_geamax -- Infinity-Norm of Vector</A> HREF="node51.html">psb_normi -- Infinity-Norm of Vector</A>
<LI><A NAME="tex2html86" <LI><A NAME="tex2html86"
HREF="node52.html">psb_geamaxs -- Generalized Infinity Norm</A> HREF="node52.html">psb_geamaxs -- Generalized Infinity Norm</A>
<LI><A NAME="tex2html87" <LI><A NAME="tex2html87"
HREF="node53.html">psb_geasum -- 1-Norm of Vector</A> HREF="node53.html">psb_norm1 -- 1-Norm of Vector</A>
<LI><A NAME="tex2html88" <LI><A NAME="tex2html88"
HREF="node54.html">psb_geasums -- Generalized 1-Norm of Vector</A> HREF="node54.html">psb_geasums -- Generalized 1-Norm of Vector</A>
<LI><A NAME="tex2html89" <LI><A NAME="tex2html89"
HREF="node55.html">psb_genrm2 -- 2-Norm of Vector</A> HREF="node55.html">psb_norm2 -- 2-Norm of Vector</A>
<LI><A NAME="tex2html90" <LI><A NAME="tex2html90"
HREF="node56.html">psb_genrm2s -- Generalized 2-Norm of Vector</A> HREF="node56.html">psb_genrm2s -- Generalized 2-Norm of Vector</A>
<LI><A NAME="tex2html91" <LI><A NAME="tex2html91"
HREF="node57.html">psb_spnrm1 -- 1-Norm of Sparse Matrix</A> HREF="node57.html">psb_norm1 -- 1-Norm of Sparse Matrix</A>
<LI><A NAME="tex2html92" <LI><A NAME="tex2html92"
HREF="node58.html">psb_spnrmi -- Infinity Norm of Sparse Matrix</A> HREF="node58.html">psb_normi -- Infinity Norm of Sparse Matrix</A>
<LI><A NAME="tex2html93" <LI><A NAME="tex2html93"
HREF="node59.html">psb_spmm -- Sparse Matrix by Dense Matrix HREF="node59.html">psb_spmm -- Sparse Matrix by Dense Matrix
Product</A> Product</A>

3940
docs/psblas-3.2.pdf
View File

File diff suppressed because it is too large Load Diff

25
docs/src/psbrout.tex
Unescape Escape View File

@ -280,8 +280,8 @@ An integer value; 0 means no error has been detected.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\clearpage\subsection*{psb\_geamax --- Infinity-Norm of Vector} \clearpage\subsection*{psb\_normi --- Infinity-Norm of Vector}
\addcontentsline{toc}{subsection}{psb\_geamax} \addcontentsline{toc}{subsection}{psb\_normi}
This function computes This function computes
the infinity-norm of a vector $x$.\\ the infinity-norm of a vector $x$.\\
@ -297,6 +297,7 @@ else if $x$ is a complex vector then it computes the infinity-norm as:
\begin{verbatim} \begin{verbatim}
psb_geamax(x, desc_a, info) psb_geamax(x, desc_a, info)
psb_normi(x, desc_a, info)
\end{verbatim} \end{verbatim}
%% \syntax*{psb\_geamax}{x, desc\_a, info, jx} %% \syntax*{psb\_geamax}{x, desc\_a, info, jx}
@ -420,8 +421,8 @@ An integer value; 0 means no error has been detected.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\clearpage\subsection*{psb\_geasum --- 1-Norm of Vector} \clearpage\subsection*{psb\_norm1 --- 1-Norm of Vector}
\addcontentsline{toc}{subsection}{psb\_geasum} \addcontentsline{toc}{subsection}{psb\_norm1}
This function computes the 1-norm of a vector $x$.\\ This function computes the 1-norm of a vector $x$.\\
If $x$ is a real vector If $x$ is a real vector
@ -433,6 +434,7 @@ else if $x$ is a complex vector then it computes 1-norm as:
\begin{verbatim} \begin{verbatim}
psb_geasum(x, desc_a, info) psb_geasum(x, desc_a, info)
psb_norm1(x, desc_a, info)
\end{verbatim} \end{verbatim}
\begin{table}[h] \begin{table}[h]
@ -556,8 +558,8 @@ An integer value; 0 means no error has been detected.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\clearpage\subsection*{psb\_genrm2 --- 2-Norm of Vector} \clearpage\subsection*{psb\_norm2 --- 2-Norm of Vector}
\addcontentsline{toc}{subsection}{psb\_genrm2} \addcontentsline{toc}{subsection}{psb\_norm2}
This function computes the 2-norm of a vector $x$.\\ This function computes the 2-norm of a vector $x$.\\
If $x$ is a real vector If $x$ is a real vector
@ -588,6 +590,7 @@ Long Precision Real&Long Precision Complex & psb\_genrm2 \\
\begin{verbatim} \begin{verbatim}
psb_genrm2(x, desc_a, info) psb_genrm2(x, desc_a, info)
psb_norm2(x, desc_a, info)
\end{verbatim} \end{verbatim}
%% \syntax*{psb\_genrm2}{x, desc\_a, info, jx} %% \syntax*{psb\_genrm2}{x, desc\_a, info, jx}
@ -698,8 +701,8 @@ An integer value; 0 means no error has been detected.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\clearpage\subsection*{psb\_spnrm1 --- 1-Norm of Sparse Matrix} \clearpage\subsection*{psb\_norm1 --- 1-Norm of Sparse Matrix}
\addcontentsline{toc}{subsection}{psb\_spnrm1} \addcontentsline{toc}{subsection}{psb\_norm1}
This function computes the 1-norm of a matrix $A$:\\ This function computes the 1-norm of a matrix $A$:\\
@ -727,6 +730,7 @@ Long Precision Complex & psb\_spnrm1 \\
\begin{verbatim} \begin{verbatim}
psb_spnrm1(A, desc_a, info) psb_spnrm1(A, desc_a, info)
psb_norm1(A, desc_a, info)
\end{verbatim} \end{verbatim}
\begin{description} \begin{description}
@ -762,8 +766,8 @@ An integer value; 0 means no error has been detected.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\clearpage\subsection*{psb\_spnrmi --- Infinity Norm of Sparse Matrix} \clearpage\subsection*{psb\_normi --- Infinity Norm of Sparse Matrix}
\addcontentsline{toc}{subsection}{psb\_spnrmi} \addcontentsline{toc}{subsection}{psb\_normi}
This function computes the infinity-norm of a matrix $A$:\\ This function computes the infinity-norm of a matrix $A$:\\
@ -791,6 +795,7 @@ Long Precision Complex & psb\_spnrmi \\
\begin{verbatim} \begin{verbatim}
psb_spnrmi(A, desc_a, info) psb_spnrmi(A, desc_a, info)
psb_normi(A, desc_a, info)
\end{verbatim} \end{verbatim}
\begin{description} \begin{description}

13
util/psb_mmio_mod.f90
Unescape Escape View File

@ -107,6 +107,12 @@ module psb_mmio_mod
end interface end interface
interface mm_vet_read
procedure mm_svet_read, mm_dvet_read, mm_cvet_read,&
& mm_zvet_read, mm_svet2_read, mm_dvet2_read, &
& mm_cvet2_read, mm_zvet2_read
end interface
interface mm_array_write interface mm_array_write
subroutine mm_svet2_write(b, header, info, iunit, filename) subroutine mm_svet2_write(b, header, info, iunit, filename)
@ -183,6 +189,13 @@ module psb_mmio_mod
end subroutine mm_zvet1_write end subroutine mm_zvet1_write
end interface end interface
interface mm_vet_write
procedure mm_svet1_write, mm_dvet1_write, mm_cvet1_write,&
& mm_zvet1_write, mm_svet2_write, mm_dvet2_write, &
& mm_cvet2_write, mm_zvet2_write
end interface
interface mm_mat_read interface mm_mat_read
subroutine smm_mat_read(a, info, iunit, filename) subroutine smm_mat_read(a, info, iunit, filename)

Write Preview
Loading…
Cancel
Save