Description
Small Model of Type : GAMS
Category : GAMS Test library
Main file : loop5.gms
$title complex search structures- tremove2 problem (LOOP5,SEQ=139)
Set WorkFileLabelOrder dummy set to establish the proper order /
1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,
2019,2020,pk,op,1,2,3,4,5,SCAR,BCAR,SLOW,MOTORU,MOTORNU,BUSU,BUSNU,TRAINU,TRAINNU,STRUCK,LTRUCK,RAIL,PLANE,IWW,MIX,CAR,
TRUCK,A,B,C,PETROL,DIESEL,GASOILIWW,DIESELOILIWW,DIESELRAIL,KEROSENE,OILMARITIME,ELECTRICITY,resource,tax,METROP,OURBAN,
MOTORW,OTHERR,metro,bus,tram,BN,BF,BNT,BNO,BFO,BFT,BNTN,BNTU,BFTN,BFTU,BNTNS,BNTNL,BNTUM,BNTUO,BFTNS,BFTNL,BFTUM,BFTUO,
P,PC,PL,PCN,PCO,PLO,PLC,PCNN,PCNU,PLCN,PLCU,PCNNS,PCNNL,PCNUM,PCNUO,PLCNS,PLCNL,PLCUM,PLCUO,FU,FUS,FUL,FN,FNB,FNN,FNBT,
FNBN,FNNC,FNNU,FNBTS,FNBTL,FNBNI,FNBNT,FNNCT,FNNCN,FNNUT,FNNUN,FNBTSM,FNBTSO,FNBTLM,FNBTLO,FNNCTS,FNNCTL,FNNCNI,FNNCNT,
FNNUTM,FNNUTO,FNNUNI,FNNUNT,FNNCTSM,FNNCTSO,FNNCTLM,FNNCTLO,TU,TUP,TUN,TUPC,TUPN,TUNB,TUNT,TUPCB,TUPCS,TUPNM,TUPNS,TN,
TNP,TNN,TNPC,TNPN,TNNB,TNNN,TNPCB,TNPCS,TNPNM,TNPNS,TNNBM,TNNBO,TNNNT,TNNNP,TNPCBM,TNPCBO,TNPCSM,TNPCSO,TNPNMM,TNPNMO,
NONWORK,WORK,BUSINESS,PEAK,OFFPEAK,PCGS,PCGM,PCGB,PCDM,PCDB,PCDS,LTG,LTD,HTD1,HTD2,HTD3,HTD4,MP,MC2,MC3,MC4,COACH,SC,
BC,MOP,MOC,LDV,HDV,TPMETROP,TPOURBAN,TPLONGD,TPSHORTD,TFLONGD,TFSHORTD,LD,SD,BULK,GENCARGO,UNITISED,airdist1,airdist2,
airdist3,airdist4,airdist5 /;
Set UP(*) upper nodes /
B,BN,BF,BNT,BNO,BFO,BFT,BNTN,BNTU,BFTN,BFTU,BNTNS,BNTNL,BNTUM,BNTUO,BFTNS,BFTNL,BFTUM,BFTUO,P,PC,PL,PCN,PCO,PLO,PLC,
PCNN,PCNU,PLCN,PLCU,PCNNS,PCNNL,PCNUM,PCNUO,PLCNS,PLCNL,PLCUM,PLCUO /;
Set UPLOW(UP) set of lower nodes in up /
BNO,BFO,BNTNS,BNTNL,BNTUM,BNTUO,BFTNS,BFTNL,BFTUM,BFTUO,PCO,PLO,PCNNS,PCNNL,PCNUM,PCNUO,PLCNS,PLCNL,PLCUM,PLCUO /;
Set TIME(*) /
pk,op /;
Set LO(*) Lower nodes /
FU,FUS,FUL,FN,FNB,FNN,FNBT,FNBN,FNNC,FNNU,FNBTS,FNBTL,FNBNI,FNBNT,FNNCT,FNNCN,FNNUT,FNNUN,FNBTSM,FNBTSO,FNBTLM,FNBTLO,
FNNCTS,FNNCTL,FNNCNI,FNNCNT,FNNUTM,FNNUTO,FNNUNI,FNNUNT,FNNCTSM,FNNCTSO,FNNCTLM,FNNCTLO,TU,TUP,TUN,TUPC,TUPN,TUNB,TUNT,
TUPCB,TUPCS,TUPNM,TUPNS,TN,TNP,TNN,TNPC,TNPN,TNNB,TNNN,TNPCB,TNPCS,TNPNM,TNPNS,TNNBM,TNNBO,TNNNT,TNNNP,TNPCBM,TNPCBO,
TNPCSM,TNPCSO,TNPNMM,TNPNMO /;
Set LOnotLOW(LO) /
FU,FN,FNB,FNN,FNBT,FNBN,FNNC,FNNU,FNBTS,FNBTL,FNNCT,FNNCN,FNNUT,FNNUN,FNNCTS,FNNCTL,TU,TUP,TUN,TUPC,TUPN,TN,TNP,TNN,
TNPC,TNPN,TNNB,TNNN,TNPCB,TNPCS,TNPNM /;
Set T(*) years / 1995*2020 / ;
Set Y(T) auxiliary set for t loops / 1995 /;
Set LO5(LO) / FNNCTSM,FNNCTSO,FNNCTLM,FNNCTLO /;
Set LOASS(LO,LO) association between lower levels /
FU.FUS,FU.FUL,FN.FNB,FN.FNN,FNB.FNBT,FNB.FNBN,FNN.FNNC,FNN.FNNU,FNBT.FNBTS,FNBT.FNBTL,FNBN.FNBNI,FNBN.FNBNT,FNNC.FNNCT,
FNNC.FNNCN,FNNU.FNNUT,FNNU.FNNUN,FNBTS.FNBTSM,FNBTS.FNBTSO,FNBTL.FNBTLM,FNBTL.FNBTLO,FNNCT.FNNCTS,FNNCT.FNNCTL,FNNCN.
FNNCNI,FNNCN.FNNCNT,FNNUT.FNNUTM,FNNUT.FNNUTO,FNNUN.FNNUNI,FNNUN.FNNUNT,FNNCTS.FNNCTSM,FNNCTS.FNNCTSO,FNNCTL.FNNCTLM,
FNNCTL.FNNCTLO,TU.TUP,TU.TUN,TUP.TUPC,TUP.TUPN,TUN.TUNB,TUN.TUNT,TUPC.TUPCB,TUPC.TUPCS,TUPN.TUPNM,TUPN.TUPNS,TN.TNP,
TN.TNN,TNP.TNPC,TNP.TNPN,TNN.TNNB,TNN.TNNN,TNPC.TNPCB,TNPC.TNPCS,TNPN.TNPNM,TNPN.TNPNS,TNNB.TNNBM,TNNB.TNNBO,TNNN.TNNNT,
TNNN.TNNNP,TNPCB.TNPCBM,TNPCB.TNPCBO,TNPCS.TNPCSM,TNPCS.TNPCSO,TNPNM.TNPNMM,TNPNM.TNPNMO /;
Set uploass(UP,LO) associated set between Up and LO trees /
BNTNS.TN,BNTNS.TNP,BNTNS.TNN,BNTNS.TNPC,BNTNS.TNPN,BNTNS.TNNB,BNTNS.TNNN,BNTNS.TNPCB,BNTNS.TNPCS,BNTNS.TNPNM,BNTNS.TNPNS,
BNTNS.TNNBM,BNTNS.TNNBO,BNTNS.TNNNT,BNTNS.TNNNP,BNTNS.TNPCBM,BNTNS.TNPCBO,BNTNS.TNPCSM,BNTNS.TNPCSO,BNTNS.TNPNMM,BNTNS.
TNPNMO,BNTNL.TN,BNTNL.TNP,BNTNL.TNN,BNTNL.TNPC,BNTNL.TNPN,BNTNL.TNNB,BNTNL.TNNN,BNTNL.TNPCB,BNTNL.TNPCS,BNTNL.TNPNM,
BNTNL.TNPNS,BNTNL.TNNBM,BNTNL.TNNBO,BNTNL.TNNNT,BNTNL.TNNNP,BNTNL.TNPCBM,BNTNL.TNPCBO,BNTNL.TNPCSM,BNTNL.TNPCSO,BNTNL.
TNPNMM,BNTNL.TNPNMO,BNTUM.TU,BNTUM.TUP,BNTUM.TUN,BNTUM.TUPC,BNTUM.TUPN,BNTUM.TUNB,BNTUM.TUNT,BNTUM.TUPCB,BNTUM.TUPCS,
BNTUM.TUPNM,BNTUM.TUPNS,BNTUO.TU,BNTUO.TUP,BNTUO.TUN,BNTUO.TUPC,BNTUO.TUPN,BNTUO.TUNB,BNTUO.TUNT,BNTUO.TUPCB,BNTUO.TUPCS,
BNTUO.TUPNM,BNTUO.TUPNS,BFTNS.FN,BFTNS.FNB,BFTNS.FNN,BFTNS.FNBT,BFTNS.FNBN,BFTNS.FNNC,BFTNS.FNNU,BFTNS.FNBTS,BFTNS.FNBTL,
BFTNS.FNBNI,BFTNS.FNBNT,BFTNS.FNNCT,BFTNS.FNNCN,BFTNS.FNNUT,BFTNS.FNNUN,BFTNS.FNBTSM,BFTNS.FNBTSO,BFTNS.FNBTLM,BFTNS.
FNBTLO,BFTNS.FNNCTS,BFTNS.FNNCTL,BFTNS.FNNCNI,BFTNS.FNNCNT,BFTNS.FNNUTM,BFTNS.FNNUTO,BFTNS.FNNUNI,BFTNS.FNNUNT,BFTNS.
FNNCTSM,BFTNS.FNNCTSO,BFTNS.FNNCTLM,BFTNS.FNNCTLO,BFTNL.FN,BFTNL.FNB,BFTNL.FNN,BFTNL.FNBT,BFTNL.FNBN,BFTNL.FNNC,BFTNL.
FNNU,BFTNL.FNBTS,BFTNL.FNBTL,BFTNL.FNBNI,BFTNL.FNBNT,BFTNL.FNNCT,BFTNL.FNNCN,BFTNL.FNNUT,BFTNL.FNNUN,BFTNL.FNBTSM,BFTNL.
FNBTSO,BFTNL.FNBTLM,BFTNL.FNBTLO,BFTNL.FNNCTS,BFTNL.FNNCTL,BFTNL.FNNCNI,BFTNL.FNNCNT,BFTNL.FNNUTM,BFTNL.FNNUTO,BFTNL.
FNNUNI,BFTNL.FNNUNT,BFTNL.FNNCTSM,BFTNL.FNNCTSO,BFTNL.FNNCTLM,BFTNL.FNNCTLO,BFTUM.FU,BFTUM.FUS,BFTUM.FUL,BFTUO.FU,BFTUO.
FUS,BFTUO.FUL,PCNNS.TN,PCNNS.TNP,PCNNS.TNN,PCNNS.TNPC,PCNNS.TNPN,PCNNS.TNNB,PCNNS.TNNN,PCNNS.TNPCB,PCNNS.TNPCS,PCNNS.
TNPNM,PCNNS.TNPNS,PCNNS.TNNBM,PCNNS.TNNBO,PCNNS.TNNNT,PCNNS.TNNNP,PCNNS.TNPCBM,PCNNS.TNPCBO,PCNNS.TNPCSM,PCNNS.TNPCSO,
PCNNS.TNPNMM,PCNNS.TNPNMO,PCNNL.TN,PCNNL.TNP,PCNNL.TNN,PCNNL.TNPC,PCNNL.TNPN,PCNNL.TNNB,PCNNL.TNNN,PCNNL.TNPCB,PCNNL.
TNPCS,PCNNL.TNPNM,PCNNL.TNPNS,PCNNL.TNNBM,PCNNL.TNNBO,PCNNL.TNNNT,PCNNL.TNNNP,PCNNL.TNPCBM,PCNNL.TNPCBO,PCNNL.TNPCSM,
PCNNL.TNPCSO,PCNNL.TNPNMM,PCNNL.TNPNMO,PCNUM.TU,PCNUM.TUP,PCNUM.TUN,PCNUM.TUPC,PCNUM.TUPN,PCNUM.TUNB,PCNUM.TUNT,PCNUM.
TUPCB,PCNUM.TUPCS,PCNUM.TUPNM,PCNUM.TUPNS,PCNUO.TU,PCNUO.TUP,PCNUO.TUN,PCNUO.TUPC,PCNUO.TUPN,PCNUO.TUNB,PCNUO.TUNT,PCNUO.
TUPCB,PCNUO.TUPCS,PCNUO.TUPNM,PCNUO.TUPNS,PLCNS.TN,PLCNS.TNP,PLCNS.TNN,PLCNS.TNPC,PLCNS.TNPN,PLCNS.TNNB,PLCNS.TNNN,PLCNS.
TNPCB,PLCNS.TNPCS,PLCNS.TNPNM,PLCNS.TNPNS,PLCNS.TNNBM,PLCNS.TNNBO,PLCNS.TNNNT,PLCNS.TNNNP,PLCNS.TNPCBM,PLCNS.TNPCBO,
PLCNS.TNPCSM,PLCNS.TNPCSO,PLCNS.TNPNMM,PLCNS.TNPNMO,PLCNL.TN,PLCNL.TNP,PLCNL.TNN,PLCNL.TNPC,PLCNL.TNPN,PLCNL.TNNB,PLCNL.
TNNN,PLCNL.TNPCB,PLCNL.TNPCS,PLCNL.TNPNM,PLCNL.TNPNS,PLCNL.TNNBM,PLCNL.TNNBO,PLCNL.TNNNT,PLCNL.TNNNP,PLCNL.TNPCBM,PLCNL.
TNPCBO,PLCNL.TNPCSM,PLCNL.TNPCSO,PLCNL.TNPNMM,PLCNL.TNPNMO,PLCUM.TU,PLCUM.TUP,PLCUM.TUN,PLCUM.TUPC,PLCUM.TUPN,PLCUM.
TUNB,PLCUM.TUNT,PLCUM.TUPCB,PLCUM.TUPCS,PLCUM.TUPNM,PLCUM.TUPNS,PLCUO.TU,PLCUO.TUP,PLCUO.TUN,PLCUO.TUPC,PLCUO.TUPN,PLCUO.
TUNB,PLCUO.TUNT,PLCUO.TUPCB,PLCUO.TUPCS,PLCUO.TUPNM,PLCUO.TUPNS /;
Parameter GPlo(UP,TIME,LO,T) lower tree generalised price /
BFTNS.pk.FNBNI.1995 2.57780228070175E-001,
BFTNS.pk.FNBNT.1995 1.50247938271605E-001,BFTNS.pk.FNBTSM.1995 7.80005578769956E-002,BFTNS.pk.FNBTSO.1995 8.08718862850204E-002,
BFTNS.pk.FNBTLM.1995 7.97047509882634E-002,BFTNS.pk.FNBTLO.1995 8.35700007682967E-002,BFTNS.pk.FNNCNI.1995 4.50271912280702E-001,
BFTNS.pk.FNNCNT.1995 1.79004296296296E-001,BFTNS.pk.FNNUTM.1995 9.38985832868566E-002,BFTNS.pk.FNNUTO.1995 1.12341346523016E-001,
BFTNS.pk.FNNUNI.1995 9.74582614035088E-001,BFTNS.pk.FNNUNT.1995 3.52558580246914E-001,BFTNS.pk.FNNCTSM.1995 8.40144805197192E-002,
BFTNS.pk.FNNCTSO.1995 9.16345443717850E-002,BFTNS.pk.FNNCTLM.1995 8.59165448901418E-002,BFTNS.pk.FNNCTLO.1995 9.38679158662104E-002,
BFTNS.op.FNBNI.1995 2.57780228070175E-001,BFTNS.op.FNBNT.1995 1.50247938271605E-001,BFTNS.op.FNBTSM.1995 7.79903623522737E-002,
BFTNS.op.FNBTSO.1995 8.08333156878183E-002,BFTNS.op.FNBTLM.1995 7.96910262434454E-002,BFTNS.op.FNBTLO.1995 8.35180788105246E-002,
BFTNS.op.FNNCNI.1995 4.50271912280702E-001,BFTNS.op.FNNCNT.1995 1.79004296296296E-001,BFTNS.op.FNNUTM.1995 9.38330966472968E-002,
BFTNS.op.FNNUTO.1995 1.12093604610217E-001,BFTNS.op.FNNUNI.1995 9.74582614035088E-001,BFTNS.op.FNNUNT.1995 3.52558580246914E-001,
BFTNS.op.FNNCTSM.1995 8.39874231656496E-002,BFTNS.op.FNNCTSO.1995 9.15321839407485E-002,BFTNS.op.FNNCTLM.1995 8.58883111293735E-002,
BFTNS.op.FNNCTLO.1995 9.37611049816506E-002,BFTNL.pk.FNBNI.1995 2.22247228070175E-001,BFTNL.pk.FNBNT.1995 1.20020938271605E-001,
BFTNL.pk.FNBTSM.1995 7.39015578769956E-002,BFTNL.pk.FNBTSO.1995 7.67728862850204E-002,BFTNL.pk.FNBTLM.1995 6.02707509882634E-002,
BFTNL.pk.FNBTLO.1995 6.41360007682967E-002,BFTNL.pk.FNNCNI.1995 4.16013912280702E-001,BFTNL.pk.FNNCNT.1995 1.45078296296296E-001,
BFTNL.pk.FNNUTM.1995 7.66925832868566E-002,BFTNL.pk.FNNUTO.1995 9.51353465230158E-002,BFTNL.pk.FNNUNI.1995 9.41164614035088E-001,
BFTNL.pk.FNNUNT.1995 3.05906580246914E-001,BFTNL.pk.FNNCTSM.1995 7.96974805197192E-002,BFTNL.pk.FNNCTSO.1995 8.73175443717850E-002,
BFTNL.pk.FNNCTLM.1995 6.72065448901418E-002,BFTNL.pk.FNNCTLO.1995 7.51579158662104E-002,BFTNL.op.FNBNI.1995 2.22247228070175E-001,
BFTNL.op.FNBNT.1995 1.20020938271605E-001,BFTNL.op.FNBTSM.1995 7.38913623522738E-002,BFTNL.op.FNBTSO.1995 7.67343156878183E-002,
BFTNL.op.FNBTLM.1995 6.02570262434454E-002,BFTNL.op.FNBTLO.1995 6.40840788105246E-002,BFTNL.op.FNNCNI.1995 4.16013912280702E-001,
BFTNL.op.FNNCNT.1995 1.45078296296296E-001,BFTNL.op.FNNUTM.1995 7.66270966472968E-002,BFTNL.op.FNNUTO.1995 9.48876046102174E-002,
BFTNL.op.FNNUNI.1995 9.41164614035088E-001,BFTNL.op.FNNUNT.1995 3.05906580246914E-001,BFTNL.op.FNNCTSM.1995 7.96704231656496E-002,
BFTNL.op.FNNCTSO.1995 8.72151839407485E-002,BFTNL.op.FNNCTLM.1995 6.71783111293735E-002,BFTNL.op.FNNCTLO.1995 7.50511049816506E-002
/;
Parameter Slo(UP,TIME,LO,T) lower tree elasticity of substitution /
BFTNS.pk.FN.1995 1.00000000000000E-001
BFTNS.pk.FNB.1995 1.01000000000000E+000,
BFTNS.pk.FNN.1995 1.01000000000000E+000,
BFTNS.pk.FNBT.1995 4.00000000000000E-001,
BFTNS.pk.FNBN.1995 5.00000000000000E-001,
BFTNS.pk.FNNC.1995 5.00000000000000E-001,
BFTNS.pk.FNNU.1995 1.01000000000000E+000,
BFTNS.pk.FNBTS.1995 1.10000000000000E+000,
BFTNS.pk.FNBTL.1995 1.10000000000000E+000,
BFTNS.pk.FNNCT.1995 6.00000000000000E-001,
BFTNS.pk.FNNCN.1995 3.00000000000000E-001,
BFTNS.pk.FNNUT.1995 1.10000000000000E+000,
BFTNS.pk.FNNUN.1995 6.00000000000000E-001,
BFTNS.pk.FNNCTS.1995 1.10000000000000E+000,
BFTNS.pk.FNNCTL.1995 1.10000000000000E+000,
BFTNS.op.FN.1995 1.00000000000000E-001,
BFTNS.op.FNB.1995 1.01000000000000E+000,
BFTNS.op.FNN.1995 1.01000000000000E+000,
BFTNS.op.FNBT.1995 4.00000000000000E-001,
BFTNS.op.FNBN.1995 5.00000000000000E-001,
BFTNS.op.FNNC.1995 5.00000000000000E-001,
BFTNS.op.FNNU.1995 1.01000000000000E+000,
BFTNS.op.FNBTS.1995 1.10000000000000E+000,
BFTNS.op.FNBTL.1995 1.10000000000000E+000,
BFTNS.op.FNNCT.1995 6.00000000000000E-001,
BFTNS.op.FNNCN.1995 3.00000000000000E-001,
BFTNS.op.FNNUT.1995 1.10000000000000E+000,
BFTNS.op.FNNUN.1995 6.00000000000000E-001,
BFTNS.op.FNNCTS.1995 1.10000000000000E+000,
BFTNS.op.FNNCTL.1995 1.10000000000000E+000,
BFTNL.pk.FN.1995 1.00000000000000E-001,
BFTNL.pk.FNB.1995 2.00000000000000E+000,
BFTNL.pk.FNN.1995 1.01000000000000E+000,
BFTNL.pk.FNBT.1995 4.00000000000000E-001,
BFTNL.pk.FNBN.1995 5.00000000000000E-001,
BFTNL.pk.FNNC.1995 5.00000000000000E-001,
BFTNL.pk.FNNU.1995 2.00000000000000E+000,
BFTNL.pk.FNBTS.1995 1.10000000000000E+000,
BFTNL.pk.FNBTL.1995 1.10000000000000E+000,
BFTNL.pk.FNNCT.1995 6.00000000000000E-001,
BFTNL.pk.FNNCN.1995 3.00000000000000E-001,
BFTNL.pk.FNNUT.1995 1.10000000000000E+000,
BFTNL.pk.FNNUN.1995 6.00000000000000E-001,
BFTNL.pk.FNNCTS.1995 1.10000000000000E+000,
BFTNL.pk.FNNCTL.1995 1.10000000000000E+000,
BFTNL.op.FN.1995 1.00000000000000E-001,
BFTNL.op.FNB.1995 2.00000000000000E+000,
BFTNL.op.FNN.1995 1.01000000000000E+000,
BFTNL.op.FNBT.1995 4.00000000000000E-001,
BFTNL.op.FNBN.1995 5.00000000000000E-001,
BFTNL.op.FNNC.1995 5.00000000000000E-001,
BFTNL.op.FNNU.1995 2.00000000000000E+000,
BFTNL.op.FNBTS.1995 1.10000000000000E+000,
BFTNL.op.FNBTL.1995 1.10000000000000E+000,
BFTNL.op.FNNCT.1995 6.00000000000000E-001,
BFTNL.op.FNNCN.1995 3.00000000000000E-001,
BFTNL.op.FNNUT.1995 1.10000000000000E+000,
BFTNL.op.FNNUN.1995 6.00000000000000E-001,
BFTNL.op.FNNCTS.1995 1.10000000000000E+000,
BFTNL.op.FNNCTL.1995 1.10000000000000E+000
/;
Parameter Xlo(UP,TIME,LO,T) lower tree expenditures /
BFTNS.pk.FNBTSO.1995 3.89153670413420E+004,
BFTNS.pk.FNBTLM.1995 4.17490938036081E+004,BFTNS.pk.FNBTLO.1995 1.67892131543508E+004,BFTNS.pk.FNNCNI.1995 2.69301462626700E+005,
BFTNS.pk.FNNCNT.1995 1.67822494587654E+005,BFTNS.pk.FNNUTM.1995 7.93979837113094E+005,BFTNS.pk.FNNUTO.1995 4.17293573177134E+005,
BFTNS.pk.FNNUNI.1995 2.32814169037280E+005,BFTNS.pk.FNNUNT.1995 2.01968575713823E+005,BFTNS.pk.FNNCTSM.1995 1.25266127533772E+005,
BFTNS.pk.FNNCTSO.1995 6.55822576152787E+004,BFTNS.pk.FNNCTLM.1995 1.45847375774816E+005,BFTNS.pk.FNNCTLO.1995 6.02599016073300E+004,
BFTNS.op.FNBNI.1995 4.50672032824909E+005,BFTNS.op.FNBNT.1995 3.29269157129808E+005,BFTNS.op.FNBTSM.1995 4.21928691273345E+004,
BFTNS.op.FNBTSO.1995 2.96563655454409E+004,BFTNS.op.FNBTLM.1995 3.18255877576582E+004,BFTNS.op.FNBTLO.1995 1.27927577794477E+004,
BFTNS.op.FNNCNI.1995 2.69301462626700E+005,BFTNS.op.FNNCNT.1995 1.67822467341947E+005,BFTNS.op.FNNUTM.1995 6.04937261007208E+005,
BFTNS.op.FNNUTO.1995 3.17458472043432E+005,BFTNS.op.FNNUNI.1995 2.32814139369620E+005,BFTNS.op.FNNUNT.1995 2.01968575713823E+005,
BFTNS.op.FNNCTSM.1995 9.54767876034458E+004,BFTNS.op.FNNCTSO.1995 4.99464796588462E+004,BFTNS.op.FNNCTLM.1995 1.11162901063136E+005,
BFTNS.op.FNNCTLO.1995 4.58921077947463E+004,BFTNL.pk.FNBNI.1995 7.33217961264119E+005,BFTNL.pk.FNBNT.1995 1.26684237704854E+005,
BFTNL.pk.FNBTSM.1995 1.74754406501667E+005,BFTNL.pk.FNBTSO.1995 2.75321487494729E+004,BFTNL.pk.FNBTLM.1995 1.23065140147701E+005,
BFTNL.pk.FNBTLO.1995 2.31800948979525E+004,BFTNL.pk.FNNCNI.1995 5.06021656554025E+005,BFTNL.pk.FNNCNT.1995 2.51818692232234E+005,
BFTNL.pk.FNNUTM.1995 6.06537127604653E+005,BFTNL.pk.FNNUTO.1995 1.40766689676799E+005,BFTNL.pk.FNNUNI.1995 1.93117653104966E+005,
BFTNL.pk.FNNUNT.1995 4.40696562405682E+005,BFTNL.pk.FNNCTSM.1995 1.97811912407258E+004,BFTNL.pk.FNNCTSO.1995 4.79699463584187E+003,
BFTNL.pk.FNNCTLM.1995 2.63723791159083E+005,BFTNL.pk.FNNCTLO.1995 4.78532852627975E+004,BFTNL.op.FNBNI.1995 7.33217961264119E+005,
BFTNL.op.FNBNT.1995 1.26684237704854E+005,BFTNL.op.FNBTSM.1995 1.33220840333280E+005,BFTNL.op.FNBTSO.1995 2.09809839110659E+004,
BFTNL.op.FNBTLM.1995 9.38080834265482E+004,BFTNL.op.FNBTLO.1995 1.76590555764465E+004,BFTNL.op.FNNCNI.1995 5.06021719874256E+005,
BFTNL.op.FNNCNT.1995 2.51818603904504E+005,BFTNL.op.FNNUTM.1995 4.62051362447870E+005,BFTNL.op.FNNUTO.1995 1.07046245187442E+005,
BFTNL.op.FNNUNI.1995 1.93117667430150E+005,BFTNL.op.FNNUNT.1995 4.40696608966806E+005,BFTNL.op.FNNCTSM.1995 1.50767969259581E+004,
BFTNL.op.FNNCTSO.1995 3.65311749614174E+003,BFTNL.op.FNNCTLM.1995 2.00988304390712E+005,BFTNL.op.FNNCTLO.1995 3.64332676190992E+004
/;
* *** EDITS FOR INPUT FILE ***
*** END OF DUMP ***
slo(uplow,time,lo,y)$(Ord(y) > 1) = 0;
parameter err1;
err1(uplow,time,lonotlow,lo-1,Y)$(lo5(lo) and
loass(lonotlow,lo) and
loass(lonotlow,lo-1) and
uploass(uplow,lonotlow))
= [ ( ( gplo(uplow,time,lo-1,Y)
/gplo(uplow,time,lo,Y)
)**(slo(uplow,time,lonotlow,Y)-1)
) * (xlo(uplow,time,lo-1,Y)/xlo(uplow,time,lo,Y))
];
table err1OK
FNNCTSM.1995 FNNCTLM.1995
BFTNS.pk.FNNCTS 1.893550
BFTNS.pk.FNNCTL 2.398977
BFTNS.op.FNNCTS 1.895208
BFTNS.op.FNNCTL 2.401115
BFTNL.pk.FNNCTS 4.086180
BFTNL.pk.FNNCTL 5.449808
BFTNL.op.FNNCTS 4.089931
BFTNL.op.FNNCTL 5.455818
parameter diff;
diff(uplow,time,lonotlow,lo,Y) = abs(err1(uplow,time,lonotlow,lo,Y) -
err1ok(uplow,time,lonotlow,lo,Y)) > 1e-3;
abort$card(diff) 'wrong calculation', diff, err1, err1ok;