annotate libcruft/lapack-xtra/xdlange.f @ 11771:735dfdb92384 release-3-0-x

Treat bool as a scalar in the bit functions
author David Bateman <dbateman@free.fr>
date Tue, 06 May 2008 06:20:36 -0400
parents 55e59236c5e5
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3690
55e59236c5e5 [project @ 2000-06-30 20:55:36 by jwe]
jwe
parents:
diff changeset
1 subroutine xdlange (norm, m, n, a, lda, work, retval)
55e59236c5e5 [project @ 2000-06-30 20:55:36 by jwe]
jwe
parents:
diff changeset
2 character norm
55e59236c5e5 [project @ 2000-06-30 20:55:36 by jwe]
jwe
parents:
diff changeset
3 integer lda, m, n
55e59236c5e5 [project @ 2000-06-30 20:55:36 by jwe]
jwe
parents:
diff changeset
4 double precision a (lda, *), work (*), dlange, retval
55e59236c5e5 [project @ 2000-06-30 20:55:36 by jwe]
jwe
parents:
diff changeset
5 retval = dlange (norm, m, n, a, lda, work)
55e59236c5e5 [project @ 2000-06-30 20:55:36 by jwe]
jwe
parents:
diff changeset
6 return
55e59236c5e5 [project @ 2000-06-30 20:55:36 by jwe]
jwe
parents:
diff changeset
7 end