$STITLE 2repperc.inc
*% changes in report parameters
*Standard CGE modeling system, Version 1.01

*Computing %-age changes
CPIXP(SIMCUR)$CPIX('BASE')                      = 100*(CPIX(SIMCUR)/CPIX('BASE') - 1);
DPIXP(SIMCUR)$DPIX('BASE')                      = 100*(DPIX(SIMCUR)/DPIX('BASE') - 1);
*DMPS is zero for the base; DMPSXP is excluded
*DTINS is zero for the base; DTINSXP is excluded
EGXP(SIMCUR)$EGX('BASE')                        = 100*(EGX(SIMCUR)/EGX('BASE') - 1);
EHXP(H,SIMCUR)$EHX(H,'BASE')                    = 100*(EHX(H,SIMCUR)/EHX(H,'BASE') - 1);
EXRXP(SIMCUR)$EXRX('BASE')                      = 100*(EXRX(SIMCUR)/EXRX('BASE') - 1);
FSAVXP(SIMCUR)$FSAVX('BASE')                    = 100*(FSAVX(SIMCUR)/FSAVX('BASE') - 1);
GADJXP(SIMCUR)$GADJX('BASE')                    = 100*(GADJX(SIMCUR)/GADJX('BASE') - 1);
GOVSHRXP(SIMCUR)$GOVSHRX('BASE')                = 100*(GOVSHRX(SIMCUR)/GOVSHRX('BASE') - 1);
GSAVXP(SIMCUR)$GSAVX('BASE')                    = 100*(GSAVX(SIMCUR)/GSAVX('BASE') - 1);
IADJXP(SIMCUR)$IADJX('BASE')                    = 100*(IADJX(SIMCUR)/IADJX('BASE') - 1);
INVSHRXP(SIMCUR)$INVSHRX('BASE')                = 100*(INVSHRX(SIMCUR)/INVSHRX('BASE') - 1);
MPSXP(INS,SIMCUR)$MPSX(INS,'BASE')              = 100*(MPSX(INS,SIMCUR)/MPSX(INS,'BASE') - 1);
*MPSADJ is zero for the base; MPSADJXP is excluded
PAXP(A,SIMCUR)$PAX(A,'BASE')                    = 100*(PAX(A,SIMCUR)/PAX(A,'BASE') - 1);
PDDXP(C,SIMCUR)$PDDX(C,'BASE')                  = 100*(PDDX(C,SIMCUR)/PDDX(C,'BASE') - 1);
PDSXP(C,SIMCUR)$PDSX(C,'BASE')                  = 100*(PDSX(C,SIMCUR)/PDSX(C,'BASE') - 1);
PEXP(C,SIMCUR)$PEX(C,'BASE')                    = 100*(PEX(C,SIMCUR)/PEX(C,'BASE') - 1);
PINTAXP(A,SIMCUR)$PINTAX(A,'BASE')              = 100*(PINTAX(A,SIMCUR)/PINTAX(A,'BASE') - 1);
PMXP(C,SIMCUR)$PMX(C,'BASE')                    = 100*(PMX(C,SIMCUR)/PMX(C,'BASE') - 1);
PQXP(C,SIMCUR)$PQX(C,'BASE')                    = 100*(PQX(C,SIMCUR)/PQX(C,'BASE') - 1);
PVAXP(A,SIMCUR)$PVAX(A,'BASE')                  = 100*(PVAX(A,SIMCUR)/PVAX(A,'BASE') - 1);
PWEXP(C,SIMCUR)$PWEX(C,'BASE')                  = 100*(PWEX(C,SIMCUR)/PWEX(C,'BASE') - 1);
PWMXP(C,SIMCUR)$PWMX(C,'BASE')                  = 100*(PWMX(C,SIMCUR)/PWMX(C,'BASE') - 1);
PXXP(C,SIMCUR)$PXX(C,'BASE')                    = 100*(PXX(C,SIMCUR)/PXX(C,'BASE') - 1);
PXACXP(A,C,SIMCUR)$PXACX(A,C,'BASE')            = 100*(PXACX(A,C,SIMCUR)/PXACX(A,C,'BASE') - 1);
QAXP(A,SIMCUR)$QAX(A,'BASE')                    = 100*(QAX(A,SIMCUR)/QAX(A,'BASE') - 1);
QDXP(C,SIMCUR)$QDX(C,'BASE')                    = 100*(QDX(C,SIMCUR)/QDX(C,'BASE') - 1);
QEXP(C,SIMCUR)$QEX(C,'BASE')                    = 100*(QEX(C,SIMCUR)/QEX(C,'BASE') - 1);
QFXP(F,A,SIMCUR)$QFX(F,A,'BASE')                = 100*(QFX(F,A,SIMCUR)/QFX(F,A,'BASE') - 1);
QFSXP(F,SIMCUR)$QFSX(F,'BASE')                  = 100*(QFSX(F,SIMCUR)/QFSX(F,'BASE') - 1);
QGXP(C,SIMCUR)$QGX(C,'BASE')                    = 100*(QGX(C,SIMCUR)/QGX(C,'BASE') - 1);
QHXP(C,H,SIMCUR)$QHX(C,H,'BASE')                = 100*(QHX(C,H,SIMCUR)/QHX(C,H,'BASE') - 1);
*QHAXP(A,C,H,SIMCUR)$QHAX(A,C,H,'BASE')         = 100*(QHAX(A,C,H,SIMCUR)/QHAX(A,C,H,'BASE') - 1);
QHAXP(A,H,SIMCUR)$QHAX(A,H,'BASE')              = 100*(QHAX(A,H,SIMCUR)/QHAX(A,H,'BASE') - 1);
QINTXP(C,A,SIMCUR)$QINTX(C,A,'BASE')            = 100*(QINTX(C,A,SIMCUR)/QINTX(C,A,'BASE') - 1);
QINTAXP(A,SIMCUR)$QINTAX(A,'BASE')              = 100*(QINTAX(A,SIMCUR)/QINTAX(A,'BASE') - 1);
QINVXP(C,SIMCUR)$QINVX(C,'BASE')                = 100*(QINVX(C,SIMCUR)/QINVX(C,'BASE') - 1);
QMXP(C,SIMCUR)$QMX(C,'BASE')                    = 100*(QMX(C,SIMCUR)/QMX(C,'BASE') - 1);
QQXP(C,SIMCUR)$QQX(C,'BASE')                    = 100*(QQX(C,SIMCUR)/QQX(C,'BASE') - 1);
QTXP(C,SIMCUR)$QTX(C,'BASE')                    = 100*(QTX(C,SIMCUR)/QTX(C,'BASE') - 1);
QVAXP(A,SIMCUR)$QVAX(A,'BASE')                  = 100*(QVAX(A,SIMCUR)/QVAX(A,'BASE') - 1);
QXXP(C,SIMCUR)$QXX(C,'BASE')                    = 100*(QXX(C,SIMCUR)/QXX(C,'BASE') - 1);
QXACXP(A,C,SIMCUR)$QXACX(A,C,'BASE')            = 100*(QXACX(A,C,SIMCUR)/QXACX(A,C,'BASE') - 1);
TABSXP(SIMCUR)$TABSX('BASE')                    = 100*(TABSX(SIMCUR)/TABSX('BASE') - 1);
TINSXP(INSD,SIMCUR)$TINSX(INSD,'BASE')          = 100*(TINSX(INSD,SIMCUR)/TINSX(INSD,'BASE') - 1);
*TINSADJ is zero for the base; TINSADJXP is excluded
TRIIXP(INS,INSP,SIMCUR)$TRIIX(INS,INSP,'BASE')  = 100*(TRIIX(INS,INSP,SIMCUR)/TRIIX(INS,INSP,'BASE') - 1);
*WALRAS is zero for the base; WALRASXP is excluded
WFXP(F,SIMCUR)$WFX(F,'BASE')                    = 100*(WFX(F,SIMCUR)/WFX(F,'BASE') - 1);
WFDISTXP(F,A,SIMCUR)$WFDISTX(F,A,'BASE')        = 100*(WFDISTX(F,A,SIMCUR)/WFDISTX(F,A,'BASE') - 1);
YFXP(F,SIMCUR)$YFX(F,'BASE')                    = 100*(YFX(F,SIMCUR)/YFX(F,'BASE') - 1);
YGXP(SIMCUR)$YGX('BASE')                        = 100*(YGX(SIMCUR)/YGX('BASE') - 1);
YIXP(INS,SIMCUR)$YIX(INS,'BASE')                = 100*(YIX(INS,SIMCUR)/YIX(INS,'BASE') - 1);
YIFXP(INSD,F,SIMCUR)$YIFX(INSD,F,'BASE')        = 100*(YIFX(INSD,F,SIMCUR)/YIFX(INSD,F,'BASE') - 1);
                                                
*Computed activity-specific wage                
WFAXP(F,A,SIMCUR)$WFAX(F,A,'BASE')              = 100*(WFAX(F,A,SIMCUR)/WFAX(F,A,'BASE') - 1);
                                                
 tqxp(C,SIMCUR)$tqx(C,'BASE')                   = 100*(tqx(C,SIMCUR)/tqx(C,'BASE') - 1);
 trnsfrxp(INS,AC,SIMCUR)$trnsfrx(INS,AC,'BASE') = 100*(trnsfrx(INS,AC,SIMCUR)/trnsfrx(INS,AC,'BASE')- 1);
 tvaxp(A,SIMCUR)$tvax(A,'BASE')                 = 100*(tvax(A,SIMCUR)/tvax(A,'BASE') - 1);
 tfxp(F,SIMCUR)$tfx(F,'BASE')                   = 100*(tfx(F,SIMCUR)/tfx(F,'BASE') - 1);
 taxp(A,SIMCUR)$tax(A,'BASE')                   = 100*(tax(A,SIMCUR)/tax(A,'BASE') - 1);
 texp(C,SIMCUR)$tex(C,'BASE')                   = 100*(tex(C,SIMCUR)/tex(C,'BASE') - 1);
 tmxp(C,SIMCUR)$tmx(C,'BASE')                   = 100*(tmx(C,SIMCUR)/tmx(C,'BASE') - 1);
*RJD Jun24                                      
 fprdxp(F,A,SIMCUR)$fprdx(F,A,'BASE')           = 100*(fprdx(F,A,SIMCUR)/fprdx(F,A,'BASE') - 1);
 alphavaxp(A,SIMCUR)$alphavax(A,'BASE')         = 100*(alphavax(A,SIMCUR)/alphavax(A,'BASE') -1);

*-------

SAMBUDP(SAC,AC,IND3,ACP,SIMCUR)
 $SAMBUD(SAC,AC,IND3,ACP,'BASE')
  = 100 *( SAMBUD(SAC,AC,IND3,ACP,SIMCUR)/SAMBUD(SAC,AC,IND3,ACP,'BASE') - 1);

*-------

 GDPTAB1P(KGDP,IGDP,SIMCUR)$GDPTAB1(KGDP,IGDP,'BASE')
  = 100*(GDPTAB1(KGDP,IGDP,SIMCUR)/GDPTAB1(KGDP,IGDP,'BASE') - 1);

 GDPTAB2P(KGDP,AC,SIMCUR)$GDPTAB2(KGDP,AC,'BASE')
  = 100*(GDPTAB2(KGDP,AC,SIMCUR)/GDPTAB2(KGDP,AC,'BASE') - 1);

*-------
CPIXP('BASE')            = CPIX('BASE');
DPIXP('BASE')            = DPIX('BASE');
*DMPS is zero for the base; DMPSXP is excluded
*DTINS is zero for the base; DTINSXP is excluded
EGXP('BASE')             = EGX('BASE');
EHXP(H,'BASE')           = EHX(H,'BASE');
EXRXP('BASE')            = EXRX('BASE');
FSAVXP('BASE')           = FSAVX('BASE');
GADJXP('BASE')           = GADJX('BASE');
GOVSHRXP('BASE')         = GOVSHRX('BASE');
GSAVXP('BASE')           = GSAVX('BASE');
IADJXP('BASE')           = IADJX('BASE');
INVSHRXP('BASE')         = INVSHRX('BASE');
MPSXP(INS,'BASE')        = MPSX(INS,'BASE');
*MPSADJ is zero for the base; MPSADJXP is excluded
PAXP(A,'BASE')           = PAX(A,'BASE');
PDDXP(C,'BASE')          = PDDX(C,'BASE');
PDSXP(C,'BASE')          = PDSX(C,'BASE');
PEXP(C,'BASE')           = PEX(C,'BASE');
PINTAXP(A,'BASE')        = PINTAX(A,'BASE');
PMXP(C,'BASE')           = PMX(C,'BASE');
PQXP(C,'BASE')           = PQX(C,'BASE');
PVAXP(A,'BASE')          = PVAX(A,'BASE');
PWEXP(C,'BASE')          = PWEX(C,'BASE');
PWMXP(C,'BASE')          = PWMX(C,'BASE');
PXXP(C,'BASE')           = PXX(C,'BASE');
PXACXP(A,C,'BASE')       = PXACX(A,C,'BASE');
QAXP(A,'BASE')           = QAX(A,'BASE');
QDXP(C,'BASE')           = QDX(C,'BASE');
QEXP(C,'BASE')           = QEX(C,'BASE');
QFXP(F,A,'BASE')         = QFX(F,A,'BASE');
QFSXP(F,'BASE')          = QFSX(F,'BASE');
QGXP(C,'BASE')           = QGX(C,'BASE');
QHXP(C,H,'BASE')         = QHX(C,H,'BASE');
*R QHAXP(A,C,H,'BASE') = QHAX(A,C,H,'BASE');
QHAXP(A,H,'BASE')        = QHAX(A,H,'BASE');
QINTXP(C,A,'BASE')       = QINTX(C,A,'BASE');
QINTAXP(A,'BASE')        = QINTAX(A,'BASE');
QINVXP(C,'BASE')         = QINVX(C,'BASE');
QMXP(C,'BASE')           = QMX(C,'BASE');
QQXP(C,'BASE')           = QQX(C,'BASE');
QTXP(C,'BASE')           = QTX(C,'BASE');
QVAXP(A,'BASE')          = QVAX(A,'BASE');
QXXP(C,'BASE')           = QXX(C,'BASE');
QXACXP(A,C,'BASE')       = QXACX(A,C,'BASE');
TABSXP('BASE')           = TABSX('BASE');
TINSXP(INSD,'BASE')      = TINSX(INSD,'BASE');
*TINSADJ is zero for the base; TINSADJXP is excluded
TRIIXP(INS,INSP,'BASE')  = TRIIX(INS,INSP,'BASE');
*WALRASXP not included.  
WFXP(F,'BASE')           = WFX(F,'BASE');
WFDISTXP(F,A,'BASE')     = WFDISTX(F,A,'BASE');
YFXP(F,'BASE')           = YFX(F,'BASE');
YGXP('BASE')             = YGX('BASE');
YIXP(INS,'BASE')         = YIX(INS,'BASE');
YIFXP(INSD,F,'BASE')     = YIFX(INSD,F,'BASE');

*Computed activity-specific wage
WFAXP(F,A,'BASE')        = WFAX(F,A,'BASE');

 tqxp(C,'BASE')          = tqx(C,'BASE')                   ;
 trnsfrxp(INS,AC,'BASE') = trnsfrx(INS,AC,'BASE') ;
 tvaxp(A,'BASE')         = tvax(A,'BASE') ;
 tfxp(F,'BASE')          = tfx(F,'BASE') ;
 taxp(A,'BASE')          = tax(A,'BASE') ;
 texp(C,'BASE')          = tex(C,'BASE') ;
 tmxp(C,'BASE')          = tmx(C,'BASE') ;
*RJD Jun24                                     
 fprdxp(F,A,'BASE')      = fprdx(F,A,'BASE')           ;
                         
                         
                         
                         

SAMBUDP(SAC,AC,IND3,ACP,'BASE') = SAMBUD(SAC,AC,IND3,ACP,'BASE');

GDPTAB1P(KGDP,IGDP,'BASE')      = GDPTAB1(KGDP,IGDP,'BASE');
GDPTAB2P(KGDP,AC,'BASE')        = GDPTAB2(KGDP,AC,'BASE');


*#*#*#*#*# THE END OF REPPERC.INC #*#*#*#*
$sTitle main