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=50
      OPEN(8,FILE='r50a0')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r50b0')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r50c0')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r50d0')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r50e0')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(1)
      CLOSE(8)

      N=75
      OPEN(8,FILE='r75a0')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r75b0')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r75c0')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r75d0')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r75e0')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(1)
      CLOSE(8)

      N=100
      OPEN(8,FILE='r100a0')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r100b0')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r100c0')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r100d0')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(1)
      CLOSE(8)
      OPEN(8,FILE='r100e0')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(1)
      CLOSE(8)

      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=50
      OPEN(8,FILE='r50a1')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r50b1')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r50c1')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r50d1')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r50e1')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(2)
      CLOSE(8)

      N=75
      OPEN(8,FILE='r75a1')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r75b1')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r75c1')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r75d1')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r75e1')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(2)
      CLOSE(8)

      N=100
      OPEN(8,FILE='r100a1')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r100b1')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r100c1')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r100d1')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r100e1')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(2)
      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=250
      OPEN(8,FILE='r250a1')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r250b1')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r250c1')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r250d1')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(2)
      CLOSE(8)
      OPEN(8,FILE='r250e1')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(2)
      CLOSE(8)

      N=50
      OPEN(8,FILE='r50a2')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(3)
      CLOSE(8)
      OPEN(8,FILE='r50b2')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(3)
      CLOSE(8)
      OPEN(8,FILE='r50c2')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(3)
      CLOSE(8)
      OPEN(8,FILE='r50d2')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(3)
      CLOSE(8)
      OPEN(8,FILE='r50e2')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(3)
      CLOSE(8)

      N=75
      OPEN(8,FILE='r75a2')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(3)
      CLOSE(8)
      OPEN(8,FILE='r75b2')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(3)
      CLOSE(8)
      OPEN(8,FILE='r75c2')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(3)
      CLOSE(8)
      OPEN(8,FILE='r75d2')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(3)
      CLOSE(8)
      OPEN(8,FILE='r75e2')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(3)
      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)

      N=150
      OPEN(8,FILE='r150a2')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(3)
      CLOSE(8)
      OPEN(8,FILE='r150b2')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(3)
      CLOSE(8)
      OPEN(8,FILE='r150c2')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(3)
      CLOSE(8)
      OPEN(8,FILE='r150d2')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(3)
      CLOSE(8)
      OPEN(8,FILE='r150e2')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(3)
      CLOSE(8)

      N=200
      OPEN(8,FILE='r200a2')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(3)
      CLOSE(8)
      OPEN(8,FILE='r200b2')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(3)
      CLOSE(8)
      OPEN(8,FILE='r200c2')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(3)
      CLOSE(8)
      OPEN(8,FILE='r200d2')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(3)
      CLOSE(8)
      OPEN(8,FILE='r200e2')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(3)
      CLOSE(8)

      N=50
      OPEN(8,FILE='r50a3')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(4)
      CLOSE(8)
      OPEN(8,FILE='r50b3')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(4)
      CLOSE(8)
      OPEN(8,FILE='r50c3')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(4)
      CLOSE(8)
      OPEN(8,FILE='r50d3')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(4)
      CLOSE(8)
      OPEN(8,FILE='r50e3')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(4)
      CLOSE(8)

      N=75
      OPEN(8,FILE='r75a3')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(4)
      CLOSE(8)
      OPEN(8,FILE='r75b3')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(4)
      CLOSE(8)
      OPEN(8,FILE='r75c3')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(4)
      CLOSE(8)
      OPEN(8,FILE='r75d3')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(4)
      CLOSE(8)
      OPEN(8,FILE='r75e3')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(4)
      CLOSE(8)

      N=100
      OPEN(8,FILE='r100a3')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(4)
      CLOSE(8)
      OPEN(8,FILE='r100b3')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(4)
      CLOSE(8)
      OPEN(8,FILE='r100c3')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(4)
      CLOSE(8)
      OPEN(8,FILE='r100d3')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(4)
      CLOSE(8)
      OPEN(8,FILE='r100e3')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(4)
      CLOSE(8)

      N=150
      OPEN(8,FILE='r150a3')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(4)
      CLOSE(8)
      OPEN(8,FILE='r150b3')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(4)
      CLOSE(8)
      OPEN(8,FILE='r150c3')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(4)
      CLOSE(8)
      OPEN(8,FILE='r150d3')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(4)
      CLOSE(8)
      OPEN(8,FILE='r150e3')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(4)
      CLOSE(8)

      N=200
      OPEN(8,FILE='r200a3')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(4)
      CLOSE(8)
      OPEN(8,FILE='r200b3')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(4)
      CLOSE(8)
      OPEN(8,FILE='r200c3')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(4)
      CLOSE(8)
      OPEN(8,FILE='r200d3')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(4)
      CLOSE(8)
      OPEN(8,FILE='r200e3')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(4)
      CLOSE(8)

      N=50
      OPEN(8,FILE='r50a4')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(5)
      CLOSE(8)
      OPEN(8,FILE='r50b4')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(5)
      CLOSE(8)
      OPEN(8,FILE='r50c4')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(5)
      CLOSE(8)
      OPEN(8,FILE='r50d4')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(5)
      CLOSE(8)
      OPEN(8,FILE='r50e4')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(5)
      CLOSE(8)

      N=75
      OPEN(8,FILE='r75a4')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(5)
      CLOSE(8)
      OPEN(8,FILE='r75b4')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(5)
      CLOSE(8)
      OPEN(8,FILE='r75c4')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(5)
      CLOSE(8)
      OPEN(8,FILE='r75d4')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(5)
      CLOSE(8)
      OPEN(8,FILE='r75e4')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(5)
      CLOSE(8)

      N=100
      OPEN(8,FILE='r100a4')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(5)
      CLOSE(8)
      OPEN(8,FILE='r100b4')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(5)
      CLOSE(8)
      OPEN(8,FILE='r100c4')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(5)
      CLOSE(8)
      OPEN(8,FILE='r100d4')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(5)
      CLOSE(8)
      OPEN(8,FILE='r100e4')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(5)
      CLOSE(8)

      N=150
      OPEN(8,FILE='r150a4')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(5)
      CLOSE(8)
      OPEN(8,FILE='r150b4')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(5)
      CLOSE(8)
      OPEN(8,FILE='r150c4')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(5)
      CLOSE(8)
      OPEN(8,FILE='r150d4')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(5)
      CLOSE(8)
      OPEN(8,FILE='r150e4')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(5)
      CLOSE(8)

      N=200
      OPEN(8,FILE='r200a4')
      WRITE(8,990)N,ISEED(1),RATIO,PROBZERO(5)
      CLOSE(8)
      OPEN(8,FILE='r200b4')
      WRITE(8,990)N,ISEED(2),RATIO,PROBZERO(5)
      CLOSE(8)
      OPEN(8,FILE='r200c4')
      WRITE(8,990)N,ISEED(3),RATIO,PROBZERO(5)
      CLOSE(8)
      OPEN(8,FILE='r200d4')
      WRITE(8,990)N,ISEED(4),RATIO,PROBZERO(5)
      CLOSE(8)
      OPEN(8,FILE='r200e4')
      WRITE(8,990)N,ISEED(5),RATIO,PROBZERO(5)
      CLOSE(8)

  990 FORMAT(I5,I7,2F6.2)

      STOP
      END