apply the modified givens transformation, H, to the 2 by n matrix
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer(kind=ip) | :: | n | ||||
| real(kind=wp) | :: | dx(*) | ||||
| integer(kind=ip) | :: | incx | ||||
| real(kind=wp) | :: | dy(*) | ||||
| integer(kind=ip) | :: | incy | ||||
| real(kind=wp) | :: | dparam(5) |
subroutine drotm(n, dx, incx, dy, incy, dparam) import implicit none integer(ip) :: incx, incy, n real(wp) :: dparam(5), dx(*), dy(*) end subroutine drotm