Skip to content

Commit cb8d38c

Browse files
weslleyspereiraweslleyspereira
authored
Merge pull request #706 from mjacobse/testing-type-mismatches
Fix type mismatches in function calls of testing code
2 parents d073b03 + 35dd277 commit cb8d38c

File tree

13 files changed

+68
-59
lines changed

13 files changed

+68
-59
lines changed

‎TESTING/EIG/cerrst.f‎

Lines changed: 37 additions & 37 deletions
Original file line numberDiff line numberDiff line change
@@ -628,56 +628,56 @@ SUBROUTINE CERRST( PATH, NUNIT )
628628
SRNAMT = 'CHEEVX_2STAGE'
629629
INFOT = 1
630630
CALL CHEEVX_2STAGE( '/', 'A', 'U', 0, A, 1,
631-
$ 0.0D0, 0.0D0, 0, 0, 0.0D0,
631+
$ 0.0, 0.0, 0, 0, 0.0,
632632
$ M, X, Z, 1, W, 1, RW, IW, I3, INFO )
633633
CALL CHKXER( 'CHEEVX_2STAGE', INFOT, NOUT, LERR, OK )
634634
INFOT = 1
635635
CALL CHEEVX_2STAGE( 'V', 'A', 'U', 0, A, 1,
636-
$ 0.0D0, 0.0D0, 0, 0, 0.0D0,
636+
$ 0.0, 0.0, 0, 0, 0.0,
637637
$ M, X, Z, 1, W, 1, RW, IW, I3, INFO )
638638
CALL CHKXER( 'CHEEVX_2STAGE', INFOT, NOUT, LERR, OK )
639639
INFOT = 2
640640
CALL CHEEVX_2STAGE( 'N', '/', 'U', 0, A, 1,
641-
$ 0.0D0, 1.0D0, 1, 0, 0.0D0,
641+
$ 0.0, 1.0, 1, 0, 0.0,
642642
$ M, X, Z, 1, W, 1, RW, IW, I3, INFO )
643643
CALL CHKXER( 'CHEEVX_2STAGE', INFOT, NOUT, LERR, OK )
644644
INFOT = 3
645645
CALL CHEEVX_2STAGE( 'N', 'A', '/', 0, A, 1,
646-
$ 0.0D0, 0.0D0, 0, 0, 0.0D0,
646+
$ 0.0, 0.0, 0, 0, 0.0,
647647
$ M, X, Z, 1, W, 1, RW, IW, I3, INFO )
648648
INFOT = 4
649649
CALL CHEEVX_2STAGE( 'N', 'A', 'U', -1, A, 1,
650-
$ 0.0D0, 0.0D0, 0, 0, 0.0D0,
650+
$ 0.0, 0.0, 0, 0, 0.0,
651651
$ M, X, Z, 1, W, 1, RW, IW, I3, INFO )
652652
CALL CHKXER( 'CHEEVX_2STAGE', INFOT, NOUT, LERR, OK )
653653
INFOT = 6
654654
CALL CHEEVX_2STAGE( 'N', 'A', 'U', 2, A, 1,
655-
$ 0.0D0, 0.0D0, 0, 0, 0.0D0,
655+
$ 0.0, 0.0, 0, 0, 0.0,
656656
$ M, X, Z, 2, W, 3, RW, IW, I3, INFO )
657657
CALL CHKXER( 'CHEEVX_2STAGE', INFOT, NOUT, LERR, OK )
658658
INFOT = 8
659659
CALL CHEEVX_2STAGE( 'N', 'V', 'U', 1, A, 1,
660-
$ 0.0D0, 0.0D0, 0, 0, 0.0D0,
660+
$ 0.0, 0.0, 0, 0, 0.0,
661661
$ M, X, Z, 1, W, 1, RW, IW, I3, INFO )
662662
CALL CHKXER( 'CHEEVX_2STAGE', INFOT, NOUT, LERR, OK )
663663
INFOT = 9
664664
CALL CHEEVX_2STAGE( 'N', 'I', 'U', 1, A, 1,
665-
$ 0.0D0, 0.0D0, 0, 0, 0.0D0,
665+
$ 0.0, 0.0, 0, 0, 0.0,
666666
$ M, X, Z, 1, W, 1, RW, IW, I3, INFO )
667667
CALL CHKXER( 'CHEEVX_2STAGE', INFOT, NOUT, LERR, OK )
668668
INFOT = 10
669669
CALL CHEEVX_2STAGE( 'N', 'I', 'U', 2, A, 2,
670-
$ 0.0D0, 0.0D0, 2, 1, 0.0D0,
670+
$ 0.0, 0.0, 2, 1, 0.0,
671671
$ M, X, Z, 2, W, 3, RW, IW, I3, INFO )
672672
CALL CHKXER( 'CHEEVX_2STAGE', INFOT, NOUT, LERR, OK )
673673
INFOT = 15
674674
CALL CHEEVX_2STAGE( 'N', 'A', 'U', 2, A, 2,
675-
$ 0.0D0, 0.0D0, 0, 0, 0.0D0,
675+
$ 0.0, 0.0, 0, 0, 0.0,
676676
$ M, X, Z, 0, W, 3, RW, IW, I3, INFO )
677677
CALL CHKXER( 'CHEEVX_2STAGE', INFOT, NOUT, LERR, OK )
678678
INFOT = 17
679679
CALL CHEEVX_2STAGE( 'N', 'A', 'U', 2, A, 2,
680-
$ 0.0D0, 0.0D0, 0, 0, 0.0D0,
680+
$ 0.0, 0.0, 0, 0, 0.0,
681681
$ M, X, Z, 2, W, 0, RW, IW, I1, INFO )
682682
CALL CHKXER( 'CHEEVX_2STAGE', INFOT, NOUT, LERR, OK )
683683
NT = NT + 11
@@ -755,79 +755,79 @@ SUBROUTINE CERRST( PATH, NUNIT )
755755
N = 1
756756
INFOT = 1
757757
CALL CHEEVR_2STAGE( '/', 'A', 'U', 0, A, 1,
758-
$ 0.0D0, 0.0D0, 1, 1, 0.0D0,
758+
$ 0.0, 0.0, 1, 1, 0.0,
759759
$ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
760760
$ 10*N, INFO )
761761
CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
762762
INFOT = 1
763763
CALL CHEEVR_2STAGE( 'V', 'A', 'U', 0, A, 1,
764-
$ 0.0D0, 0.0D0, 1, 1, 0.0D0,
764+
$ 0.0, 0.0, 1, 1, 0.0,
765765
$ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
766766
$ 10*N, INFO )
767767
CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
768768
INFOT = 2
769769
CALL CHEEVR_2STAGE( 'N', '/', 'U', 0, A, 1,
770-
$ 0.0D0, 0.0D0, 1, 1, 0.0D0,
770+
$ 0.0, 0.0, 1, 1, 0.0,
771771
$ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
772772
$ 10*N, INFO )
773773
CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
774774
INFOT = 3
775775
CALL CHEEVR_2STAGE( 'N', 'A', '/', -1, A, 1,
776-
$ 0.0D0, 0.0D0, 1, 1, 0.0D0,
776+
$ 0.0, 0.0, 1, 1, 0.0,
777777
$ M, R, Z, 1, IW, Q, 2*N, RW, 24*N,
778778
$ IW( 2*N+1 ), 10*N, INFO )
779779
CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
780780
INFOT = 4
781781
CALL CHEEVR_2STAGE( 'N', 'A', 'U', -1, A, 1,
782-
$ 0.0D0, 0.0D0, 1, 1, 0.0D0,
782+
$ 0.0, 0.0, 1, 1, 0.0,
783783
$ M, R, Z, 1, IW, Q, 2*N, RW, 24*N,
784784
$ IW( 2*N+1 ), 10*N, INFO )
785785
CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
786786
INFOT = 6
787787
CALL CHEEVR_2STAGE( 'N', 'A', 'U', 2, A, 1,
788-
$ 0.0D0, 0.0D0, 1, 1, 0.0D0,
788+
$ 0.0, 0.0, 1, 1, 0.0,
789789
$ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
790790
$ 10*N, INFO )
791791
CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
792792
INFOT = 8
793793
CALL CHEEVR_2STAGE( 'N', 'V', 'U', 1, A, 1,
794-
$ 0.0D0, 0.0D0, 1, 1, 0.0D0,
794+
$ 0.0, 0.0, 1, 1, 0.0,
795795
$ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
796796
$ 10*N, INFO )
797797
CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
798798
INFOT = 9
799799
CALL CHEEVR_2STAGE( 'N', 'I', 'U', 1, A, 1,
800-
$ 0.0D0, 0.0D0, 0, 1, 0.0D0,
800+
$ 0.0, 0.0, 0, 1, 0.0,
801801
$ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
802802
$ 10*N, INFO )
803803
CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
804804
INFOT = 10
805805
CALL CHEEVR_2STAGE( 'N', 'I', 'U', 2, A, 2,
806-
$ 0.0D0, 0.0D0, 2, 1, 0.0D0,
806+
$ 0.0, 0.0, 2, 1, 0.0,
807807
$ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
808808
$ 10*N, INFO )
809809
CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
810810
INFOT = 15
811811
CALL CHEEVR_2STAGE( 'N', 'I', 'U', 1, A, 1,
812-
$ 0.0D0, 0.0D0, 1, 1, 0.0D0,
812+
$ 0.0, 0.0, 1, 1, 0.0,
813813
$ M, R, Z, 0, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
814814
$ 10*N, INFO )
815815
CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
816816
INFOT = 18
817817
CALL CHEEVR_2STAGE( 'N', 'I', 'U', 1, A, 1,
818-
$ 0.0D0, 0.0D0, 1, 1, 0.0D0,
818+
$ 0.0, 0.0, 1, 1, 0.0,
819819
$ M, R, Z, 1, IW, Q, 2*N-1, RW, 24*N, IW( 2*N+1 ),
820820
$ 10*N, INFO )
821821
CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
822822
INFOT = 20
823823
CALL CHEEVR_2STAGE( 'N', 'I', 'U', 1, A, 1,
824-
$ 0.0D0, 0.0D0, 1, 1, 0.0D0,
824+
$ 0.0, 0.0, 1, 1, 0.0,
825825
$ M, R, Z, 1, IW, Q, 26*N, RW, 24*N-1, IW( 2*N-1 ),
826826
$ 10*N, INFO )
827827
CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
828828
INFOT = 22
829829
CALL CHEEVR_2STAGE( 'N', 'I', 'U', 1, A, 1,
830-
$ 0.0D0, 0.0D0, 1, 1, 0.0D0,
830+
$ 0.0, 0.0, 1, 1, 0.0,
831831
$ M, R, Z, 1, IW, Q, 26*N, RW, 24*N, IW, 10*N-1,
832832
$ INFO )
833833
CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK )
@@ -1259,65 +1259,65 @@ SUBROUTINE CERRST( PATH, NUNIT )
12591259
SRNAMT = 'CHBEVX_2STAGE'
12601260
INFOT = 1
12611261
CALL CHBEVX_2STAGE( '/', 'A', 'U', 0, 0, A, 1, Q, 1,
1262-
$ 0.0D0, 0.0D0, 0, 0, 0.0D0,
1262+
$ 0.0, 0.0, 0, 0, 0.0,
12631263
$ M, X, Z, 1, W, 0, RW, IW, I3, INFO )
12641264
INFOT = 1
12651265
CALL CHBEVX_2STAGE( 'V', 'A', 'U', 0, 0, A, 1, Q, 1,
1266-
$ 0.0D0, 0.0D0, 0, 0, 0.0D0,
1266+
$ 0.0, 0.0, 0, 0, 0.0,
12671267
$ M, X, Z, 1, W, 0, RW, IW, I3, INFO )
12681268
CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK )
12691269
INFOT = 2
12701270
CALL CHBEVX_2STAGE( 'N', '/', 'U', 0, 0, A, 1, Q, 1,
1271-
$ 0.0D0, 1.0D0, 1, 0, 0.0D0,
1271+
$ 0.0, 1.0, 1, 0, 0.0,
12721272
$ M, X, Z, 1, W, 0, RW, IW, I3, INFO )
12731273
CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK )
12741274
INFOT = 3
12751275
CALL CHBEVX_2STAGE( 'N', 'A', '/', 0, 0, A, 1, Q, 1,
1276-
$ 0.0D0, 0.0D0, 0, 0, 0.0D0,
1276+
$ 0.0, 0.0, 0, 0, 0.0,
12771277
$ M, X, Z, 1, W, 0, RW, IW, I3, INFO )
12781278
INFOT = 4
12791279
CALL CHBEVX_2STAGE( 'N', 'A', 'U', -1, 0, A, 1, Q, 1,
1280-
$ 0.0D0, 0.0D0, 0, 0, 0.0D0,
1280+
$ 0.0, 0.0, 0, 0, 0.0,
12811281
$ M, X, Z, 1, W, 0, RW, IW, I3, INFO )
12821282
CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK )
12831283
INFOT = 5
12841284
CALL CHBEVX_2STAGE( 'N', 'A', 'U', 0, -1, A, 1, Q, 1,
1285-
$ 0.0D0, 0.0D0, 0, 0, 0.0D0,
1285+
$ 0.0, 0.0, 0, 0, 0.0,
12861286
$ M, X, Z, 1, W, 0, RW, IW, I3, INFO )
12871287
CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK )
12881288
INFOT = 7
12891289
CALL CHBEVX_2STAGE( 'N', 'A', 'U', 2, 1, A, 1, Q, 2,
1290-
$ 0.0D0, 0.0D0, 0, 0, 0.0D0,
1290+
$ 0.0, 0.0, 0, 0, 0.0,
12911291
$ M, X, Z, 2, W, 0, RW, IW, I3, INFO )
12921292
CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK )
12931293
* INFOT = 9
12941294
* CALL CHBEVX_2STAGE( 'V', 'A', 'U', 2, 0, A, 1, Q, 1,
1295-
* $ 0.0D0, 0.0D0, 0, 0, 0.0D0,
1295+
* $ 0.0, 0.0, 0, 0, 0.0,
12961296
* $ M, X, Z, 2, W, 0, RW, IW, I3, INFO )
12971297
* CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK )
12981298
INFOT = 11
12991299
CALL CHBEVX_2STAGE( 'N', 'V', 'U', 1, 0, A, 1, Q, 1,
1300-
$ 0.0D0, 0.0D0, 0, 0, 0.0D0,
1300+
$ 0.0, 0.0, 0, 0, 0.0,
13011301
$ M, X, Z, 1, W, 0, RW, IW, I3, INFO )
13021302
CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK )
13031303
INFOT = 12
13041304
CALL CHBEVX_2STAGE( 'N', 'I', 'U', 1, 0, A, 1, Q, 1,
1305-
$ 0.0D0, 0.0D0, 0, 0, 0.0D0,
1305+
$ 0.0, 0.0, 0, 0, 0.0,
13061306
$ M, X, Z, 1, W, 0, RW, IW, I3, INFO )
13071307
CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK )
13081308
INFOT = 13
13091309
CALL CHBEVX_2STAGE( 'N', 'I', 'U', 1, 0, A, 1, Q, 1,
1310-
$ 0.0D0, 0.0D0, 1, 2, 0.0D0,
1310+
$ 0.0, 0.0, 1, 2, 0.0,
13111311
$ M, X, Z, 1, W, 0, RW, IW, I3, INFO )
13121312
CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK )
13131313
INFOT = 18
13141314
CALL CHBEVX_2STAGE( 'N', 'A', 'U', 2, 0, A, 1, Q, 2,
1315-
$ 0.0D0, 0.0D0, 0, 0, 0.0D0,
1315+
$ 0.0, 0.0, 0, 0, 0.0,
13161316
$ M, X, Z, 0, W, 0, RW, IW, I3, INFO )
13171317
CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK )
13181318
INFOT = 20
13191319
CALL CHBEVX_2STAGE( 'N', 'A', 'U', 2, 0, A, 1, Q, 2,
1320-
$ 0.0D0, 0.0D0, 0, 0, 0.0D0,
1320+
$ 0.0, 0.0, 0, 0, 0.0,
13211321
$ M, X, Z, 1, W, 0, RW, IW, I3, INFO )
13221322
CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK )
13231323
NT = NT + 12

‎TESTING/LIN/cerrrfp.f‎

Lines changed: 13 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -63,7 +63,8 @@ SUBROUTINE CERRRFP( NUNIT )
6363
* ..
6464
* .. Local Scalars ..
6565
INTEGER INFO
66-
COMPLEX ALPHA, BETA
66+
COMPLEX ALPHACMPLX
67+
REAL ALPHA, BETA
6768
* ..
6869
* .. Local Arrays ..
6970
COMPLEX A( 1, 1), B( 1, 1)
@@ -91,8 +92,9 @@ SUBROUTINE CERRRFP( NUNIT )
9192
OK = .TRUE.
9293
A( 1, 1 ) = CMPLX( 1.0 , 1.0 )
9394
B( 1, 1 ) = CMPLX( 1.0 , 1.0 )
94-
ALPHA = CMPLX( 1.0 , 1.0 )
95-
BETA = CMPLX( 1.0 , 1.0 )
95+
ALPHACMPLX = CMPLX( 1.0 , 1.0 )
96+
ALPHA = 1.0
97+
BETA = 1.0
9698
*
9799
SRNAMT = 'CPFTRF'
98100
INFOT = 1
@@ -135,28 +137,28 @@ SUBROUTINE CERRRFP( NUNIT )
135137
*
136138
SRNAMT = 'CTFSM '
137139
INFOT = 1
138-
CALL CTFSM( '/', 'L', 'U', 'C', 'U', 0, 0, ALPHA, A, B, 1 )
140+
CALL CTFSM( '/', 'L', 'U', 'C', 'U', 0, 0, ALPHACMPLX, A, B, 1 )
139141
CALL CHKXER( 'CTFSM ', INFOT, NOUT, LERR, OK )
140142
INFOT = 2
141-
CALL CTFSM( 'N', '/', 'U', 'C', 'U', 0, 0, ALPHA, A, B, 1 )
143+
CALL CTFSM( 'N', '/', 'U', 'C', 'U', 0, 0, ALPHACMPLX, A, B, 1 )
142144
CALL CHKXER( 'CTFSM ', INFOT, NOUT, LERR, OK )
143145
INFOT = 3
144-
CALL CTFSM( 'N', 'L', '/', 'C', 'U', 0, 0, ALPHA, A, B, 1 )
146+
CALL CTFSM( 'N', 'L', '/', 'C', 'U', 0, 0, ALPHACMPLX, A, B, 1 )
145147
CALL CHKXER( 'CTFSM ', INFOT, NOUT, LERR, OK )
146148
INFOT = 4
147-
CALL CTFSM( 'N', 'L', 'U', '/', 'U', 0, 0, ALPHA, A, B, 1 )
149+
CALL CTFSM( 'N', 'L', 'U', '/', 'U', 0, 0, ALPHACMPLX, A, B, 1 )
148150
CALL CHKXER( 'CTFSM ', INFOT, NOUT, LERR, OK )
149151
INFOT = 5
150-
CALL CTFSM( 'N', 'L', 'U', 'C', '/', 0, 0, ALPHA, A, B, 1 )
152+
CALL CTFSM( 'N', 'L', 'U', 'C', '/', 0, 0, ALPHACMPLX, A, B, 1 )
151153
CALL CHKXER( 'CTFSM ', INFOT, NOUT, LERR, OK )
152154
INFOT = 6
153-
CALL CTFSM( 'N', 'L', 'U', 'C', 'U', -1, 0, ALPHA, A, B, 1 )
155+
CALL CTFSM( 'N', 'L', 'U', 'C', 'U', -1, 0, ALPHACMPLX, A, B, 1 )
154156
CALL CHKXER( 'CTFSM ', INFOT, NOUT, LERR, OK )
155157
INFOT = 7
156-
CALL CTFSM( 'N', 'L', 'U', 'C', 'U', 0, -1, ALPHA, A, B, 1 )
158+
CALL CTFSM( 'N', 'L', 'U', 'C', 'U', 0, -1, ALPHACMPLX, A, B, 1 )
157159
CALL CHKXER( 'CTFSM ', INFOT, NOUT, LERR, OK )
158160
INFOT = 11
159-
CALL CTFSM( 'N', 'L', 'U', 'C', 'U', 0, 0, ALPHA, A, B, 0 )
161+
CALL CTFSM( 'N', 'L', 'U', 'C', 'U', 0, 0, ALPHACMPLX, A, B, 0 )
160162
CALL CHKXER( 'CTFSM ', INFOT, NOUT, LERR, OK )
161163
*
162164
SRNAMT = 'CTFTRI'

‎TESTING/LIN/clqt04.f‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -86,8 +86,9 @@ SUBROUTINE CLQT04(M,N,NB,RESULT)
8686
* ..
8787
* .. Local allocatable arrays
8888
COMPLEX, ALLOCATABLE :: AF(:,:), Q(:,:),
89-
$ L(:,:), RWORK(:), WORK( : ), T(:,:),
89+
$ L(:,:), WORK( : ), T(:,:),
9090
$ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:)
91+
REAL, ALLOCATABLE :: RWORK(:)
9192
*
9293
* .. Parameters ..
9394
REAL ZERO

‎TESTING/LIN/clqt05.f‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -93,8 +93,9 @@ SUBROUTINE CLQT05(M,N,L,NB,RESULT)
9393
* ..
9494
* .. Local allocatable arrays
9595
COMPLEX, ALLOCATABLE :: AF(:,:), Q(:,:),
96-
$ R(:,:), RWORK(:), WORK( : ), T(:,:),
96+
$ R(:,:), WORK( : ), T(:,:),
9797
$ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:)
98+
REAL, ALLOCATABLE :: RWORK(:)
9899
*
99100
* .. Parameters ..
100101
REAL ZERO

‎TESTING/LIN/ctsqr01.f‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -96,8 +96,9 @@ SUBROUTINE CTSQR01(TSSW, M, N, MB, NB, RESULT)
9696
* ..
9797
* .. Local allocatable arrays
9898
COMPLEX, ALLOCATABLE :: AF(:,:), Q(:,:),
99-
$ R(:,:), RWORK(:), WORK( : ), T(:),
99+
$ R(:,:), WORK( : ), T(:),
100100
$ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:), LQ(:,:)
101+
REAL, ALLOCATABLE :: RWORK(:)
101102
*
102103
* .. Parameters ..
103104
REAL ZERO

‎TESTING/LIN/cunhr_col01.f‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -311,7 +311,7 @@ SUBROUTINE CUNHR_COL01( M, N, MB1, NB1, NB2, RESULT )
311311
* Compute |I - (Q**H)*Q| / ( eps * m ) and store in RESULT(2)
312312
*
313313
CALL CLASET( 'Full', M, M, CZERO, CONE, R, M )
314-
CALL CHERK( 'U', 'C', M, M, -CONE, Q, M, CONE, R, M )
314+
CALL CHERK( 'U', 'C', M, M, REAL(-CONE), Q, M, REAL(CONE), R, M )
315315
RESID = CLANSY( '1', 'Upper', M, R, M, RWORK )
316316
RESULT( 2 ) = RESID / ( EPS * MAX( 1, M ) )
317317
*

‎TESTING/LIN/cunhr_col02.f‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -273,7 +273,7 @@ SUBROUTINE CUNHR_COL02( M, N, MB1, NB1, NB2, RESULT )
273273
* Compute |I - (Q**T)*Q| / ( eps * m ) and store in RESULT(2)
274274
*
275275
CALL CLASET( 'Full', M, M, CZERO, CONE, R, M )
276-
CALL CHERK( 'U', 'C', M, M, -CONE, Q, M, CONE, R, M )
276+
CALL CHERK( 'U', 'C', M, M, REAL(-CONE), Q, M, REAL(CONE), R, M )
277277
RESID = CLANSY( '1', 'Upper', M, R, M, RWORK )
278278
RESULT( 2 ) = RESID / ( EPS * MAX( 1, M ) )
279279
*

‎TESTING/LIN/zchkhe_aa_2stage.f‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -185,7 +185,8 @@ SUBROUTINE ZCHKHE_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS,
185185
LOGICAL DOTYPE( * )
186186
INTEGER IWORK( * ), NBVAL( * ), NSVAL( * ), NVAL( * )
187187
COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ),
188-
$ RWORK( * ), WORK( * ), X( * ), XACT( * )
188+
$ WORK( * ), X( * ), XACT( * )
189+
DOUBLE PRECISION RWORK( * )
189190
* ..
190191
*
191192
* =====================================================================

‎TESTING/LIN/zlqt04.f‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -86,8 +86,9 @@ SUBROUTINE ZLQT04(M,N,NB,RESULT)
8686
* ..
8787
* .. Local allocatable arrays
8888
COMPLEX*16, ALLOCATABLE :: AF(:,:), Q(:,:),
89-
$ L(:,:), RWORK(:), WORK( : ), T(:,:),
89+
$ L(:,:), WORK( : ), T(:,:),
9090
$ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:)
91+
DOUBLE PRECISION, ALLOCATABLE :: RWORK(:)
9192
*
9293
* .. Parameters ..
9394
DOUBLE PRECISION ZERO

‎TESTING/LIN/zlqt05.f‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -93,8 +93,9 @@ SUBROUTINE ZLQT05(M,N,L,NB,RESULT)
9393
* ..
9494
* .. Local allocatable arrays
9595
COMPLEX*16, ALLOCATABLE :: AF(:,:), Q(:,:),
96-
$ R(:,:), RWORK(:), WORK( : ), T(:,:),
96+
$ R(:,:), WORK( : ), T(:,:),
9797
$ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:)
98+
DOUBLE PRECISION, ALLOCATABLE :: RWORK(:)
9899
*
99100
* .. Parameters ..
100101
DOUBLE PRECISION ZERO

0 commit comments

Comments
 (0)