loop5.gms : complex search structures- tremove2 problem

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;