Changeset 527


Ignore:
Timestamp:
Sep 27, 2005 11:33:46 PM (14 years ago)
Author:
andreasw
Message:
  • corrected CUTEr interface
Location:
branches/dev
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • branches/dev/Algorithm/IpQualityFunctionMuOracle.cpp

    r526 r527  
    495495    DBG_START_METH("QualityFunctionMuOracle::CalculateQualityFunction",
    496496                   dbg_verbosity);
    497     // DELETEME
    498497    count_qf_evals_++;
    499498

  • branches/dev/Algorithm/IpQualityFunctionMuOracle.hpp

    r526 r527  
    231231    //@}
    232232
    233     // Deleteme
    234233    Index count_qf_evals_;
    235234  };

  • branches/dev/Apps/CUTErInterface/CUTErInterface.f

    r455 r527  
    4949C64BIT     INTEGER*8 IPROBLEM, IPCREATE
    5050C
    51       integer NELE_JAC, NELE_HESS
     51      integer IDX_STYLE, NELE_JAC, NELE_HESS
    5252
    5353      external EV_F, EV_G, EV_GRAD_F, EV_JAC_G, EV_HESS
    … …  
    105105C     Call IPOPT
    106106C
     107      IDX_STYLE = 1
    107108      IPROBLEM = IPCREATE(N, X_L, X_U, M, G_L, G_U, NELE_JAC, NELE_HESS,
    108      1     EV_F, EV_G, EV_GRAD_F, EV_JAC_G, EV_HESS)
     109     1     IDX_STYLE, EV_F, EV_G, EV_GRAD_F, EV_JAC_G, EV_HESS)
    109110      if (IPROBLEM.eq.0) then
    110111         write(*,*) 'Error creating Ipopt Problem.'
Note: See TracChangeset for help on using the changeset viewer.