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