From 7f2f7a339eac4827b5614ca1c6960356e31fd9fd Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Fri, 1 Jul 2022 11:44:33 +0100 Subject: [PATCH] Fixed nagfor warning: 'Low-precision data-value assigned to high-precision data-object' --- TESTING/MATGEN/zlahilb.f | 22 ++++++++++++++-------- 1 file changed, 14 insertions(+), 8 deletions(-) diff --git a/TESTING/MATGEN/zlahilb.f b/TESTING/MATGEN/zlahilb.f index 172c7694de..858b7444af 100644 --- a/TESTING/MATGEN/zlahilb.f +++ b/TESTING/MATGEN/zlahilb.f @@ -161,15 +161,21 @@ SUBROUTINE ZLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INTEGER NMAX_EXACT, NMAX_APPROX, SIZE_D PARAMETER (NMAX_EXACT = 6, NMAX_APPROX = 11, SIZE_D = 8) * -* d's are generated from random permutation of those eight elements. - COMPLEX*16 d1(8), d2(8), invd1(8), invd2(8) - DATA D1 /(-1,0),(0,1),(-1,-1),(0,-1),(1,0),(-1,1),(1,1),(1,-1)/ - DATA D2 /(-1,0),(0,-1),(-1,1),(0,1),(1,0),(-1,-1),(1,-1),(1,1)/ +* D's are generated from random permutation of those eight elements. + COMPLEX*16 D1(8), D2(8), INVD1(8), INVD2(8) + DATA D1 /(-1.0D0,0.0D0),(0.0D0,1.0D0),(-1.0D0,-1.0D0), + $ (0.0D0,-1.0D0),(1.0D0,0.0D0),(-1.0D0,1.0D0),(1.0D0,1.0D0), + $ (1.0D0,-1.0D0)/ + DATA D2 /(-1.0D0,0.0D0),(0.0D0,-1.0D0),(-1.0D0,1.0D0), + $ (0.0D0,1.0D0),(1.0D0,0.0D0),(-1.0D0,-1.0D0),(1.0D0,-1.0D0), + $ (1.0D0,1.0D0)/ - DATA INVD1 /(-1,0),(0,-1),(-.5,.5),(0,1),(1,0), - $ (-.5,-.5),(.5,-.5),(.5,.5)/ - DATA INVD2 /(-1,0),(0,1),(-.5,-.5),(0,-1),(1,0), - $ (-.5,.5),(.5,.5),(.5,-.5)/ + DATA INVD1 /(-1.0D0,0.0D0),(0.0D0,-1.0D0),(-0.5D0,0.5D0), + $ (0.0D0,1.0D0),(1.0D0,0.0D0),(-0.5D0,-0.5D0),(0.5D0,-0.5D0), + $ (0.5D0,0.5D0)/ + DATA INVD2 /(-1.0D0,0.0D0),(0.0D0,1.0D0),(-0.5D0,-0.5D0), + $ (0.0D0,-1.0D0),(1.0D0,0.0D0),(-0.5D0,0.5D0),(0.5D0,0.5D0), + $ (0.5D0,-0.5D0)/ * .. * .. External Subroutines .. EXTERNAL XERBLA