00001 subroutine xdznrm2 (n, x, incx, retval) 00002 double precision dznrm2, retval 00003 double complex x(*) 00004 integer n, incx 00005 retval = dznrm2 (n, x, incx) 00006 return 00007 end