INTEGER K,N,NOUT
       REAL CONPER,PHAT,PLOWER,PUPPER
       EXTERNAL BINES,UMACH
       OPEN(9,FILE='temp.file')
C
C      This prog. estiates the parameter p for binomial dist.
C
       CALL UMACH (2,NOUT)
       N=50
       K=3
        CONPER=95.
      CALL BINES(N,K,CONPER,PHAT,PLOWER,PUPPER)
      WRITE(9,99)
99     FORMAT(1X,'OUTOPIT OF IMSL')
      WRITE(9,100)PHAT,PLOWER,PUPPER
100    FORMAT(1X,3F10.5)
       STOP
       END