comparison libcruft/lapack-xtra/xdlange.f @ 3690:55e59236c5e5

[project @ 2000-06-30 20:55:36 by jwe]
author jwe
date Fri, 30 Jun 2000 20:57:14 +0000
parents
children
comparison
equal deleted inserted replaced
3689:9143cd2129c4 3690:55e59236c5e5
1 subroutine xdlange (norm, m, n, a, lda, work, retval)
2 character norm
3 integer lda, m, n
4 double precision a (lda, *), work (*), dlange, retval
5 retval = dlange (norm, m, n, a, lda, work)
6 return
7 end