MINICERN/mathlib/gen/d/riwibd.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:02:16  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10       SUBROUTINE RIWIBD
  11 C   BLOCK DATA SUBSTITUTE
  12 #include "gen/imp64.inc"
  13       COMMON/STORE/XA(11),XB(11),XC(11),XD(11),MA(11),MB(11),MC(11)
  14       COMMON/STORE1/R(10000),LR
  15       COMMON/OPTION/IPRINT,ICONV,IRESET
  16       COMMON/RANDOM/NSHOTS
  17       COMMON/INTERN/FACTOR,ALFA,BETA,GAMMA,DELTA,LEVEL,NMIN
  18       DATA INIT/0/
  19       IF(INIT.EQ.1) RETURN
  20       INIT=1
  21       MA(1)=0
  22       LR=10000
  23       IPRINT=1
  24       ICONV=1
  25       IRESET=0
  26       NSHOTS=2
  27       FACTOR=1.65
  28       LEVEL=90
  29       ALFA=0.3
  30       BETA=0.3
  31       GAMMA=0.3
  32       DELTA=.7
  33       NMIN=2
  34       RETURN
  35       END