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
00028 ASL *readASLfg (char **argv) {
00029
00030
00031
00032 char *stub;
00033
00034
00035 ASL* asl = (ASL*) ASL_alloc (ASL_read_fg);
00036 FILE *nl = NULL;
00037 stub = getstub (&argv, &Oinfo);
00038
00039
00040
00041
00042 nl = jac0dim (stub, - (fint) strlen (stub));
00043
00044
00045 want_xpi0 = 1 | 2;
00046 obj_no = 0;
00047
00048
00049 X0 = new real [n_var];
00050 havex0 = new char [n_var];
00051 pi0 = new real [n_con];
00052 havepi0 = new char [n_con];
00053
00054
00055 fg_read (nl, ASL_return_read_err | ASL_findgroups);
00056
00057 return asl;
00058 }