APPLYING INTEL PATCHES sent to Julie on Feb 19th 2016 by Dima from INTEL (dmitry...
authorjulie <julielangou@users.noreply.github.com>
Tue, 23 Feb 2016 05:02:09 +0000 (05:02 +0000)
committerjulie <julielangou@users.noreply.github.com>
Tue, 23 Feb 2016 05:02:09 +0000 (05:02 +0000)
Subject: [PATCH 03/42] Fix ?GGHD3: LQUERY with N=0 shall return 1, not 0

SRC/cgghd3.f
SRC/dgghd3.f
SRC/sgghd3.f
SRC/zgghd3.f

index 112b41a1790390daeb9f272600c9a3b5b063dd3d..d434b7f7ef7db37f726b4f0dc5020c933623a273 100644 (file)
 *
       INFO = 0
       NB = ILAENV( 1, 'CGGHD3', ' ', N, ILO, IHI, -1 )
-      LWKOPT = 6*N*NB
+      LWKOPT = MAX( 6*N*NB, 1 )
       WORK( 1 ) = CMPLX( LWKOPT )
       INITQ = LSAME( COMPQ, 'I' )
       WANTQ = INITQ .OR. LSAME( COMPQ, 'V' )
index 812df3f232570975460a169cb13015d8bf7a70d6..946aece3af4eb6646d735a5b69f30eb941870df7 100644 (file)
 *
       INFO = 0
       NB = ILAENV( 1, 'DGGHD3', ' ', N, ILO, IHI, -1 )
-      LWKOPT = 6*N*NB
+      LWKOPT = MAX( 6*N*NB, 1 )
       WORK( 1 ) = DBLE( LWKOPT )
       INITQ = LSAME( COMPQ, 'I' )
       WANTQ = INITQ .OR. LSAME( COMPQ, 'V' )
index 3c58aea786350a4fcad683b9d525aa816d0eee80..fd530834e918cffc4fa00e7f94d22ea91e95031f 100644 (file)
 *
       INFO = 0
       NB = ILAENV( 1, 'SGGHD3', ' ', N, ILO, IHI, -1 )
-      LWKOPT = 6*N*NB
+      LWKOPT = MAX( 6*N*NB, 1 )
       WORK( 1 ) = REAL( LWKOPT )
       INITQ = LSAME( COMPQ, 'I' )
       WANTQ = INITQ .OR. LSAME( COMPQ, 'V' )
index 9d6e36285cf496f70b2d01874717c46f6f2b07d7..1f222df421777feb2fe21e3c03f68d80d77a9cd0 100644 (file)
 *
       INFO = 0
       NB = ILAENV( 1, 'ZGGHD3', ' ', N, ILO, IHI, -1 )
-      LWKOPT = 6*N*NB
+      LWKOPT = MAX( 6*N*NB, 1 )
       WORK( 1 ) = DCMPLX( LWKOPT )
       INITQ = LSAME( COMPQ, 'I' )
       WANTQ = INITQ .OR. LSAME( COMPQ, 'V' )