MATGEN fix -Werror=conversion problems

Author: mkrainiuk

TESTING/MATGEN/clahilb.f

@@ -226,15 +226,15 @@ SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK,
       IF ( LSAMEN( 2, C2, 'SY' ) ) THEN
          DO J = 1, N
             DO I = 1, N
-               A(I, J) = D1(MOD(J,SIZE_D)+1) * (REAL(M) / (I + J - 1))
-     $              * D1(MOD(I,SIZE_D)+1)
+               A(I, J) = D1(MOD(J,SIZE_D)+1) * (REAL(M)
+     $              / REAL(I + J - 1)) * D1(MOD(I,SIZE_D)+1)
             END DO
          END DO
       ELSE
          DO J = 1, N
             DO I = 1, N
-               A(I, J) = D1(MOD(J,SIZE_D)+1) * (REAL(M) / (I + J - 1))
-     $              * D2(MOD(I,SIZE_D)+1)
+               A(I, J) = D1(MOD(J,SIZE_D)+1) * (REAL(M)
+     $              / REAL(I + J - 1)) * D2(MOD(I,SIZE_D)+1)
             END DO
          END DO
       END IF
@@ -247,10 +247,10 @@ SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK,
 *     Generate the true solutions in X.  Because B = the first NRHS
 *     columns of M*I, the true solutions are just the first NRHS columns
 *     of the inverse Hilbert matrix.
-      WORK(1) = N
+      WORK(1) = REAL(N)
       DO J = 2, N
-         WORK(J) = (  ( (WORK(J-1)/(J-1)) * (J-1 - N) ) /(J-1)  )
-     $        * (N +J -1)
+         WORK(J) = (  ( (WORK(J-1)/REAL(J-1)) * REAL(J-1 - N) )
+     $        / REAL(J-1)  ) * REAL(N +J -1)
       END DO
 
 *     If we are testing SY routines,
@@ -260,7 +260,7 @@ SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK,
             DO I = 1, N
                X(I, J) =
      $              INVD1(MOD(J,SIZE_D)+1) *
-     $              ((WORK(I)*WORK(J)) / (I + J - 1))
+     $              ((WORK(I)*WORK(J)) / REAL(I + J - 1))
      $              * INVD1(MOD(I,SIZE_D)+1)
             END DO
          END DO
@@ -269,7 +269,7 @@ SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK,
             DO I = 1, N
                X(I, J) =
      $              INVD2(MOD(J,SIZE_D)+1) *
-     $              ((WORK(I)*WORK(J)) / (I + J - 1))
+     $              ((WORK(I)*WORK(J)) / REAL(I + J - 1))
      $              * INVD1(MOD(I,SIZE_D)+1)
             END DO
          END DO

TESTING/MATGEN/slahilb.f

@@ -197,7 +197,7 @@ SUBROUTINE SLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK,
 *     Generate the scaled Hilbert matrix in A
       DO J = 1, N
          DO I = 1, N
-            A(I, J) = REAL(M) / (I + J - 1)
+            A(I, J) = REAL(M) / REAL(I + J - 1)
          END DO
       END DO
 *
@@ -208,15 +208,15 @@ SUBROUTINE SLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK,
 *     Generate the true solutions in X.  Because B = the first NRHS
 *     columns of M*I, the true solutions are just the first NRHS columns
 *     of the inverse Hilbert matrix.
-      WORK(1) = N
+      WORK(1) = REAL(N)
       DO J = 2, N
-         WORK(J) = (  ( (WORK(J-1)/(J-1)) * (J-1 - N) ) /(J-1)  )
-     $        * (N +J -1)
+         WORK(J) = (  ( (WORK(J-1)/REAL(J-1)) * REAL(J-1 - N) )
+     $        /REAL(J-1) ) * REAL(N +J -1)
       END DO
 *
       DO J = 1, NRHS
          DO I = 1, N
-            X(I, J) = (WORK(I)*WORK(J)) / (I + J - 1)
+            X(I, J) = (WORK(I)*WORK(J)) / REAL(I + J - 1)
          END DO
       END DO
 *