Fix potential initiation issue in (c,d,s,z)lansy.f
authorjulie <julielangou@users.noreply.github.com>
Fri, 14 Feb 2014 21:13:20 +0000 (21:13 +0000)
committerjulie <julielangou@users.noreply.github.com>
Fri, 14 Feb 2014 21:13:20 +0000 (21:13 +0000)
commit06cdfd1dfb1d314f98e086caf7b5043c181964f8
tree8a96a1a132f7988c0322610133e252b2ef7a2ad9
parent54d66c762f545a634179707f1cd661989ea33a5f
Fix potential initiation issue in (c,d,s,z)lansy.f
Bug report sent from Elena Ivanova on Feb 2014

Array WORK is initialized with ZERO when 'L' and is not initialized when 'U'.
There can be some garbage in WORK. Move up the initialization of WORK before the line
   IF( LSAME( UPLO, 'U' ) ) THEN.

Rearrange loop ordering numbers.
SRC/clansy.f
SRC/dlansy.f
SRC/slansy.f
SRC/zlansy.f