Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | n | |||
doubleprecision, | intent(in) | :: | sr | |||
doubleprecision, | intent(in) | :: | si | |||
doubleprecision, | intent(in) | :: | xr(*) | |||
doubleprecision, | intent(in) | :: | xi(*) | |||
integer, | intent(in) | :: | incx | |||
doubleprecision | :: | yr(*) | ||||
doubleprecision | :: | yi(*) | ||||
integer, | intent(in) | :: | incy |
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public | :: | i | ||||
integer, | public | :: | ix | ||||
integer, | public | :: | iy |
subroutine matx_waxpy(n, sr, si, xr, xi, incx, yr, yi, incy) import int32, real64 integer(kind=int32), intent(in) :: n real(kind=real64), intent(in) :: sr real(kind=real64), intent(in) :: si real(kind=real64), intent(in) :: xr(*) real(kind=real64), intent(in) :: xi(*) integer(kind=int32), intent(in) :: incx real(kind=real64) :: yr(*) real(kind=real64) :: yi(*) integer(kind=int32), intent(in) :: incy end subroutine matx_waxpy