00001 subroutine xsnrm2 (n, x, incx, retval) 00002 real snrm2, x(*), retval 00003 integer n, incx 00004 retval = snrm2 (n, x, incx) 00005 return 00006 end
1.7.1
