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