You can not select more than 25 topics Topics must start with a chinese character,a letter or number, can include dashes ('-') and can be up to 35 characters long.

dznrm2sub.f 318 B

123456789101112131415
  1. c dznrm2sub.f
  2. c
  3. c The program is a fortran wrapper for dznrm2.
  4. c Witten by Keita Teranishi. 2/11/1998
  5. c
  6. subroutine dznrm2sub(n,x,incx,nrm2)
  7. c
  8. external dznrm2
  9. double precision dznrm2,nrm2
  10. integer n,incx
  11. double complex x(*)
  12. c
  13. nrm2=dznrm2(n,x,incx)
  14. return
  15. end