struct {
    int ndim, ips, irs, ilp, icp[20];
    double  par[20];
} blbcn_;

#define blbcn_1 blbcn_
struct {
    int ntst, ncol, iad, isp, isw, iplt, nbc, nint;
} blcde_;

#define blcde_1 blcde_

struct {
    double ds, dsmin, dsmax;
    int iads;
} bldls_;

#define bldls_1 bldls_

struct {
    int nmx, nuzr;
    double rl0, rl1, a0, a1;
} bllim_;

#define bllim_1 bllim_

struct {
    int npr, mxbf, iid, itmx, itnw, nwtn, jac;
} blmax_;

#define blmax_1 blmax_

struct {
    double epsl[20], epsu, epss;
} bleps_;

#define bleps_1 bleps_

#define EPSU bleps_1.epsu
#define EPSS bleps_1.epss
#define EPSL(a) bleps_1.epsl[(a)]

#define IRS blbcn_1.irs
#define NDIM blbcn_1.ndim
#define IPS blbcn_1.ips
#define ILP blbcn_1.ilp

#define NTST blcde_1.ntst
#define NCOL blcde_1.ncol
#define IAD blcde_1.iad
#define ISP blcde_1.isp
#define ISW blcde_1.isw
#define NBC blcde_1.nbc
#define NIC blcde_1.nint

#define DS bldls_1.ds
#define DSMAX bldls_1.dsmax
#define DSMIN bldls_1.dsmin

#define NMX bllim_1.nmx
#define NUZR bllim_1.nuzr
#define RL0 bllim_1.rl0
#define RL1 bllim_1.rl1
#define AUTO_A0 bllim_1.a0
#define AUTO_A1 bllim_1.a1






















syntax highlighted by Code2HTML, v. 0.9.1