PROGRAM MAIN

      IMPLICIT NONE

      REAL*8  RATIO,PROBZERO(5)
      INTEGER N,ISEED(5)
 
      INTEGER I
c
      DO 100 I=1,5
  100      PROBZERO(I)=0.1*(I-1)

      RATIO=0.4

      ISEED(1)=12345
      ISEED(2)=54939
      ISEED(3)=95432
      ISEED(4)=35205
      ISEED(5)=79752

      N=150
      OPEN(8,FILE='r150a0')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r150b0')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r150c0')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r150d0')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r150e0')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(1)
      CLOSE(8)
      N=200
      OPEN(8,FILE='r200a0')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r200b0')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r200c0')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r200d0')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r200e0')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(1)
      CLOSE(8)
      N=250
      OPEN(8,FILE='r250a0')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r250b0')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r250c0')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r250d0')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r250e0')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(1)
      CLOSE(8)
      N=150
      OPEN(8,FILE='r150a1')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r150b1')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r150c1')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r150d1')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r150e1')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(2)
      CLOSE(8)
      N=200
      OPEN(8,FILE='r200a1')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r200b1')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r200c1')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r200d1')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r200e1')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(2)
      CLOSE(8)
      N=100
      OPEN(8,FILE='r100a2')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(3)
      CLOSE(8)
      OPEN(8,FILE='r100b2')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(3)
      CLOSE(8)
      OPEN(8,FILE='r100c2')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(3)
      CLOSE(8)
      OPEN(8,FILE='r100d2')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(3)
      CLOSE(8)
      OPEN(8,FILE='r100e2')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(3)
      CLOSE(8)
  990 FORMAT(I5,I7,2F6.2)

      STOP
      END