@@ -173,46 +173,46 @@ int main(int argc, char *argv[]){
173173#ifndef COMPLEX
174174 if (uplos & 1 ) {
175175 for (j = 0 ; j < m ; j ++ ) {
176- for (i = 0 ; i < j ; i ++ ) a [i + j * m ] = 0. ;
177- a [j + j * m ] = ((double ) rand () / (double ) RAND_MAX ) + 8. ;
178- for (i = j + 1 ; i < m ; i ++ ) a [i + j * m ] = ((double ) rand () / (double ) RAND_MAX ) - 0.5 ;
176+ for (i = 0 ; i < j ; i ++ ) a [( long ) i + ( long ) j * ( long ) m ] = 0. ;
177+ a [( long ) j + ( long ) j * ( long ) m ] = ((double ) rand () / (double ) RAND_MAX ) + 8. ;
178+ for (i = j + 1 ; i < m ; i ++ ) a [( long ) i + ( long ) j * ( long ) m ] = ((double ) rand () / (double ) RAND_MAX ) - 0.5 ;
179179 }
180180 } else {
181181 for (j = 0 ; j < m ; j ++ ) {
182- for (i = 0 ; i < j ; i ++ ) a [i + j * m ] = ((double ) rand () / (double ) RAND_MAX ) - 0.5 ;
183- a [j + j * m ] = ((double ) rand () / (double ) RAND_MAX ) + 8. ;
184- for (i = j + 1 ; i < m ; i ++ ) a [i + j * m ] = 0. ;
182+ for (i = 0 ; i < j ; i ++ ) a [( long ) i + ( long ) j * ( long ) m ] = ((double ) rand () / (double ) RAND_MAX ) - 0.5 ;
183+ a [( long ) j + ( long ) j * ( long ) m ] = ((double ) rand () / (double ) RAND_MAX ) + 8. ;
184+ for (i = j + 1 ; i < m ; i ++ ) a [( long ) i + ( long ) j * ( long ) m ] = 0. ;
185185 }
186186 }
187187#else
188188 if (uplos & 1 ) {
189189 for (j = 0 ; j < m ; j ++ ) {
190190 for (i = 0 ; i < j ; i ++ ) {
191- a [(i + j * m ) * 2 + 0 ] = 0. ;
192- a [(i + j * m ) * 2 + 1 ] = 0. ;
191+ a [(( long ) i + ( long ) j * ( long ) m ) * 2 + 0 ] = 0. ;
192+ a [(( long ) i + ( long ) j * ( long ) m ) * 2 + 1 ] = 0. ;
193193 }
194194
195- a [(j + j * m ) * 2 + 0 ] = ((double ) rand () / (double ) RAND_MAX ) + 8. ;
196- a [(j + j * m ) * 2 + 1 ] = 0. ;
195+ a [(( long ) j + ( long ) j * ( long ) m ) * 2 + 0 ] = ((double ) rand () / (double ) RAND_MAX ) + 8. ;
196+ a [(( long ) j + ( long ) j * ( long ) m ) * 2 + 1 ] = 0. ;
197197
198198 for (i = j + 1 ; i < m ; i ++ ) {
199- a [(i + j * m ) * 2 + 0 ] = ((double ) rand () / (double ) RAND_MAX ) - 0.5 ;
200- a [(i + j * m ) * 2 + 1 ] = ((double ) rand () / (double ) RAND_MAX ) - 0.5 ;
199+ a [(( long ) i + ( long ) j * ( long ) m ) * 2 + 0 ] = ((double ) rand () / (double ) RAND_MAX ) - 0.5 ;
200+ a [(( long ) i + ( long ) j * ( long ) m ) * 2 + 1 ] = ((double ) rand () / (double ) RAND_MAX ) - 0.5 ;
201201 }
202202 }
203203 } else {
204204 for (j = 0 ; j < m ; j ++ ) {
205205 for (i = 0 ; i < j ; i ++ ) {
206- a [(i + j * m ) * 2 + 0 ] = ((double ) rand () / (double ) RAND_MAX ) - 0.5 ;
207- a [(i + j * m ) * 2 + 1 ] = ((double ) rand () / (double ) RAND_MAX ) - 0.5 ;
206+ a [(( long ) i + ( long ) j * ( long ) m ) * 2 + 0 ] = ((double ) rand () / (double ) RAND_MAX ) - 0.5 ;
207+ a [(( long ) i + ( long ) j * ( long ) m ) * 2 + 1 ] = ((double ) rand () / (double ) RAND_MAX ) - 0.5 ;
208208 }
209209
210- a [(j + j * m ) * 2 + 0 ] = ((double ) rand () / (double ) RAND_MAX ) + 8. ;
211- a [(j + j * m ) * 2 + 1 ] = 0. ;
210+ a [(( long ) j + ( long ) j * ( long ) m ) * 2 + 0 ] = ((double ) rand () / (double ) RAND_MAX ) + 8. ;
211+ a [(( long ) j + ( long ) j * ( long ) m ) * 2 + 1 ] = 0. ;
212212
213213 for (i = j + 1 ; i < m ; i ++ ) {
214- a [(i + j * m ) * 2 + 0 ] = 0. ;
215- a [(i + j * m ) * 2 + 1 ] = 0. ;
214+ a [(( long ) i + ( long ) j * ( long ) m ) * 2 + 0 ] = 0. ;
215+ a [(( long ) i + ( long ) j * ( long ) m ) * 2 + 1 ] = 0. ;
216216 }
217217 }
218218 }
@@ -239,21 +239,27 @@ int main(int argc, char *argv[]){
239239 for (j = 0 ; j < m ; j ++ ) {
240240 for (i = 0 ; i <= j ; i ++ ) {
241241#ifndef COMPLEX
242- if (maxerr < fabs (a [i + j * m ] - b [i + j * m ])) maxerr = fabs (a [i + j * m ] - b [i + j * m ]);
242+ if (maxerr < fabs (a [(long )i + (long )j * (long )m ] - b [(long )i + (long )j * (long )m ]))
243+ maxerr = fabs (a [(long )i + (long )j * (long )m ] - b [(long )i + (long )j * (long )m ]);
243244#else
244- if (maxerr < fabs (a [(i + j * m ) * 2 + 0 ] - b [(i + j * m ) * 2 + 0 ])) maxerr = fabs (a [(i + j * m ) * 2 + 0 ] - b [(i + j * m ) * 2 + 0 ]);
245- if (maxerr < fabs (a [(i + j * m ) * 2 + 1 ] - b [(i + j * m ) * 2 + 1 ])) maxerr = fabs (a [(i + j * m ) * 2 + 1 ] - b [(i + j * m ) * 2 + 1 ]);
245+ if (maxerr < fabs (a [((long )i + (long )j * (long )m ) * 2 + 0 ] - b [((long )i + (long )j * (long )m ) * 2 + 0 ]))
246+ maxerr = fabs (a [((long )i + (long )j * (long )m ) * 2 + 0 ] - b [((long )i + (long )j * (long )m ) * 2 + 0 ]);
247+ if (maxerr < fabs (a [((long )i + (long )j * (long )m ) * 2 + 1 ] - b [((long )i + (long )j * (long )m ) * 2 + 1 ]))
248+ maxerr = fabs (a [((long )i + (long )j * (long )m ) * 2 + 1 ] - b [((long )i + (long )j * (long )m ) * 2 + 1 ]);
246249#endif
247250 }
248251 }
249252 } else {
250253 for (j = 0 ; j < m ; j ++ ) {
251254 for (i = j ; i < m ; i ++ ) {
252255#ifndef COMPLEX
253- if (maxerr < fabs (a [i + j * m ] - b [i + j * m ])) maxerr = fabs (a [i + j * m ] - b [i + j * m ]);
256+ if (maxerr < fabs (a [(long )i + (long )j * (long )m ] - b [(long )i + (long )j * (long )m ]))
257+ maxerr = fabs (a [(long )i + (long )j * (long )m ] - b [(long )i + (long )j * (long )m ]);
254258#else
255- if (maxerr < fabs (a [(i + j * m ) * 2 + 0 ] - b [(i + j * m ) * 2 + 0 ])) maxerr = fabs (a [(i + j * m ) * 2 + 0 ] - b [(i + j * m ) * 2 + 0 ]);
256- if (maxerr < fabs (a [(i + j * m ) * 2 + 1 ] - b [(i + j * m ) * 2 + 1 ])) maxerr = fabs (a [(i + j * m ) * 2 + 1 ] - b [(i + j * m ) * 2 + 1 ]);
259+ if (maxerr < fabs (a [((long )i + (long )j * (long )m ) * 2 + 0 ] - b [((long )i + (long )j * (long )m ) * 2 + 0 ]))
260+ maxerr = fabs (a [((long )i + (long )j * (long )m ) * 2 + 0 ] - b [((long )i + (long )j * (long )m ) * 2 + 0 ]);
261+ if (maxerr < fabs (a [((long )i + (long )j * (long )m ) * 2 + 1 ] - b [((long )i + (long )j * (long )m ) * 2 + 1 ]))
262+ maxerr = fabs (a [((long )i + (long )j * (long )m ) * 2 + 1 ] - b [((long )i + (long )j * (long )m ) * 2 + 1 ]);
257263#endif
258264 }
259265 }
0 commit comments