subroutine dotdriver(outfile, postfile, method, iprint,
     +ndv, ncon, x, xl, xu, minmax, g, rprm, iprm, wk, nrwk, iwk, nriwk)
      IMPLICIT REAL*8(A-H,O-Z)
      external eval
      DIMENSION X(NDV),XL(NDV),XU(NDV),G(NCON),
     +          WK(NRWK),IWK(NRIWK),RPRM(20),IPRM(20)
      CHARACTER*256 OUTFILE,POSTFILE

      IPRM(5) = 26
      IPRM(13)= 21

      OPEN(UNIT=26,FILE=OUTFILE,STATUS='UNKNOWN')
      OPEN(UNIT=21,FILE=POSTFILE,STATUS='UNKNOWN')
      INFO=0
      OBJ=0
c      write(21,*)outfile
c      write(21,*)postfile
c      write(21,*)rprm(9)
c      write(21,*)rprm(10)


1     CALL DOT (INFO,METHOD,IPRINT,NDV,NCON,X,XL,XU,OBJ,
     +          MINMAX,G,RPRM,IPRM,WK,NRWK,IWK,NRIWK)
      IF(INFO .EQ. 0) GO TO 70
      CALL EVAL(X,OBJ,G,NDV,NCON)
      GO TO 1

70    CLOSE(UNIT=26)
      CLOSE(UNIT=21)
      return
      END