Mercurial > octave-nkf

comparison libcruft/misc/machar.c @ 5171:dc706eb5be9f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-03-01 18:01:54 by jwe]
author jwe
date Tue, 01 Mar 2005 18:01:54 +0000
parents 3486c62f2d62
children 66ec063e2f4f
comparison
equal deleted inserted replaced
5170:b2322bcf4fba 5171:dc706eb5be9f
121 */ 121 */
122 122
123 { 123 {
124 int i,iz,j,k; 124 int i,iz,j,k;
125 int mx,itmp,nxres; 125 int mx,itmp,nxres;
126 REAL a,b,beta,betain,one,y,z,zero; 126 volatile REAL a,b,beta,betain,one,y,z,zero;
127 REAL betah,t,tmp,tmpa,tmp1,two; 127 volatile REAL betah,two,t,tmp,tmpa,tmp1;
128 128
129 (*irnd) = 1; 129 (*irnd) = 1;
130 one = (REAL)(*irnd); 130 one = (REAL)(*irnd);
131 two = one + one; 131 two = one + one;
132 a = two; 132 a = two;