Skip to content

Commit ac2c568

Browse files
committed
MATGEN fix -Werror=conversion problems
1 parent 56aa979 commit ac2c568

File tree

2 files changed

+14
-14
lines changed

2 files changed

+14
-14
lines changed

TESTING/MATGEN/clahilb.f

Lines changed: 9 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -226,15 +226,15 @@ SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK,
226226
IF ( LSAMEN( 2, C2, 'SY' ) ) THEN
227227
DO J = 1, N
228228
DO I = 1, N
229-
A(I, J) = D1(MOD(J,SIZE_D)+1) * (REAL(M) / (I + J - 1))
230-
$ * D1(MOD(I,SIZE_D)+1)
229+
A(I, J) = D1(MOD(J,SIZE_D)+1) * (REAL(M)
230+
$ / REAL(I + J - 1)) * D1(MOD(I,SIZE_D)+1)
231231
END DO
232232
END DO
233233
ELSE
234234
DO J = 1, N
235235
DO I = 1, N
236-
A(I, J) = D1(MOD(J,SIZE_D)+1) * (REAL(M) / (I + J - 1))
237-
$ * D2(MOD(I,SIZE_D)+1)
236+
A(I, J) = D1(MOD(J,SIZE_D)+1) * (REAL(M)
237+
$ / REAL(I + J - 1)) * D2(MOD(I,SIZE_D)+1)
238238
END DO
239239
END DO
240240
END IF
@@ -247,10 +247,10 @@ SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK,
247247
* Generate the true solutions in X. Because B = the first NRHS
248248
* columns of M*I, the true solutions are just the first NRHS columns
249249
* of the inverse Hilbert matrix.
250-
WORK(1) = N
250+
WORK(1) = REAL(N)
251251
DO J = 2, N
252-
WORK(J) = ( ( (WORK(J-1)/(J-1)) * (J-1 - N) ) /(J-1) )
253-
$ * (N +J -1)
252+
WORK(J) = ( ( (WORK(J-1)/REAL(J-1)) * REAL(J-1 - N) )
253+
$ / REAL(J-1) ) * REAL(N +J -1)
254254
END DO
255255

256256
* If we are testing SY routines,
@@ -260,7 +260,7 @@ SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK,
260260
DO I = 1, N
261261
X(I, J) =
262262
$ INVD1(MOD(J,SIZE_D)+1) *
263-
$ ((WORK(I)*WORK(J)) / (I + J - 1))
263+
$ ((WORK(I)*WORK(J)) / REAL(I + J - 1))
264264
$ * INVD1(MOD(I,SIZE_D)+1)
265265
END DO
266266
END DO
@@ -269,7 +269,7 @@ SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK,
269269
DO I = 1, N
270270
X(I, J) =
271271
$ INVD2(MOD(J,SIZE_D)+1) *
272-
$ ((WORK(I)*WORK(J)) / (I + J - 1))
272+
$ ((WORK(I)*WORK(J)) / REAL(I + J - 1))
273273
$ * INVD1(MOD(I,SIZE_D)+1)
274274
END DO
275275
END DO

TESTING/MATGEN/slahilb.f

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -197,7 +197,7 @@ SUBROUTINE SLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK,
197197
* Generate the scaled Hilbert matrix in A
198198
DO J = 1, N
199199
DO I = 1, N
200-
A(I, J) = REAL(M) / (I + J - 1)
200+
A(I, J) = REAL(M) / REAL(I + J - 1)
201201
END DO
202202
END DO
203203
*
@@ -208,15 +208,15 @@ SUBROUTINE SLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK,
208208
* Generate the true solutions in X. Because B = the first NRHS
209209
* columns of M*I, the true solutions are just the first NRHS columns
210210
* of the inverse Hilbert matrix.
211-
WORK(1) = N
211+
WORK(1) = REAL(N)
212212
DO J = 2, N
213-
WORK(J) = ( ( (WORK(J-1)/(J-1)) * (J-1 - N) ) /(J-1) )
214-
$ * (N +J -1)
213+
WORK(J) = ( ( (WORK(J-1)/REAL(J-1)) * REAL(J-1 - N) )
214+
$ /REAL(J-1) ) * REAL(N +J -1)
215215
END DO
216216
*
217217
DO J = 1, NRHS
218218
DO I = 1, N
219-
X(I, J) = (WORK(I)*WORK(J)) / (I + J - 1)
219+
X(I, J) = (WORK(I)*WORK(J)) / REAL(I + J - 1)
220220
END DO
221221
END DO
222222
*

0 commit comments

Comments
 (0)