Mercurial > octave-nkf

comparison libcruft/ranlib/ignpoi.f @ 5528:480035e1c2b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-11-01 22:41:22 by jwe]
author jwe
date Tue, 01 Nov 2005 22:41:22 +0000
parents df7c57a6639d
children 0e71ead7359d
comparison
equal deleted inserted replaced
5527:ce71ed4c6da6 5528:480035e1c2b0
223 100 py = .3989423/sqrt(fk) 223 100 py = .3989423/sqrt(fk)
224 110 x = (0.5-difmuk)/s 224 110 x = (0.5-difmuk)/s
225 xx = x*x 225 xx = x*x
226 fx = -0.5*xx 226 fx = -0.5*xx
227 fy = omega* (((c3*xx+c2)*xx+c1)*xx+c0) 227 fy = omega* (((c3*xx+c2)*xx+c1)*xx+c0)
228 IF (kflag) 40,40,60 228 IF (kflag.LE.0) GO TO 40
229 GO TO 60
229 C 230 C
230 C C A S E B. (START NEW TABLE AND CALCULATE P0 IF NECESSARY) 231 C C A S E B. (START NEW TABLE AND CALCULATE P0 IF NECESSARY)
231 C 232 C
232 C JJV changed MUPREV assignment from 0.0 to initial value 233 C JJV changed MUPREV assignment from 0.0 to initial value
233 120 muprev = -1.0E37 234 120 muprev = -1.0E37