3 * This program core dumps on mips-sgi-irix6.2 when compiled
4 * with egcs-19981101, egcs-19981109 and egcs-19981122 snapshots
7 * Originally derived from LAPACK test suite.
8 * Almost any change allows it to run.
10 * David Billinghurst, (David.Billinghurst@riotinto.com.au)
15 PARAMETER ( LDA = 2500, LDE = 50 )
17 PARAMETER ( CZERO = ( 0.0E+0, 0.0E+0 ) )
21 COMPLEX A(LDA),B(LDA),C(LDA),E(LDE,LDE),F(LDE,LDE)
36 V = ABS( E(I,J) - F(I,J) )