Define type conversions explicitly (Reference-LAPACK PR 703)

2022-11-19 15:11:05 +01:00
parent 08bc43c73d
commit e9b0f5a364
15 changed files with 22 additions and 22 deletions
@@ -280,7 +280,7 @@
            LWKOPT = 1
         ELSE
            CALL SSYTRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, -1, INFO )
-            LWKOPT = WORK(1)
+            LWKOPT = INT( WORK( 1 ) )
         END IF
         WORK( 1 ) = LWKOPT
      END IF