00001 subroutine xdnrm2 (n, x, incx, retval) 00002 double precision dnrm2, x(*), retval 00003 integer n, incx 00004 retval = dnrm2 (n, x, incx) 00005 return 00006 end
1.7.1
