Mercurial > octave-nkf

comparison liboctave/cruft/ranlib/Basegen.doc @ 19627:446c46af4b42 stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
strip trailing whitespace from most source files * Makefile.am, NEWS, build-aux/common.mk, configure.ac, doc/Makefile.am, doc/doxyhtml/Makefile.am, doc/interpreter/Makefile.am, doc/interpreter/arith.txi, doc/interpreter/audio.txi, doc/interpreter/basics.txi, doc/interpreter/bugs.txi, doc/interpreter/container.txi, doc/interpreter/cp-idx.txi, doc/interpreter/data.txi, doc/interpreter/debug.txi, doc/interpreter/diagperm.txi, doc/interpreter/diffeq.txi, doc/interpreter/doccheck/README, doc/interpreter/doccheck/spellcheck, doc/interpreter/emacs.txi, doc/interpreter/errors.txi, doc/interpreter/eval.txi, doc/interpreter/expr.txi, doc/interpreter/external.txi, doc/interpreter/fn-idx.txi, doc/interpreter/func.txi, doc/interpreter/geometry.txi, doc/interpreter/geometryimages.m, doc/interpreter/gpl.txi, doc/interpreter/grammar.txi, doc/interpreter/gui.txi, doc/interpreter/image.txi, doc/interpreter/install.txi, doc/interpreter/interp.txi, doc/interpreter/interpimages.m, doc/interpreter/intro.txi, doc/interpreter/io.txi, doc/interpreter/java.txi, doc/interpreter/linalg.txi, doc/interpreter/macros.texi, doc/interpreter/matrix.txi, doc/interpreter/munge-texi.pl, doc/interpreter/nonlin.txi, doc/interpreter/numbers.txi, doc/interpreter/obsolete.txi, doc/interpreter/octave-config.1, doc/interpreter/octave.texi, doc/interpreter/oop.txi, doc/interpreter/op-idx.txi, doc/interpreter/optim.txi, doc/interpreter/package.txi, doc/interpreter/plot.txi, doc/interpreter/poly.txi, doc/interpreter/preface.txi, doc/interpreter/quad.txi, doc/interpreter/set.txi, doc/interpreter/signal.txi, doc/interpreter/sparse.txi, doc/interpreter/sparseimages.m, doc/interpreter/splineimages.m, doc/interpreter/stats.txi, doc/interpreter/stmt.txi, doc/interpreter/strings.txi, doc/interpreter/system.txi, doc/interpreter/testfun.txi, doc/interpreter/tips.txi, doc/interpreter/var.txi, doc/interpreter/vectorize.txi, doc/liboctave/Makefile.am, doc/liboctave/array.texi, doc/liboctave/bugs.texi, doc/liboctave/cp-idx.texi, doc/liboctave/dae.texi, doc/liboctave/diffeq.texi, doc/liboctave/error.texi, doc/liboctave/factor.texi, doc/liboctave/fn-idx.texi, doc/liboctave/gpl.texi, doc/liboctave/install.texi, doc/liboctave/intro.texi, doc/liboctave/liboctave.texi, doc/liboctave/matvec.texi, doc/liboctave/nleqn.texi, doc/liboctave/nlfunc.texi, doc/liboctave/ode.texi, doc/liboctave/optim.texi, doc/liboctave/preface.texi, doc/liboctave/quad.texi, doc/liboctave/range.texi, doc/refcard/Makefile.am, doc/refcard/refcard.tex, etc/HACKING, etc/NEWS.1, etc/NEWS.2, etc/NEWS.3, etc/OLD-ChangeLogs/ChangeLog, etc/OLD-ChangeLogs/doc-ChangeLog, etc/OLD-ChangeLogs/scripts-ChangeLog, etc/OLD-ChangeLogs/src-ChangeLog, etc/OLD-ChangeLogs/test-ChangeLog, etc/PROJECTS, etc/README.Cygwin, etc/README.MacOS, etc/README.MinGW, etc/README.gnuplot, etc/gdbinit, etc/icons/Makefile.am, examples/@polynomial/end.m, examples/@polynomial/subsasgn.m, examples/Makefile.am, examples/standalonebuiltin.cc, libgui/Makefile.am, libgui/qterminal/libqterminal/README, libgui/qterminal/libqterminal/unix/BlockArray.cpp, libgui/qterminal/libqterminal/unix/BlockArray.h, libgui/qterminal/libqterminal/unix/Character.h, libgui/qterminal/libqterminal/unix/CharacterColor.h, libgui/qterminal/libqterminal/unix/Emulation.cpp, libgui/qterminal/libqterminal/unix/Emulation.h, libgui/qterminal/libqterminal/unix/Filter.cpp, libgui/qterminal/libqterminal/unix/Filter.h, libgui/qterminal/libqterminal/unix/History.cpp, libgui/qterminal/libqterminal/unix/History.h, libgui/qterminal/libqterminal/unix/KeyboardTranslator.cpp, libgui/qterminal/libqterminal/unix/KeyboardTranslator.h, libgui/qterminal/libqterminal/unix/LineFont.h, libgui/qterminal/libqterminal/unix/QUnixTerminalImpl.cpp, libgui/qterminal/libqterminal/unix/QUnixTerminalImpl.h, libgui/qterminal/libqterminal/unix/Screen.cpp, libgui/qterminal/libqterminal/unix/Screen.h, libgui/qterminal/libqterminal/unix/ScreenWindow.cpp, libgui/qterminal/libqterminal/unix/ScreenWindow.h, libgui/qterminal/libqterminal/unix/TerminalCharacterDecoder.cpp, libgui/qterminal/libqterminal/unix/TerminalCharacterDecoder.h, libgui/qterminal/libqterminal/unix/Vt102Emulation.h, libgui/qterminal/libqterminal/win32/QWinTerminalImpl.cpp, libgui/qterminal/qterminal/main.cpp, libgui/src/m-editor/file-editor-tab.cc, libgui/src/octave-gui.cc, libgui/src/octave-qt-link.cc, libinterp/corefcn/data.cc, libinterp/corefcn/defun-int.h, libinterp/corefcn/det.cc, libinterp/corefcn/gl2ps-renderer.cc, libinterp/corefcn/graphics.cc, libinterp/corefcn/graphics.in.h, libinterp/corefcn/ls-mat5.cc, libinterp/corefcn/lu.cc, libinterp/corefcn/oct-tex-parser.yy, libinterp/corefcn/oct-tex-symbols.in, libinterp/corefcn/quadcc.cc, libinterp/corefcn/zfstream.cc, libinterp/dldfcn/__eigs__.cc, libinterp/dldfcn/__voronoi__.cc, libinterp/gendoc.pl, libinterp/genprops.awk, libinterp/mk-errno-list, libinterp/mk-pkg-add, libinterp/mkbuiltins, libinterp/mkdefs, libinterp/mkdocs, libinterp/mkops, libinterp/octave-value/ov-java.cc, libinterp/parse-tree/lex.ll, libinterp/parse-tree/oct-parse.in.yy, libinterp/parse-tree/octave.gperf, liboctave/Makefile.am, liboctave/array/Array.cc, liboctave/array/module.mk, liboctave/cruft/daspk/datv.f, liboctave/cruft/daspk/dcnst0.f, liboctave/cruft/daspk/dcnstr.f, liboctave/cruft/daspk/ddasic.f, liboctave/cruft/daspk/ddasid.f, liboctave/cruft/daspk/ddasik.f, liboctave/cruft/daspk/ddaspk.f, liboctave/cruft/daspk/ddstp.f, liboctave/cruft/daspk/ddwnrm.f, liboctave/cruft/daspk/dfnrmd.f, liboctave/cruft/daspk/dfnrmk.f, liboctave/cruft/daspk/dhels.f, liboctave/cruft/daspk/dheqr.f, liboctave/cruft/daspk/dinvwt.f, liboctave/cruft/daspk/dlinsd.f, liboctave/cruft/daspk/dlinsk.f, liboctave/cruft/daspk/dmatd.f, liboctave/cruft/daspk/dnedd.f, liboctave/cruft/daspk/dnedk.f, liboctave/cruft/daspk/dnsd.f, liboctave/cruft/daspk/dnsid.f, liboctave/cruft/daspk/dnsik.f, liboctave/cruft/daspk/dnsk.f, liboctave/cruft/daspk/dorth.f, liboctave/cruft/daspk/dslvd.f, liboctave/cruft/daspk/dslvk.f, liboctave/cruft/daspk/dspigm.f, liboctave/cruft/daspk/dyypnw.f, liboctave/cruft/dasrt/ddasrt.f, liboctave/cruft/dasrt/drchek.f, liboctave/cruft/dassl/ddaslv.f, liboctave/cruft/dassl/ddassl.f, liboctave/cruft/misc/blaswrap.c, liboctave/cruft/misc/module.mk, liboctave/cruft/odepack/cfode.f, liboctave/cruft/odepack/dlsode.f, liboctave/cruft/odepack/ewset.f, liboctave/cruft/odepack/intdy.f, liboctave/cruft/odepack/prepj.f, liboctave/cruft/odepack/sintdy.f, liboctave/cruft/odepack/slsode.f, liboctave/cruft/odepack/solsy.f, liboctave/cruft/odepack/ssolsy.f, liboctave/cruft/odepack/stode.f, liboctave/cruft/odepack/vnorm.f, liboctave/cruft/ranlib/Basegen.doc, liboctave/cruft/ranlib/README, liboctave/cruft/ranlib/genbet.f, liboctave/cruft/ranlib/genexp.f, liboctave/cruft/ranlib/gennch.f, liboctave/cruft/ranlib/gennf.f, liboctave/cruft/ranlib/gennor.f, liboctave/cruft/ranlib/getsd.f, liboctave/cruft/ranlib/initgn.f, liboctave/cruft/ranlib/phrtsd.f, liboctave/cruft/ranlib/randlib.fdoc, liboctave/cruft/ranlib/setsd.f, liboctave/cruft/ranlib/tstgmn.for, liboctave/cruft/ranlib/tstmid.for, liboctave/cruft/slatec-fn/atanh.f, liboctave/cruft/slatec-fn/datanh.f, liboctave/cruft/slatec-fn/xgmainc.f, liboctave/cruft/slatec-fn/xsgmainc.f, liboctave/numeric/module.mk, liboctave/operators/mk-ops.awk, liboctave/operators/mx-ops, liboctave/operators/sparse-mk-ops.awk, liboctave/operators/sparse-mx-ops, liboctave/operators/vx-ops, liboctave/util/module.mk, run-octave.in, scripts/@ftp/ftp.m, scripts/audio/wavread.m, scripts/deprecated/java_convert_matrix.m, scripts/deprecated/java_debug.m, scripts/deprecated/java_invoke.m, scripts/deprecated/java_new.m, scripts/deprecated/java_unsigned_conversion.m, scripts/deprecated/javafields.m, scripts/deprecated/javamethods.m, scripts/deprecated/shell_cmd.m, scripts/general/accumarray.m, scripts/general/display.m, scripts/general/fieldnames.m, scripts/general/interp1.m, scripts/general/interp2.m, scripts/general/interp3.m, scripts/general/isa.m, scripts/general/methods.m, scripts/general/sortrows.m, scripts/geometry/convhull.m, scripts/geometry/delaunay.m, scripts/geometry/delaunay3.m, scripts/geometry/delaunayn.m, scripts/geometry/griddata.m, scripts/geometry/griddatan.m, scripts/geometry/voronoi.m, scripts/geometry/voronoin.m, scripts/gui/guihandles.m, scripts/gui/inputdlg.m, scripts/gui/listdlg.m, scripts/gui/msgbox.m, scripts/gui/questdlg.m, scripts/gui/uigetfile.m, scripts/gui/waitbar.m, scripts/gui/warndlg.m, scripts/help/doc.m, scripts/help/help.m, scripts/help/type.m, scripts/image/bone.m, scripts/image/cmpermute.m, scripts/image/cmunique.m, scripts/image/colorcube.m, scripts/image/colormap.m, scripts/image/contrast.m, scripts/image/gray2ind.m, scripts/image/image.m, scripts/image/imshow.m, scripts/image/ind2gray.m, scripts/image/jet.m, scripts/image/rgb2ntsc.m, scripts/image/spinmap.m, scripts/io/importdata.m, scripts/io/strread.m, scripts/io/textread.m, scripts/io/textscan.m, scripts/java/java_get.m, scripts/java/java_set.m, scripts/java/javaaddpath.m, scripts/java/javaclasspath.m, scripts/java/javamem.m, scripts/linear-algebra/linsolve.m, scripts/linear-algebra/qzhess.m, scripts/miscellaneous/debug.m, scripts/miscellaneous/desktop.m, scripts/miscellaneous/dir.m, scripts/miscellaneous/dos.m, scripts/miscellaneous/edit.m, scripts/miscellaneous/fact.m, scripts/miscellaneous/getappdata.m, scripts/miscellaneous/inputname.m, scripts/miscellaneous/license.m, scripts/miscellaneous/ls_command.m, scripts/miscellaneous/run.m, scripts/miscellaneous/setfield.m, scripts/miscellaneous/unix.m, scripts/miscellaneous/ver.m, scripts/mk-pkg-add, scripts/mkdoc.pl, scripts/optimization/fminsearch.m, scripts/optimization/optimset.m, scripts/optimization/sqp.m, scripts/pkg/pkg.m, scripts/pkg/private/create_pkgadddel.m, scripts/pkg/private/fix_depends.m, scripts/pkg/private/install.m, scripts/plot/appearance/axis.m, scripts/plot/appearance/box.m, scripts/plot/appearance/clabel.m, scripts/plot/appearance/daspect.m, scripts/plot/appearance/datetick.m, scripts/plot/appearance/grid.m, scripts/plot/appearance/legend.m, scripts/plot/appearance/orient.m, scripts/plot/appearance/shading.m, scripts/plot/appearance/text.m, scripts/plot/appearance/title.m, scripts/plot/appearance/xlabel.m, scripts/plot/appearance/ylabel.m, scripts/plot/appearance/zlabel.m, scripts/plot/draw/area.m, scripts/plot/draw/bar.m, scripts/plot/draw/barh.m, scripts/plot/draw/colorbar.m, scripts/plot/draw/contour.m, scripts/plot/draw/contour3.m, scripts/plot/draw/contourf.m, scripts/plot/draw/ellipsoid.m, scripts/plot/draw/errorbar.m, scripts/plot/draw/ezcontour.m, scripts/plot/draw/ezcontourf.m, scripts/plot/draw/ezmesh.m, scripts/plot/draw/ezpolar.m, scripts/plot/draw/fill.m, scripts/plot/draw/fplot.m, scripts/plot/draw/hist.m, scripts/plot/draw/meshc.m, scripts/plot/draw/meshz.m, scripts/plot/draw/pareto.m, scripts/plot/draw/patch.m, scripts/plot/draw/peaks.m, scripts/plot/draw/pie.m, scripts/plot/draw/pie3.m, scripts/plot/draw/plot.m, scripts/plot/draw/plotyy.m, scripts/plot/draw/private/__bar__.m, scripts/plot/draw/private/__contour__.m, scripts/plot/draw/private/__errplot__.m, scripts/plot/draw/private/__ezplot__.m, scripts/plot/draw/private/__patch__.m, scripts/plot/draw/private/__stem__.m, scripts/plot/draw/rectangle.m, scripts/plot/draw/ribbon.m, scripts/plot/draw/rose.m, scripts/plot/draw/scatter.m, scripts/plot/draw/scatter3.m, scripts/plot/draw/semilogx.m, scripts/plot/draw/shrinkfaces.m, scripts/plot/draw/sombrero.m, scripts/plot/draw/sphere.m, scripts/plot/draw/stairs.m, scripts/plot/draw/stem.m, scripts/plot/draw/stemleaf.m, scripts/plot/draw/surf.m, scripts/plot/draw/surface.m, scripts/plot/draw/surfc.m, scripts/plot/draw/surfl.m, scripts/plot/draw/surfnorm.m, scripts/plot/draw/tetramesh.m, scripts/plot/draw/trimesh.m, scripts/plot/draw/triplot.m, scripts/plot/draw/trisurf.m, scripts/plot/util/__gnuplot_drawnow__.m, scripts/plot/util/__plt_get_axis_arg__.m, scripts/plot/util/axes.m, scripts/plot/util/clf.m, scripts/plot/util/copyobj.m, scripts/plot/util/figure.m, scripts/plot/util/gcbo.m, scripts/plot/util/graphics_toolkit.m, scripts/plot/util/hggroup.m, scripts/plot/util/meshgrid.m, scripts/plot/util/newplot.m, scripts/plot/util/print.m, scripts/plot/util/private/__add_default_menu__.m, scripts/plot/util/private/__fltk_print__.m, scripts/plot/util/private/__gnuplot_print__.m, scripts/plot/util/private/__print_parse_opts__.m, scripts/plot/util/refreshdata.m, scripts/plot/util/subplot.m, scripts/polynomial/conv.m, scripts/polynomial/poly.m, scripts/polynomial/polyeig.m, scripts/polynomial/polyfit.m, scripts/polynomial/polyval.m, scripts/polynomial/private/__splinefit__.m, scripts/polynomial/spline.m, scripts/prefs/prefdir.m, scripts/prefs/preferences.m, scripts/prefs/private/prefsfile.m, scripts/prefs/rmpref.m, scripts/signal/freqz.m, scripts/signal/module.mk, scripts/sparse/eigs.m, scripts/sparse/pcg.m, scripts/sparse/private/__sprand_impl__.m, scripts/sparse/sprand.m, scripts/sparse/sprandn.m, scripts/sparse/spy.m, scripts/sparse/svds.m, scripts/specfun/expint.m, scripts/specfun/factor.m, scripts/special-matrix/gallery.m, scripts/special-matrix/hankel.m, scripts/special-matrix/toeplitz.m, scripts/startup/inputrc, scripts/statistics/base/kurtosis.m, scripts/statistics/base/moment.m, scripts/statistics/base/qqplot.m, scripts/statistics/base/var.m, scripts/statistics/distributions/betarnd.m, scripts/statistics/distributions/binoinv.m, scripts/statistics/distributions/binopdf.m, scripts/statistics/distributions/binornd.m, scripts/statistics/distributions/cauchy_rnd.m, scripts/statistics/distributions/chi2rnd.m, scripts/statistics/distributions/discrete_pdf.m, scripts/statistics/distributions/discrete_rnd.m, scripts/statistics/distributions/empirical_rnd.m, scripts/statistics/distributions/exprnd.m, scripts/statistics/distributions/frnd.m, scripts/statistics/distributions/gamrnd.m, scripts/statistics/distributions/geornd.m, scripts/statistics/distributions/hygernd.m, scripts/statistics/distributions/kolmogorov_smirnov_cdf.m, scripts/statistics/distributions/laplace_cdf.m, scripts/statistics/distributions/laplace_pdf.m, scripts/statistics/distributions/logistic_cdf.m, scripts/statistics/distributions/logistic_pdf.m, scripts/statistics/distributions/lognrnd.m, scripts/statistics/distributions/nbincdf.m, scripts/statistics/distributions/nbininv.m, scripts/statistics/distributions/nbinpdf.m, scripts/statistics/distributions/nbinrnd.m, scripts/statistics/distributions/normrnd.m, scripts/statistics/distributions/poissinv.m, scripts/statistics/distributions/poissrnd.m, scripts/statistics/distributions/tinv.m, scripts/statistics/distributions/trnd.m, scripts/statistics/distributions/unidcdf.m, scripts/statistics/distributions/unidpdf.m, scripts/statistics/distributions/unidrnd.m, scripts/statistics/distributions/unifrnd.m, scripts/statistics/distributions/wblrnd.m, scripts/statistics/models/module.mk, scripts/statistics/tests/kruskal_wallis_test.m, scripts/strings/base2dec.m, scripts/strings/deblank.m, scripts/strings/dec2base.m, scripts/strings/dec2bin.m, scripts/strings/dec2hex.m, scripts/strings/mat2str.m, scripts/strings/ostrsplit.m, scripts/strings/regexptranslate.m, scripts/strings/str2num.m, scripts/strings/strcat.m, scripts/strings/strjoin.m, scripts/strings/strsplit.m, scripts/strings/strtok.m, scripts/strings/strtrim.m, scripts/strings/strtrunc.m, scripts/strings/substr.m, scripts/testfun/__run_test_suite__.m, scripts/testfun/speed.m, scripts/testfun/test.m, scripts/time/asctime.m, scripts/time/datenum.m, scripts/time/datevec.m, scripts/time/weekday.m, src/Makefile.am, test/Makefile.am, test/build-bc-overload-tests.sh, test/build-sparse-tests.sh, test/jit.tst, test/line-continue.tst: Strip trailing whitespace.
author John W. Eaton <jwe@octave.org>
date Tue, 20 Jan 2015 08:26:57 -0500
parents 648dabbb4c6b
children
comparison
equal deleted inserted replaced
19488:8dbd55742112 19627:446c46af4b42
31 31
32 Compiled and Written by: 32 Compiled and Written by:
33 33
34 Barry W. Brown 34 Barry W. Brown
35 James Lovato 35 James Lovato
36 36
37 37
38 38
39 39
40 40
41 41
175 175
176 V. CALLING SEQUENCES 176 V. CALLING SEQUENCES
177 177
178 A. SETTING THE SEED OF ALL GENERATORS 178 A. SETTING THE SEED OF ALL GENERATORS
179 179
180 C********************************************************************** 180 C**********************************************************************
181 C 181 C
182 C SUBROUTINE SETALL(ISEED1,ISEED2) 182 C SUBROUTINE SETALL(ISEED1,ISEED2)
183 C SET ALL random number generators 183 C SET ALL random number generators
184 C 184 C
185 C Sets the initial seed of generator 1 to ISEED1 and ISEED2. The 185 C Sets the initial seed of generator 1 to ISEED1 and ISEED2. The
186 C initial seeds of the other generators are set accordingly, and 186 C initial seeds of the other generators are set accordingly, and
187 C all generators states are set to these seeds. 187 C all generators states are set to these seeds.
188 C 188 C
189 C Arguments 189 C Arguments
190 C 190 C
191 C 191 C
192 C ISEED1 -> First of two integer seeds 192 C ISEED1 -> First of two integer seeds
193 C INTEGER ISEED1 193 C INTEGER ISEED1
194 C 194 C
195 C ISEED2 -> Second of two integer seeds 195 C ISEED2 -> Second of two integer seeds
196 C INTEGER ISEED1 196 C INTEGER ISEED1
197 C 197 C
198 C********************************************************************** 198 C**********************************************************************
199 199
200 200
201 B. OBTAINING RANDOM NUMBERS 201 B. OBTAINING RANDOM NUMBERS
202 202
203 C********************************************************************** 203 C**********************************************************************
204 C 204 C
205 C INTEGER FUNCTION IGNLGI() 205 C INTEGER FUNCTION IGNLGI()
206 C GeNerate LarGe Integer 206 C GeNerate LarGe Integer
207 C 207 C
208 C Returns a random integer following a uniform distribution over 208 C Returns a random integer following a uniform distribution over
209 C (1, 2147483562) using the current generator. 209 C (1, 2147483562) using the current generator.
210 C 210 C
211 C********************************************************************** 211 C**********************************************************************
212 212
213 C********************************************************************** 213 C**********************************************************************
214 C 214 C
215 C REAL FUNCTION RANF() 215 C REAL FUNCTION RANF()
216 C RANDom number generator as a Function 216 C RANDom number generator as a Function
217 C 217 C
218 C Returns a random floating point number from a uniform distribution 218 C Returns a random floating point number from a uniform distribution
219 C over 0 - 1 (endpoints of this interval are not returned) using the 219 C over 0 - 1 (endpoints of this interval are not returned) using the
220 C current generator 220 C current generator
221 C 221 C
222 C********************************************************************** 222 C**********************************************************************
223 223
224 224
225 225
226 Base Random Number Generator Page 4 226 Base Random Number Generator Page 4
227 227
228 228
229 C. SETTING AND OBTAINING THE NUMBER OF THE CURRENT GENERATOR 229 C. SETTING AND OBTAINING THE NUMBER OF THE CURRENT GENERATOR
230 230
231 C********************************************************************** 231 C**********************************************************************
232 C 232 C
233 C SUBROUTINE SETCGN( G ) 233 C SUBROUTINE SETCGN( G )
234 C Set GeNerator 234 C Set GeNerator
235 C 235 C
236 C Sets the current generator to G. All references to a generator 236 C Sets the current generator to G. All references to a generator
237 C are to the current generator. 237 C are to the current generator.
238 C 238 C
239 C Arguments 239 C Arguments
240 C 240 C
241 C G --> Number of the current random number generator (1..32) 241 C G --> Number of the current random number generator (1..32)
242 C INTEGER G 242 C INTEGER G
243 C 243 C
244 C********************************************************************** 244 C**********************************************************************
245 245
246 C********************************************************************** 246 C**********************************************************************
247 C 247 C
248 C SUBROUTINE GETCGN(G) 248 C SUBROUTINE GETCGN(G)
249 C Get GeNerator 249 C Get GeNerator
250 C 250 C
251 C Returns in G the number of the current random number generator 251 C Returns in G the number of the current random number generator
252 C 252 C
253 C Arguments 253 C Arguments
254 C 254 C
255 C G <-- Number of the current random number generator (1..32) 255 C G <-- Number of the current random number generator (1..32)
256 C INTEGER G 256 C INTEGER G
257 C 257 C
258 C********************************************************************** 258 C**********************************************************************
259 259
260 D. OBTAINING OR CHANGING SEEDS IN CURRENT GENERATOR 260 D. OBTAINING OR CHANGING SEEDS IN CURRENT GENERATOR
261 261
262 C********************************************************************** 262 C**********************************************************************
263 C 263 C
264 C SUBROUTINE ADVNST(K) 264 C SUBROUTINE ADVNST(K)
265 C ADV-a-N-ce ST-ate 265 C ADV-a-N-ce ST-ate
266 C 266 C
267 C Advances the state of the current generator by 2^K values and 267 C Advances the state of the current generator by 2^K values and
268 C resets the initial seed to that value. 268 C resets the initial seed to that value.
269 C 269 C
270 C Arguments 270 C Arguments
271 C 271 C
272 C 272 C
273 C K -> The generator is advanced by 2^K values 273 C K -> The generator is advanced by 2^K values
274 C INTEGER K 274 C INTEGER K
275 C 275 C
276 C********************************************************************** 276 C**********************************************************************
277 277
278 278
279 279
280 Base Random Number Generator Page 5 280 Base Random Number Generator Page 5
281 281
282 282
283 C********************************************************************** 283 C**********************************************************************
284 C 284 C
285 C SUBROUTINE GETSD(ISEED1,ISEED2) 285 C SUBROUTINE GETSD(ISEED1,ISEED2)
286 C GET SeeD 286 C GET SeeD
287 C 287 C
288 C Returns the value of two integer seeds of the current generator 288 C Returns the value of two integer seeds of the current generator
289 C 289 C
290 C Arguments 290 C Arguments
291 C 291 C
292 C 292 C
293 C 293 C
294 C ISEED1 <- First integer seed of generator G 294 C ISEED1 <- First integer seed of generator G
295 C INTEGER ISEED1 295 C INTEGER ISEED1
296 C 296 C
297 C ISEED2 <- Second integer seed of generator G 297 C ISEED2 <- Second integer seed of generator G
298 C INTEGER ISEED1 298 C INTEGER ISEED1
299 C 299 C
300 C********************************************************************** 300 C**********************************************************************
301 301
302 C********************************************************************** 302 C**********************************************************************
303 C 303 C
304 C SUBROUTINE INITGN(ISDTYP) 304 C SUBROUTINE INITGN(ISDTYP)
305 C INIT-ialize current G-e-N-erator 305 C INIT-ialize current G-e-N-erator
306 C 306 C
307 C Reinitializes the state of the current generator 307 C Reinitializes the state of the current generator
308 C 308 C
309 C Arguments 309 C Arguments
310 C 310 C
311 C 311 C
312 C ISDTYP -> The state to which the generator is to be set 312 C ISDTYP -> The state to which the generator is to be set
313 C ISDTYP = -1 => sets the seeds to their initial value 313 C ISDTYP = -1 => sets the seeds to their initial value
314 C ISDTYP = 0 => sets the seeds to the first value of 314 C ISDTYP = 0 => sets the seeds to the first value of
315 C the current block 315 C the current block
316 C ISDTYP = 1 => sets the seeds to the first value of 316 C ISDTYP = 1 => sets the seeds to the first value of
317 C the next block 317 C the next block
318 C 318 C
319 C INTEGER ISDTYP 319 C INTEGER ISDTYP
320 C 320 C
321 C********************************************************************** 321 C**********************************************************************
322 322
323 C********************************************************************** 323 C**********************************************************************
324 C 324 C
325 C SUBROUTINE SETSD(ISEED1,ISEED2) 325 C SUBROUTINE SETSD(ISEED1,ISEED2)
326 C SET S-ee-D of current generator 326 C SET S-ee-D of current generator
327 C 327 C
328 C Resets the initial seed of the current generator to ISEED1 and 328 C Resets the initial seed of the current generator to ISEED1 and
329 C ISEED2. The seeds of the other generators remain unchanged. 329 C ISEED2. The seeds of the other generators remain unchanged.
330 C 330 C
331 C Arguments 331 C Arguments
332 C 332 C
333 C 333 C
334 C ISEED1 -> First integer seed 334 C ISEED1 -> First integer seed
335 C INTEGER ISEED1 335 C INTEGER ISEED1
336 C 336 C
337 C ISEED2 -> Second integer seed 337 C ISEED2 -> Second integer seed
338 C INTEGER ISEED1 338 C INTEGER ISEED1
339 C 339 C
340 C********************************************************************** 340 C**********************************************************************
341 341
342 342
343 343
344 Base Random Number Generator Page 6 344 Base Random Number Generator Page 6
345 345
346 346
347 E. MISCELLANY 347 E. MISCELLANY
348 348
349 C********************************************************************** 349 C**********************************************************************
350 C 350 C
351 C INTEGER FUNCTION MLTMOD(A,S,M) 351 C INTEGER FUNCTION MLTMOD(A,S,M)
352 C 352 C
353 C Returns (A*S) MOD M 353 C Returns (A*S) MOD M
354 C 354 C
355 C Arguments 355 C Arguments
356 C 356 C
357 C 357 C
358 C A, S, M --> 358 C A, S, M -->
359 C INTEGER A,S,M 359 C INTEGER A,S,M
360 C 360 C
361 C********************************************************************** 361 C**********************************************************************
362 362
363 C********************************************************************** 363 C**********************************************************************
364 C 364 C
365 C SUBROUTINE SETANT(QVALUE) 365 C SUBROUTINE SETANT(QVALUE)
366 C SET ANTithetic 366 C SET ANTithetic
367 C 367 C
368 C Sets whether the current generator produces antithetic values. If 368 C Sets whether the current generator produces antithetic values. If
369 C X is the value normally returned from a uniform [0,1] random 369 C X is the value normally returned from a uniform [0,1] random
370 C number generator then 1 - X is the antithetic value. If X is the 370 C number generator then 1 - X is the antithetic value. If X is the
371 C value normally returned from a uniform [0,N] random number 371 C value normally returned from a uniform [0,N] random number
372 C generator then N - 1 - X is the antithetic value. 372 C generator then N - 1 - X is the antithetic value.
373 C 373 C
374 C All generators are initialized to NOT generate antithetic values. 374 C All generators are initialized to NOT generate antithetic values.
375 C 375 C
376 C Arguments 376 C Arguments
377 C 377 C
378 C QVALUE -> .TRUE. if generator G is to generating antithetic 378 C QVALUE -> .TRUE. if generator G is to generating antithetic
379 C values, otherwise .FALSE. 379 C values, otherwise .FALSE.
380 C LOGICAL QVALUE 380 C LOGICAL QVALUE
381 C 381 C
382 C********************************************************************** 382 C**********************************************************************