lbfgsb.h in lbfgsb-0.5.0

- old
+ new
@@ -6,76 +6,78 @@
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
 #include <time.h>
 
+#include "common.h"
+
 #define TRUE_ (1)
 #define FALSE_ (0)
 
-extern int setulb_(long* n, long* m, double* x, double* l, double* u, long* nbd, double* f, double* g, double* factr,
-                   double* pgtol, double* wa, long* iwa, char* task, long* iprint, char* csave, long* lsave, long* isave,
+extern void setulb_(F77_int* n, F77_int* m, double* x, double* l, double* u, F77_int* nbd, double* f, double* g, double* factr,
+                   double* pgtol, double* wa, F77_int* iwa, char* task, F77_int* iprint, char* csave, F77_int* lsave, F77_int* isave,
                    double* dsave);
 
-extern int mainlb_(long* n, long* m, double* x, double* l, double* u, long* nbd, double* f, double* g, double* factr,
+extern void mainlb_(F77_int* n, F77_int* m, double* x, double* l, double* u, F77_int* nbd, double* f, double* g, double* factr,
                    double* pgtol, double* ws, double* wy, double* sy, double* ss, double* wt, double* wn, double* snd,
-                   double* z__, double* r__, double* d__, double* t, double* xp, double* wa, long* index, long* iwhere,
-                   long* indx2, char* task, long* iprint, char* csave, long* lsave, long* isave, double* dsave);
+                   double* z__, double* r__, double* d__, double* t, double* xp, double* wa, F77_int* index, F77_int* iwhere,
+                   F77_int* indx2, char* task, F77_int* iprint, char* csave, F77_int* lsave, F77_int* isave, double* dsave);
 
-extern int active_(long* n, double* l, double* u, long* nbd, double* x, long* iwhere, long* iprint, long* prjctd, long* cnstnd,
-                   long* boxed);
+extern void active_(F77_int* n, double* l, double* u, F77_int* nbd, double* x, F77_int* iwhere, F77_int* iprint, F77_int* prjctd, F77_int* cnstnd,
+                   F77_int* boxed);
 
-extern int bmv_(long* m, double* sy, double* wt, long* col, double* v, double* p, long* info);
+extern void bmv_(F77_int* m, double* sy, double* wt, F77_int* col, double* v, double* p, F77_int* info);
 
-extern int cauchy_(long* n, double* x, double* l, double* u, long* nbd, double* g, long* iorder, long* iwhere, double* t,
-                   double* d__, double* xcp, long* m, double* wy, double* ws, double* sy, double* wt, double* theta, long* col,
-                   long* head, double* p, double* c__, double* wbp, double* v, long* nseg, long* iprint, double* sbgnrm,
-                   long* info, double* epsmch);
+extern void cauchy_(F77_int* n, double* x, double* l, double* u, F77_int* nbd, double* g, F77_int* iorder, F77_int* iwhere, double* t,
+                   double* d__, double* xcp, F77_int* m, double* wy, double* ws, double* sy, double* wt, double* theta, F77_int* col,
+                   F77_int* head, double* p, double* c__, double* wbp, double* v, F77_int* nseg, F77_int* iprint, double* sbgnrm,
+                   F77_int* info, double* epsmch);
 
-extern int cmprlb_(long* n, long* m, double* x, double* g, double* ws, double* wy, double* sy, double* wt, double* z__,
-                   double* r__, double* wa, long* index, double* theta, long* col, long* head, long* nfree, long* cnstnd,
-                   long* info);
+extern void cmprlb_(F77_int* n, F77_int* m, double* x, double* g, double* ws, double* wy, double* sy, double* wt, double* z__,
+                   double* r__, double* wa, F77_int* index, double* theta, F77_int* col, F77_int* head, F77_int* nfree, F77_int* cnstnd,
+                   F77_int* info);
 
-extern int errclb_(long* n, long* m, double* factr, double* l, double* u, long* nbd, char* task, long* info, long* k);
+extern void errclb_(F77_int* n, F77_int* m, double* factr, double* l, double* u, F77_int* nbd, char* task, F77_int* info, F77_int* k);
 
-extern int formk_(long* n, long* nsub, long* ind, long* nenter, long* ileave, long* indx2, long* iupdat, long* updatd,
-                  double* wn, double* wn1, long* m, double* ws, double* wy, double* sy, double* theta, long* col, long* head,
-                  long* info);
+extern void formk_(F77_int* n, F77_int* nsub, F77_int* ind, F77_int* nenter, F77_int* ileave, F77_int* indx2, F77_int* iupdat, F77_int* updatd,
+                  double* wn, double* wn1, F77_int* m, double* ws, double* wy, double* sy, double* theta, F77_int* col, F77_int* head,
+                  F77_int* info);
 
-extern int formt_(long* m, double* wt, double* sy, double* ss, long* col, double* theta, long* info);
+extern void formt_(F77_int* m, double* wt, double* sy, double* ss, F77_int* col, double* theta, F77_int* info);
 
-extern int freev_(long* n, long* nfree, long* index, long* nenter, long* ileave, long* indx2, long* iwhere, long* wrk,
-                  long* updatd, long* cnstnd, long* iprint, long* iter);
+extern void freev_(F77_int* n, F77_int* nfree, F77_int* index, F77_int* nenter, F77_int* ileave, F77_int* indx2, F77_int* iwhere, F77_int* wrk,
+                  F77_int* updatd, F77_int* cnstnd, F77_int* iprint, F77_int* iter);
 
-extern int hpsolb_(long* n, double* t, long* iorder, long* iheap);
+extern void hpsolb_(F77_int* n, double* t, F77_int* iorder, F77_int* iheap);
 
-extern int lnsrlb_(long* n, double* l, double* u, long* nbd, double* x, double* f, double* fold, double* gd, double* gdold,
+extern void lnsrlb_(F77_int* n, double* l, double* u, F77_int* nbd, double* x, double* f, double* fold, double* gd, double* gdold,
                    double* g, double* d__, double* r__, double* t, double* z__, double* stp, double* dnorm, double* dtd,
-                   double* xstep, double* stpmx, long* iter, long* ifun, long* iback, long* nfgv, long* info, char* task,
-                   long* boxed, long* cnstnd, char* csave, long* isave, double* dsave);
+                   double* xstep, double* stpmx, F77_int* iter, F77_int* ifun, F77_int* iback, F77_int* nfgv, F77_int* info, char* task,
+                   F77_int* boxed, F77_int* cnstnd, char* csave, F77_int* isave, double* dsave);
 
-extern int matupd_(long* n, long* m, double* ws, double* wy, double* sy, double* ss, double* d__, double* r__, long* itail,
-                   long* iupdat, long* col, long* head, double* theta, double* rr, double* dr, double* stp, double* dtd);
+extern void matupd_(F77_int* n, F77_int* m, double* ws, double* wy, double* sy, double* ss, double* d__, double* r__, F77_int* itail,
+                   F77_int* iupdat, F77_int* col, F77_int* head, double* theta, double* rr, double* dr, double* stp, double* dtd);
 
-extern int prn1lb_(long* n, long* m, double* l, double* u, double* x, long* iprint, long* itfile, double* epsmch);
+extern void prn1lb_(F77_int* n, F77_int* m, double* l, double* u, double* x, F77_int* iprint, F77_int* itfile, double* epsmch);
 
-extern int prn2lb_(long* n, double* x, double* f, double* g, long* iprint, long* itfile, long* iter, long* nfgv, long* nact,
-                   double* sbgnrm, long* nseg, char* word, long* iword, long* iback, double* stp, double* xstep);
+extern void prn2lb_(F77_int* n, double* x, double* f, double* g, F77_int* iprint, F77_int* itfile, F77_int* iter, F77_int* nfgv, F77_int* nact,
+                   double* sbgnrm, F77_int* nseg, char* word, F77_int* iword, F77_int* iback, double* stp, double* xstep);
 
-extern int prn3lb_(long* n, double* x, double* f, char* task, long* iprint, long* info, long* itfile, long* iter, long* nfgv,
-                   long* nintol, long* nskip, long* nact, double* sbgnrm, double* time, long* nseg, char* word, long* iback,
-                   double* stp, double* xstep, long* k, double* cachyt, double* sbtime, double* lnscht);
+extern void prn3lb_(F77_int* n, double* x, double* f, char* task, F77_int* iprint, F77_int* info, F77_int* itfile, F77_int* iter, F77_int* nfgv,
+                   F77_int* nintol, F77_int* nskip, F77_int* nact, double* sbgnrm, double* time, F77_int* nseg, char* word, F77_int* iback,
+                   double* stp, double* xstep, F77_int* k, double* cachyt, double* sbtime, double* lnscht);
 
-extern int projgr_(long* n, double* l, double* u, long* nbd, double* x, double* g, double* sbgnrm);
+extern void projgr_(F77_int* n, double* l, double* u, F77_int* nbd, double* x, double* g, double* sbgnrm);
 
-extern int subsm_(long* n, long* m, long* nsub, long* ind, double* l, double* u, long* nbd, double* x, double* d__, double* xp,
-                  double* ws, double* wy, double* theta, double* xx, double* gg, long* col, long* head, long* iword, double* wv,
-                  double* wn, long* iprint, long* info);
+extern void subsm_(F77_int* n, F77_int* m, F77_int* nsub, F77_int* ind, double* l, double* u, F77_int* nbd, double* x, double* d__, double* xp,
+                  double* ws, double* wy, double* theta, double* xx, double* gg, F77_int* col, F77_int* head, F77_int* iword, double* wv,
+                  double* wn, F77_int* iprint, F77_int* info);
 
-extern int dcsrch_(double* f, double* g, double* stp, double* ftol, double* gtol, double* xtol, double* stpmin, double* stpmax,
-                   char* task, long* isave, double* dsave);
+extern void dcsrch_(double* f, double* g, double* stp, double* ftol, double* gtol, double* xtol, double* stpmin, double* stpmax,
+                   char* task, F77_int* isave, double* dsave);
 
-extern int dcstep_(double* stx, double* fx, double* dx, double* sty, double* fy, double* dy, double* stp, double* fp,
-                   double* dp, long* brackt, double* stpmin, double* stpmax);
+extern void dcstep_(double* stx, double* fx, double* dx, double* sty, double* fy, double* dy, double* stp, double* fp,
+                   double* dp, F77_int* brackt, double* stpmin, double* stpmax);
 
-extern int timer_(double* ttime);
+extern void timer_(double* ttime);
 
 #endif /* LBFGSB_RB_LBFGSB_H_ */