00001 subroutine xscnrm2 (n, x, incx, retval) 00002 real scnrm2, retval 00003 complex x(*) 00004 integer n, incx 00005 retval = scnrm2 (n, x, incx) 00006 return 00007 end