1      subroutine xslange (norm, m, n, a, lda, work, retval)
2      character norm
3      integer lda, m, n
4      real a (lda, *), work (*), slange, retval
5      retval = slange (norm, m, n, a, lda, work)
6      return
7      end
8