From 70b8ee22ad2c0392b48e5b6572cf15fff02b22a7 Mon Sep 17 00:00:00 2001 From: Julien Langou Date: Sat, 9 Oct 2021 14:12:23 -0600 Subject: [PATCH] fix a typo, thanks to Jim Demmel for letting me know --- BLAS/SRC/crotg.f90 | 2 +- BLAS/SRC/zrotg.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/BLAS/SRC/crotg.f90 b/BLAS/SRC/crotg.f90 index 7806140668..18b7d74a71 100644 --- a/BLAS/SRC/crotg.f90 +++ b/BLAS/SRC/crotg.f90 @@ -11,7 +11,7 @@ ! CROTG constructs a plane rotation ! [ c s ] [ a ] = [ r ] ! [ -conjg(s) c ] [ b ] [ 0 ] -! where c is real, s ic complex, and c**2 + conjg(s)*s = 1. +! where c is real, s is complex, and c**2 + conjg(s)*s = 1. ! !> \par Purpose: ! ============= diff --git a/BLAS/SRC/zrotg.f90 b/BLAS/SRC/zrotg.f90 index 288e5c7ef5..81ae976cc5 100644 --- a/BLAS/SRC/zrotg.f90 +++ b/BLAS/SRC/zrotg.f90 @@ -11,7 +11,7 @@ ! ZROTG constructs a plane rotation ! [ c s ] [ a ] = [ r ] ! [ -conjg(s) c ] [ b ] [ 0 ] -! where c is real, s ic complex, and c**2 + conjg(s)*s = 1. +! where c is real, s is complex, and c**2 + conjg(s)*s = 1. ! !> \par Purpose: ! =============