Skip to content

Commit

Permalink
change conj to conjg
Browse files Browse the repository at this point in the history
  • Loading branch information
@thijssteel
thijssteel committed Oct 21, 2024
1 parent 6c7e38b commit 5ceb107
Show file tree
Hide file tree
Showing 2 changed files with 8 additions and 8 deletions.
8 changes: 4 additions & 4 deletions BLAS/SRC/crotc.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -27,9 +27,9 @@
!>
!> If side = 'L', rotation G(i,j) is applied to rows i and i+1 of A.
!> [ A(i,j) ] = [ C(i,j) S(i,j) ] [ A(i,j) ]
!> [ A(i+1,j) ] [ -conj(S(i,j)) C(i,j) ] [ A(i+1,j) ]
!> [ A(i+1,j) ] [ -conjg(S(i,j)) C(i,j) ] [ A(i+1,j) ]
!> If side = 'R', rotation G(i,j) is applied to columns j and j+1 of A.
!> [ A(i,j) A(i,j+1) ] = [ A(i,j) A(i,j+1) ] [ C(i,j) -conj(S(i,j)) ]
!> [ A(i,j) A(i,j+1) ] = [ A(i,j) A(i,j+1) ] [ C(i,j) -conjg(S(i,j)) ]
!> [ A(i+1,j) A(i+1,j+1) ] [ A(i+1,j) A(i+1,j+1) ] [ S(i,j) C(i,j) ]
!>
!> \endverbatim
Expand Down Expand Up @@ -234,7 +234,7 @@ subroutine crotc(side, dir, startup, shutdown, m, n, k,&
sn = S(j,l)
do i = 1, m
temp = cs*A(i,j) + sn*A(i,j+1)
A(i,j+1) = -conj(sn*A(i,j)) + cs*A(i,j+1)
A(i,j+1) = -conjg(sn*A(i,j)) + cs*A(i,j+1)
A(i,j) = temp
end do
end do
Expand All @@ -246,7 +246,7 @@ subroutine crotc(side, dir, startup, shutdown, m, n, k,&
sn = S(l,j)
do i = 1, m
temp = cs*A(j,i) + sn*A(j+1,i)
A(j+1,i) = -conj(sn*A(j,i)) + cs*A(j+1,i)
A(j+1,i) = -conjg(sn*A(j,i)) + cs*A(j+1,i)
A(j,i) = temp
end do
end do
Expand Down
8 changes: 4 additions & 4 deletions BLAS/SRC/zrotc.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -27,9 +27,9 @@
!>
!> If side = 'L', rotation G(i,j) is applied to rows i and i+1 of A.
!> [ A(i,j) ] = [ C(i,j) S(i,j) ] [ A(i,j) ]
!> [ A(i+1,j) ] [ -conj(S(i,j)) C(i,j) ] [ A(i+1,j) ]
!> [ A(i+1,j) ] [ -conjg(S(i,j)) C(i,j) ] [ A(i+1,j) ]
!> If side = 'R', rotation G(i,j) is applied to columns j and j+1 of A.
!> [ A(i,j) A(i,j+1) ] = [ A(i,j) A(i,j+1) ] [ C(i,j) -conj(S(i,j)) ]
!> [ A(i,j) A(i,j+1) ] = [ A(i,j) A(i,j+1) ] [ C(i,j) -conjg(S(i,j)) ]
!> [ A(i+1,j) A(i+1,j+1) ] [ A(i+1,j) A(i+1,j+1) ] [ S(i,j) C(i,j) ]
!>
!> \endverbatim
Expand Down Expand Up @@ -234,7 +234,7 @@ subroutine zrotc(side, dir, startup, shutdown, m, n, k,&
sn = S(j,l)
do i = 1, m
temp = cs*A(i,j) + sn*A(i,j+1)
A(i,j+1) = -conj(sn*A(i,j)) + cs*A(i,j+1)
A(i,j+1) = -conjg(sn*A(i,j)) + cs*A(i,j+1)
A(i,j) = temp
end do
end do
Expand All @@ -246,7 +246,7 @@ subroutine zrotc(side, dir, startup, shutdown, m, n, k,&
sn = S(l,j)
do i = 1, m
temp = cs*A(j,i) + sn*A(j+1,i)
A(j+1,i) = -conj(sn*A(j,i)) + cs*A(j+1,i)
A(j+1,i) = -conjg(sn*A(j,i)) + cs*A(j+1,i)
A(j,i) = temp
end do
end do
Expand Down

0 comments on commit 5ceb107

Please sign in to comment.