Mercurial > octave

comparison liboctave/oct-rand.cc @ 11586:12df7854fa7c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
strip trailing whitespace from source files
author John W. Eaton <jwe@octave.org>
date Thu, 20 Jan 2011 17:24:59 -0500
parents fd0a3ac60b0e
children 7dd7cccf0757
comparison
equal deleted inserted replaced
11585:1473d0cf86d2 11586:12df7854fa7c
105 double 105 double
106 octave_rand::do_seed (void) 106 octave_rand::do_seed (void)
107 { 107 {
108 union d2i { double d; int32_t i[2]; }; 108 union d2i { double d; int32_t i[2]; };
109 union d2i u; 109 union d2i u;
110 110
111 oct_mach_info::float_format ff = oct_mach_info::native_float_format (); 111 oct_mach_info::float_format ff = oct_mach_info::native_float_format ();
112 112
113 switch (ff) 113 switch (ff)
114 { 114 {
115 case oct_mach_info::flt_fmt_ieee_big_endian: 115 case oct_mach_info::flt_fmt_ieee_big_endian:
370 else 370 else
371 F77_FUNC (dgengam, DGENGAM) (1.0, a, retval); 371 F77_FUNC (dgengam, DGENGAM) (1.0, a, retval);
372 break; 372 break;
373 373
374 default: 374 default:
375 (*current_liboctave_error_handler) 375 (*current_liboctave_error_handler)
376 ("rand: invalid distribution ID = %d", current_distribution); 376 ("rand: invalid distribution ID = %d", current_distribution);
377 break; 377 break;
378 } 378 }
379 } 379 }
380 else 380 else