Mercurial > octave
view liboctave/external/ranlib/getsd.f @ 33636:3ec6fcce7715 default tip @
gui: Avoid using HAVE_QSCINTILLA in more header files.
* gui-settings.h, settings-dialog.h: Don't include QScintilla header.
Forward-declare QSciLexer class instead if necessary. Declare all member
functions unconditionally.
* gui-settings.cc (gui_settings::get_valid_lexer_styles,
gui_settings::read_lexer_settings),
settings-dialog.cc (settings_dialog::update_lexer,
settings_dialog::get_lexer_settings, settings_dialog::write_lexer_settings):
Define functions unconditionally.
* gui-preferences-ed.h: Don't include QScintilla header. Remove definition of
local variable os_eol_mode from header.
* gui-preferences-ed.cc (os_eol_mode): Move definition of local variable here.
author | Markus Mützel <markus.muetzel@gmx.de> |
---|---|
date | Tue, 28 May 2024 14:54:58 +0200 |
parents | 32671b14ed7b |
children |
line wrap: on
line source
SUBROUTINE getsd(iseed1,iseed2) C********************************************************************** C C SUBROUTINE GETSD(G,ISEED1,ISEED2) C GET SeeD C C Returns the value of two integer seeds of the current generator C C This is a transcription from Pascal to Fortran of routine C Get_State from the paper C C L'Ecuyer, P. and Cote, S. "Implementing a Random Number Package C with Splitting Facilities." ACM Transactions on Mathematical C Software, 17:98-111 (1991) C C C Arguments C C C C ISEED1 <- First integer seed of generator G C INTEGER ISEED1 C C ISEED2 <- Second integer seed of generator G C INTEGER ISEED1 C C********************************************************************** C .. Parameters .. INTEGER*4 numg PARAMETER (numg=32) C .. C .. Scalar Arguments .. INTEGER*4 iseed1,iseed2 C .. C .. Scalars in Common .. INTEGER*4 a1,a1vw,a1w,a2,a2vw,a2w,m1,m2 C .. C .. Arrays in Common .. INTEGER*4 cg1(numg),cg2(numg),ig1(numg),ig2(numg),lg1(numg), + lg2(numg) LOGICAL qanti(numg) C .. C .. Local Scalars .. INTEGER*4 g C .. C .. External Functions .. LOGICAL qrgnin EXTERNAL qrgnin C .. C .. External Subroutines .. EXTERNAL getcgn C .. C .. Common blocks .. COMMON /globe/m1,m2,a1,a2,a1w,a2w,a1vw,a2vw,ig1,ig2,lg1,lg2,cg1, + cg2,qanti C .. C .. Save statement .. SAVE /globe/ C .. C .. Executable Statements .. C Abort unless random number generator initialized IF (qrgnin()) GO TO 10 WRITE (*,*) ' GETSD called before random number generator ', + ' initialized -- abort!' CALL XSTOPX + (' GETSD called before random number generator initialized') 10 CALL getcgn(g) iseed1 = cg1(g) iseed2 = cg2(g) RETURN END