Mercurial > hg > octave-avbm
comparison src/pr-output.cc @ 278:c2189d67a05c
[project @ 1994-01-08 22:43:22 by jwe]
author | jwe |
---|---|
date | Sat, 08 Jan 1994 22:43:27 +0000 |
parents | a99f28f5e351 |
children | 3c23b8ea9099 |
comparison
equal
deleted
inserted
replaced
277:1781618ec883 | 278:c2189d67a05c |
---|---|
187 curr_imag_fmt = (char *) NULL; | 187 curr_imag_fmt = (char *) NULL; |
188 | 188 |
189 if (free_format) | 189 if (free_format) |
190 return; | 190 return; |
191 | 191 |
192 static char fmt_buf[32]; | 192 static char fmt_buf[128]; |
193 | 193 |
194 int sign = (d < 0.0); | 194 int sign = (d < 0.0); |
195 | 195 |
196 int inf_or_nan = (xisinf (d) || xisnan (d)); | 196 int inf_or_nan = (xisinf (d) || xisnan (d)); |
197 | 197 |
278 curr_imag_fmt = (char *) NULL; | 278 curr_imag_fmt = (char *) NULL; |
279 | 279 |
280 if (free_format) | 280 if (free_format) |
281 return; | 281 return; |
282 | 282 |
283 static char fmt_buf[32]; | 283 static char fmt_buf[128]; |
284 | 284 |
285 int sign = any_element_is_negative (m); | 285 int sign = any_element_is_negative (m); |
286 | 286 |
287 int inf_or_nan = any_element_is_inf_or_nan (m); | 287 int inf_or_nan = any_element_is_inf_or_nan (m); |
288 | 288 |
392 curr_imag_fmt = (char *) NULL; | 392 curr_imag_fmt = (char *) NULL; |
393 | 393 |
394 if (free_format) | 394 if (free_format) |
395 return; | 395 return; |
396 | 396 |
397 static char r_fmt_buf[32]; | 397 static char r_fmt_buf[128]; |
398 static char i_fmt_buf[32]; | 398 static char i_fmt_buf[128]; |
399 | 399 |
400 double rp = c.real (); | 400 double rp = c.real (); |
401 double ip = c.imag (); | 401 double ip = c.imag (); |
402 | 402 |
403 int sign = (rp < 0.0); | 403 int sign = (rp < 0.0); |
531 curr_imag_fmt = (char *) NULL; | 531 curr_imag_fmt = (char *) NULL; |
532 | 532 |
533 if (free_format) | 533 if (free_format) |
534 return; | 534 return; |
535 | 535 |
536 static char r_fmt_buf[32]; | 536 static char r_fmt_buf[128]; |
537 static char i_fmt_buf[32]; | 537 static char i_fmt_buf[128]; |
538 | 538 |
539 Matrix rp = real (cm); | 539 Matrix rp = real (cm); |
540 Matrix ip = imag (cm); | 540 Matrix ip = imag (cm); |
541 | 541 |
542 int sign = any_element_is_negative (rp); | 542 int sign = any_element_is_negative (rp); |
681 curr_imag_fmt = (char *) NULL; | 681 curr_imag_fmt = (char *) NULL; |
682 | 682 |
683 if (free_format) | 683 if (free_format) |
684 return; | 684 return; |
685 | 685 |
686 static char fmt_buf[32]; | 686 static char fmt_buf[128]; |
687 | 687 |
688 double r_min = r.base (); | 688 double r_min = r.base (); |
689 double r_max = r.limit (); | 689 double r_max = r.limit (); |
690 | 690 |
691 if (r_max < r_min) | 691 if (r_max < r_min) |