Go to the documentation of this file.00001 subroutine xdlange (norm, m, n, a, lda, work, retval)
00002 character norm
00003 integer lda, m, n
00004 double precision a (lda, *), work (*), dlange, retval
00005 retval = dlange (norm, m, n, a, lda, work)
00006 return
00007 end