Skip to content

Commit b782ddc

Browse files
perazzperazz
committed
'1_${ik}$' -> '1'
1 parent 4ccfba8 commit b782ddc

6 files changed

+177
-177
lines changed

‎src/stdlib_linalg_lapack_c.fypp

Lines changed: 31 additions & 31 deletions
Original file line numberDiff line numberDiff line change
@@ -32752,7 +32752,7 @@ module stdlib_linalg_lapack_c
3275232752
! Executable Statements
3275332753
! test the input parameters.
3275432754
info = 0_${ik}$
32755-
onenrm = norm=='1_${ik}$' .or. stdlib_lsame( norm, 'O' )
32755+
onenrm = norm=='1' .or. stdlib_lsame( norm, 'O' )
3275632756
if( .not.onenrm .and. .not.stdlib_lsame( norm, 'I' ) ) then
3275732757
info = -1_${ik}$
3275832758
else if( n<0_${ik}$ ) then
@@ -33345,7 +33345,7 @@ module stdlib_linalg_lapack_c
3334533345
! Executable Statements
3334633346
! test the input parameters.
3334733347
info = 0_${ik}$
33348-
onenrm = norm=='1_${ik}$' .or. stdlib_lsame( norm, 'O' )
33348+
onenrm = norm=='1' .or. stdlib_lsame( norm, 'O' )
3334933349
if( .not.onenrm .and. .not.stdlib_lsame( norm, 'I' ) ) then
3335033350
info = -1_${ik}$
3335133351
else if( n<0_${ik}$ ) then
@@ -41301,7 +41301,7 @@ module stdlib_linalg_lapack_c
4130141301
if( value<temp .or. stdlib${ii}$_sisnan( temp ) ) value = temp
4130241302
end do
4130341303
end do
41304-
else if( ( stdlib_lsame( norm, 'O' ) ) .or. ( norm=='1_${ik}$' ) ) then
41304+
else if( ( stdlib_lsame( norm, 'O' ) ) .or. ( norm=='1' ) ) then
4130541305
! find norm1(a).
4130641306
value = zero
4130741307
do j = 1, n
@@ -41376,7 +41376,7 @@ module stdlib_linalg_lapack_c
4137641376
if( value<temp .or. stdlib${ii}$_sisnan( temp ) ) value = temp
4137741377
end do
4137841378
end do
41379-
else if( ( stdlib_lsame( norm, 'O' ) ) .or. ( norm=='1_${ik}$' ) ) then
41379+
else if( ( stdlib_lsame( norm, 'O' ) ) .or. ( norm=='1' ) ) then
4138041380
! find norm1(a).
4138141381
value = zero
4138241382
do j = 1, n
@@ -41449,7 +41449,7 @@ module stdlib_linalg_lapack_c
4144941449
if( anorm<abs( du( i ) ) .or. stdlib${ii}$_sisnan (abs( du( i ) ) ) )anorm = abs(du(i))
4145041450

4145141451
end do
41452-
else if( stdlib_lsame( norm, 'O' ) .or. norm=='1_${ik}$' ) then
41452+
else if( stdlib_lsame( norm, 'O' ) .or. norm=='1' ) then
4145341453
! find norm1(a).
4145441454
if( n==1_${ik}$ ) then
4145541455
anorm = abs( d( 1_${ik}$ ) )
@@ -41538,7 +41538,7 @@ module stdlib_linalg_lapack_c
4153841538
end do
4153941539
end if
4154041540
else if( ( stdlib_lsame( norm, 'I' ) ) .or. ( stdlib_lsame( norm, 'O' ) ) .or.( &
41541-
norm=='1_${ik}$' ) ) then
41541+
norm=='1' ) ) then
4154241542
! find normi(a) ( = norm1(a), since a is hermitian).
4154341543
value = zero
4154441544
if( stdlib_lsame( uplo, 'U' ) ) then
@@ -41657,7 +41657,7 @@ module stdlib_linalg_lapack_c
4165741657
end do
4165841658
end if
4165941659
else if( ( stdlib_lsame( norm, 'I' ) ) .or. ( stdlib_lsame( norm, 'O' ) ) .or.( &
41660-
norm=='1_${ik}$' ) ) then
41660+
norm=='1' ) ) then
4166141661
! find normi(a) ( = norm1(a), since a is hermitian).
4166241662
value = zero
4166341663
if( stdlib_lsame( uplo, 'U' ) ) then
@@ -42069,7 +42069,7 @@ module stdlib_linalg_lapack_c
4206942069
end if
4207042070
end if
4207142071
else if( ( stdlib_lsame( norm, 'I' ) ) .or. ( stdlib_lsame( norm, 'O' ) ) .or.( &
42072-
norm=='1_${ik}$' ) ) then
42072+
norm=='1' ) ) then
4207342073
! find normi(a) ( = norm1(a), since a is hermitian).
4207442074
if( ifm==1_${ik}$ ) then
4207542075
! a is 'n'
@@ -42991,7 +42991,7 @@ module stdlib_linalg_lapack_c
4299142991
end do
4299242992
end if
4299342993
else if( ( stdlib_lsame( norm, 'I' ) ) .or. ( stdlib_lsame( norm, 'O' ) ) .or.( &
42994-
norm=='1_${ik}$' ) ) then
42994+
norm=='1' ) ) then
4299542995
! find normi(a) ( = norm1(a), since a is hermitian).
4299642996
value = zero
4299742997
k = 1_${ik}$
@@ -43101,7 +43101,7 @@ module stdlib_linalg_lapack_c
4310143101
if( value < sum .or. stdlib${ii}$_sisnan( sum ) ) value = sum
4310243102
end do
4310343103
end do
43104-
else if( ( stdlib_lsame( norm, 'O' ) ) .or. ( norm=='1_${ik}$' ) ) then
43104+
else if( ( stdlib_lsame( norm, 'O' ) ) .or. ( norm=='1' ) ) then
4310543105
! find norm1(a).
4310643106
value = zero
4310743107
do j = 1, n
@@ -43173,7 +43173,7 @@ module stdlib_linalg_lapack_c
4317343173
sum = abs( e( i ) )
4317443174
if( anorm < sum .or. stdlib${ii}$_sisnan( sum ) ) anorm = sum
4317543175
end do
43176-
else if( stdlib_lsame( norm, 'O' ) .or. norm=='1_${ik}$' .or.stdlib_lsame( norm, 'I' ) ) &
43176+
else if( stdlib_lsame( norm, 'O' ) .or. norm=='1' .or.stdlib_lsame( norm, 'I' ) ) &
4317743177
then
4317843178
! find norm1(a).
4317943179
if( n==1_${ik}$ ) then
@@ -43246,7 +43246,7 @@ module stdlib_linalg_lapack_c
4324643246
end do
4324743247
end if
4324843248
else if( ( stdlib_lsame( norm, 'I' ) ) .or. ( stdlib_lsame( norm, 'O' ) ) .or.( &
43249-
norm=='1_${ik}$' ) ) then
43249+
norm=='1' ) ) then
4325043250
! find normi(a) ( = norm1(a), since a is symmetric).
4325143251
value = zero
4325243252
if( stdlib_lsame( uplo, 'U' ) ) then
@@ -43355,7 +43355,7 @@ module stdlib_linalg_lapack_c
4335543355
end do
4335643356
end if
4335743357
else if( ( stdlib_lsame( norm, 'I' ) ) .or. ( stdlib_lsame( norm, 'O' ) ) .or.( &
43358-
norm=='1_${ik}$' ) ) then
43358+
norm=='1' ) ) then
4335943359
! find normi(a) ( = norm1(a), since a is symmetric).
4336043360
value = zero
4336143361
k = 1_${ik}$
@@ -43484,7 +43484,7 @@ module stdlib_linalg_lapack_c
4348443484
end do
4348543485
end if
4348643486
else if( ( stdlib_lsame( norm, 'I' ) ) .or. ( stdlib_lsame( norm, 'O' ) ) .or.( &
43487-
norm=='1_${ik}$' ) ) then
43487+
norm=='1' ) ) then
4348843488
! find normi(a) ( = norm1(a), since a is symmetric).
4348943489
value = zero
4349043490
if( stdlib_lsame( uplo, 'U' ) ) then
@@ -43599,7 +43599,7 @@ module stdlib_linalg_lapack_c
4359943599
end do
4360043600
end if
4360143601
end if
43602-
else if( ( stdlib_lsame( norm, 'O' ) ) .or. ( norm=='1_${ik}$' ) ) then
43602+
else if( ( stdlib_lsame( norm, 'O' ) ) .or. ( norm=='1' ) ) then
4360343603
! find norm1(a).
4360443604
value = zero
4360543605
udiag = stdlib_lsame( diag, 'U' )
@@ -43797,7 +43797,7 @@ module stdlib_linalg_lapack_c
4379743797
end do
4379843798
end if
4379943799
end if
43800-
else if( ( stdlib_lsame( norm, 'O' ) ) .or. ( norm=='1_${ik}$' ) ) then
43800+
else if( ( stdlib_lsame( norm, 'O' ) ) .or. ( norm=='1' ) ) then
4380143801
! find norm1(a).
4380243802
value = zero
4380343803
k = 1_${ik}$
@@ -43998,7 +43998,7 @@ module stdlib_linalg_lapack_c
4399843998
end do
4399943999
end if
4400044000
end if
44001-
else if( ( stdlib_lsame( norm, 'O' ) ) .or. ( norm=='1_${ik}$' ) ) then
44001+
else if( ( stdlib_lsame( norm, 'O' ) ) .or. ( norm=='1' ) ) then
4400244002
! find norm1(a).
4400344003
value = zero
4400444004
udiag = stdlib_lsame( diag, 'U' )
@@ -49356,7 +49356,7 @@ module stdlib_linalg_lapack_c
4935649356
! test the input parameters.
4935749357
info = 0_${ik}$
4935849358
upper = stdlib_lsame( uplo, 'U' )
49359-
onenrm = norm=='1_${ik}$' .or. stdlib_lsame( norm, 'O' )
49359+
onenrm = norm=='1' .or. stdlib_lsame( norm, 'O' )
4936049360
nounit = stdlib_lsame( diag, 'N' )
4936149361
if( .not.onenrm .and. .not.stdlib_lsame( norm, 'I' ) ) then
4936249362
info = -1_${ik}$
@@ -50436,7 +50436,7 @@ module stdlib_linalg_lapack_c
5043650436
! test the input parameters.
5043750437
info = 0_${ik}$
5043850438
upper = stdlib_lsame( uplo, 'U' )
50439-
onenrm = norm=='1_${ik}$' .or. stdlib_lsame( norm, 'O' )
50439+
onenrm = norm=='1' .or. stdlib_lsame( norm, 'O' )
5044050440
nounit = stdlib_lsame( diag, 'N' )
5044150441
if( .not.onenrm .and. .not.stdlib_lsame( norm, 'I' ) ) then
5044250442
info = -1_${ik}$
@@ -50902,7 +50902,7 @@ module stdlib_linalg_lapack_c
5090250902
! test the input parameters.
5090350903
info = 0_${ik}$
5090450904
upper = stdlib_lsame( uplo, 'U' )
50905-
onenrm = norm=='1_${ik}$' .or. stdlib_lsame( norm, 'O' )
50905+
onenrm = norm=='1' .or. stdlib_lsame( norm, 'O' )
5090650906
nounit = stdlib_lsame( diag, 'N' )
5090750907
if( .not.onenrm .and. .not.stdlib_lsame( norm, 'I' ) ) then
5090850908
info = -1_${ik}$
@@ -53082,7 +53082,7 @@ module stdlib_linalg_lapack_c
5308253082
! compute the norm of the matrix a and the
5308353083
! reciprocal pivot growth factor rpvgrw.
5308453084
if( notran ) then
53085-
norm = '1_${ik}$'
53085+
norm = '1'
5308653086
else
5308753087
norm = 'I'
5308853088
end if
@@ -54954,7 +54954,7 @@ module stdlib_linalg_lapack_c
5495454954
! Executable Statements
5495554955
! test the input arguments.
5495654956
info = 0_${ik}$
54957-
onenrm = norm=='1_${ik}$' .or. stdlib_lsame( norm, 'O' )
54957+
onenrm = norm=='1' .or. stdlib_lsame( norm, 'O' )
5495854958
if( .not.onenrm .and. .not.stdlib_lsame( norm, 'I' ) ) then
5495954959
info = -1_${ik}$
5496054960
else if( n<0_${ik}$ ) then
@@ -55280,7 +55280,7 @@ module stdlib_linalg_lapack_c
5528055280
end if
5528155281
! compute the norm of the matrix a.
5528255282
if( notran ) then
55283-
norm = '1_${ik}$'
55283+
norm = '1'
5528455284
else
5528555285
norm = 'I'
5528655286
end if
@@ -60863,7 +60863,7 @@ module stdlib_linalg_lapack_c
6086360863
end if
6086460864
end if
6086560865
! compute the norm of the matrix a.
60866-
anorm = stdlib${ii}$_clanhb( '1_${ik}$', uplo, n, kd, ab, ldab, rwork )
60866+
anorm = stdlib${ii}$_clanhb( '1', uplo, n, kd, ab, ldab, rwork )
6086760867
! compute the reciprocal of the condition number of a.
6086860868
call stdlib${ii}$_cpbcon( uplo, n, kd, afb, ldafb, anorm, rcond, work, rwork,info )
6086960869
! compute the solution matrix x.
@@ -61393,7 +61393,7 @@ module stdlib_linalg_lapack_c
6139361393
end if
6139461394
end if
6139561395
! compute the norm of the matrix a.
61396-
anorm = stdlib${ii}$_clanhe( '1_${ik}$', uplo, n, a, lda, rwork )
61396+
anorm = stdlib${ii}$_clanhe( '1', uplo, n, a, lda, rwork )
6139761397
! compute the reciprocal of the condition number of a.
6139861398
call stdlib${ii}$_cpocon( uplo, n, af, ldaf, anorm, rcond, work, rwork, info )
6139961399
! compute the solution matrix x.
@@ -61742,7 +61742,7 @@ module stdlib_linalg_lapack_c
6174261742
end if
6174361743
end if
6174461744
! compute the norm of the matrix a.
61745-
anorm = stdlib${ii}$_clanht( '1_${ik}$', n, d, e )
61745+
anorm = stdlib${ii}$_clanht( '1', n, d, e )
6174661746
! compute the reciprocal of the condition number of a.
6174761747
call stdlib${ii}$_cptcon( n, df, ef, anorm, rcond, rwork, info )
6174861748
! compute the solution vectors x.
@@ -62530,7 +62530,7 @@ module stdlib_linalg_lapack_c
6253062530
! quick return if possible
6253162531
if( m==n .or. m==0_${ik}$ ) then
6253262532
if( wants )s = one
62533-
if( wantsp )sep = stdlib${ii}$_clange( '1_${ik}$', n, n, t, ldt, rwork )
62533+
if( wantsp )sep = stdlib${ii}$_clange( '1', n, n, t, ldt, rwork )
6253462534
go to 40
6253562535
end if
6253662536
! collect the selected eigenvalues at the top left corner of t.
@@ -70390,7 +70390,7 @@ module stdlib_linalg_lapack_c
7039070390
! compute the norm of the matrix a and the
7039170391
! reciprocal pivot growth factor rpvgrw.
7039270392
if( notran ) then
70393-
norm = '1_${ik}$'
70393+
norm = '1'
7039470394
else
7039570395
norm = 'I'
7039670396
end if
@@ -71824,13 +71824,13 @@ module stdlib_linalg_lapack_c
7182471824
call stdlib${ii}$_cggbal( balanc, n, a, lda, b, ldb, ilo, ihi, lscale, rscale,rwork, ierr )
7182571825

7182671826
! compute abnrm and bbnrm
71827-
abnrm = stdlib${ii}$_clange( '1_${ik}$', n, n, a, lda, rwork( 1_${ik}$ ) )
71827+
abnrm = stdlib${ii}$_clange( '1', n, n, a, lda, rwork( 1_${ik}$ ) )
7182871828
if( ilascl ) then
7182971829
rwork( 1_${ik}$ ) = abnrm
7183071830
call stdlib${ii}$_slascl( 'G', 0_${ik}$, 0_${ik}$, anrmto, anrm, 1_${ik}$, 1_${ik}$, rwork( 1_${ik}$ ), 1_${ik}$,ierr )
7183171831
abnrm = rwork( 1_${ik}$ )
7183271832
end if
71833-
bbnrm = stdlib${ii}$_clange( '1_${ik}$', n, n, b, ldb, rwork( 1_${ik}$ ) )
71833+
bbnrm = stdlib${ii}$_clange( '1', n, n, b, ldb, rwork( 1_${ik}$ ) )
7183471834
if( ilbscl ) then
7183571835
rwork( 1_${ik}$ ) = bbnrm
7183671836
call stdlib${ii}$_slascl( 'G', 0_${ik}$, 0_${ik}$, bnrmto, bnrm, 1_${ik}$, 1_${ik}$, rwork( 1_${ik}$ ), 1_${ik}$,ierr )
@@ -74225,7 +74225,7 @@ module stdlib_linalg_lapack_c
7422574225
if( scalea )call stdlib${ii}$_clascl( 'G', 0_${ik}$, 0_${ik}$, anrm, cscale, n, n, a, lda, ierr )
7422674226
! balance the matrix and compute abnrm
7422774227
call stdlib${ii}$_cgebal( balanc, n, a, lda, ilo, ihi, scale, ierr )
74228-
abnrm = stdlib${ii}$_clange( '1_${ik}$', n, n, a, lda, dum )
74228+
abnrm = stdlib${ii}$_clange( '1', n, n, a, lda, dum )
7422974229
if( scalea ) then
7423074230
dum( 1_${ik}$ ) = abnrm
7423174231
call stdlib${ii}$_slascl( 'G', 0_${ik}$, 0_${ik}$, cscale, anrm, 1_${ik}$, 1_${ik}$, dum, 1_${ik}$, ierr )

0 commit comments

Comments
 (0)