00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011 #include "asl.h"
00012 #include "nlp.h"
00013 #include "getstub.h"
00014 #include "r_opn.hd"
00015
00016 #define CHR (char*)
00017
00018 fint timing = 0;
00019
00020 keyword keywds[] = {
00021 KW(CHR"timing", L_val, &timing, CHR"display timings for the run"),
00022 };
00023
00024 Option_Info Oinfo = { CHR"testampl", CHR"ANALYSIS TEST",
00025 CHR"concert_options", keywds, nkeywds, 0, CHR"ANALYSIS TEST" };
00026
00027 ASL *readASLfg (char **argv) {
00028
00029
00030
00031 char *stub;
00032
00033
00034 ASL* asl = (ASL*) ASL_alloc (ASL_read_fg);
00035 FILE *nl = NULL;
00036 stub = getstub (&argv, &Oinfo);
00037
00038
00039
00040
00041 nl = jac0dim (stub, - (fint) strlen (stub));
00042
00043
00044 want_xpi0 = 1 | 2;
00045 obj_no = 0;
00046
00047
00048 X0 = new real [n_var];
00049 havex0 = new char [n_var];
00050 pi0 = new real [n_con];
00051 havepi0 = new char [n_con];
00052
00053
00054 fg_read (nl, ASL_return_read_err | ASL_findgroups);
00055
00056 return asl;
00057 }