Page Menu
Home
c4science
Search
Configure Global Search
Log In
Files
F101851301
ilaclr.f
No One
Temporary
Actions
Download File
Edit File
Delete File
View Transforms
Subscribe
Mute Notifications
Award Token
Subscribers
None
File Metadata
Details
File Info
Storage
Attached
Created
Fri, Feb 14, 09:20
Size
2 KB
Mime Type
text/html
Expires
Sun, Feb 16, 09:20 (1 d, 10 h)
Engine
blob
Format
Raw Data
Handle
24242133
Attached To
rDLMA Diffusion limited mixed aggregation
ilaclr.f
View Options
*>
\
brief
\
b
ILACLR
*
*
===========
DOCUMENTATION
===========
*
*
Online
html
documentation
available
at
*
http
:
//
www
.
netlib
.
org
/
lapack
/
explore
-
html
/
*
*>
\
htmlonly
*>
Download
ILACLR
+
dependencies
*>
<
a
href
=
"http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ilaclr.f"
>
*>
[
TGZ
]
</
a
>
*>
<
a
href
=
"http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ilaclr.f"
>
*>
[
ZIP
]
</
a
>
*>
<
a
href
=
"http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ilaclr.f"
>
*>
[
TXT
]
</
a
>
*>
\
endhtmlonly
*
*
Definition
:
*
===========
*
*
INTEGER
FUNCTION
ILACLR
(
M
,
N
,
A
,
LDA
)
*
*
..
Scalar
Arguments
..
*
INTEGER
M
,
N
,
LDA
*
..
*
..
Array
Arguments
..
*
COMPLEX
A
(
LDA
,
*
)
*
..
*
*
*>
\
par
Purpose
:
*
=============
*>
*>
\
verbatim
*>
*>
ILACLR
scans
A
for
its
last
non
-
zero
row
.
*>
\
endverbatim
*
*
Arguments
:
*
==========
*
*>
\
param
[
in
]
M
*>
\
verbatim
*>
M
is
INTEGER
*>
The
number
of
rows
of
the
matrix
A
.
*>
\
endverbatim
*>
*>
\
param
[
in
]
N
*>
\
verbatim
*>
N
is
INTEGER
*>
The
number
of
columns
of
the
matrix
A
.
*>
\
endverbatim
*>
*>
\
param
[
in
]
A
*>
\
verbatim
*>
A
is
array
,
dimension
(
LDA
,
N
)
*>
The
m
by
n
matrix
A
.
*>
\
endverbatim
*>
*>
\
param
[
in
]
LDA
*>
\
verbatim
*>
LDA
is
INTEGER
*>
The
leading
dimension
of
the
array
A
.
LDA
>=
max
(
1
,
M
)
.
*>
\
endverbatim
*
*
Authors
:
*
========
*
*>
\
author
Univ
.
of
Tennessee
*>
\
author
Univ
.
of
California
Berkeley
*>
\
author
Univ
.
of
Colorado
Denver
*>
\
author
NAG
Ltd
.
*
*>
\
date
April
2012
*
*>
\
ingroup
complexOTHERauxiliary
*
*
=====================================================================
INTEGER
FUNCTION
ILACLR
(
M
,
N
,
A
,
LDA
)
*
*
--
LAPACK
auxiliary
routine
(
version
3.4.1
)
--
*
--
LAPACK
is
a
software
package
provided
by
Univ
.
of
Tennessee
,
--
*
--
Univ
.
of
California
Berkeley
,
Univ
.
of
Colorado
Denver
and
NAG
Ltd
..
--
*
April
2012
*
*
..
Scalar
Arguments
..
INTEGER
M
,
N
,
LDA
*
..
*
..
Array
Arguments
..
COMPLEX
A
(
LDA
,
*
)
*
..
*
*
=====================================================================
*
*
..
Parameters
..
COMPLEX
ZERO
PARAMETER
(
ZERO
=
(
0.0E+0
,
0.0E+0
)
)
*
..
*
..
Local
Scalars
..
INTEGER
I
,
J
*
..
*
..
Executable
Statements
..
*
*
Quick
test
for
the
common case where
one
corner
is
non
-
zero
.
IF
(
M
.EQ.
0
)
THEN
ILACLR
=
M
ELSE IF
(
A
(
M
,
1
)
.NE.
ZERO
.OR.
A
(
M
,
N
)
.NE.
ZERO
)
THEN
ILACLR
=
M
ELSE
*
Scan
up
each
column
tracking
the
last
zero
row
seen
.
ILACLR
=
0
DO
J
=
1
,
N
I
=
M
DO WHILE
((
A
(
MAX
(
I
,
1
),
J
)
.EQ.
ZERO
)
.AND.
(
I
.GE.
1
))
I
=
I
-
1
ENDDO
ILACLR
=
MAX
(
ILACLR
,
I
)
END DO
END IF
RETURN
END
Event Timeline
Log In to Comment