CIPRIME CNYVAR                                                          CNYVAR      1
      COMMON /YVARX/ YVAR(NSI)                                          CNYVAR      2
     &,JY,JYG,JYE,JYS,JYU,JYP,JYTC,JYPS,JYTB,JYMX                       CNYVAR      3
      DIMENSION TIN(NSI),PDG(NSI),PQG(NSI),EFD(NSI),CFD(NSI),EMG(NSI)   CNYVAR      4
     1,VSS(NSI),VTOS(NSI),VUAL(NSI),GSS(NSI),VREG(NSI),VREF(NSI),VRFIN  CNYVAR      5
     2(NSI),XLDREF(NSI),CVP(NSI),BLRPR(NSI),PVP(NSI),AIV(NSI),FAIV(NSI) CNYVAR      6
     3,FACV(NSI),INTL(NSI),TSNTL(NSI),AKIV(NSI),  DXM(NSI),TLM(NSI)     CNYVAR      7
     4,ANGXM3(NSI),GSM(NSI),BSM(NSI),GSMO(NSI),BSMO(NSI),CDM(NSI)       CNYVAR      8
     5,CQM(NSI),VC1D(NSI),VC1Q(NSI),RVREF(NSI),BSVC(NSI),BSVCO(NSI)     CNYVAR      9
     6,TEB(NSI),VMXL(NSI),YIFL(NSI),STCR(NSI),SRAN(NSI),BDEV(NSI)       CNYVAR     10
     7,BTCR(NSI),BASER(NSI),BRANO(NSI),BRANI(NSI),YSDB(NSI),YDEV(NSI)   CNYVAR     11
     8,ACCP(NSI),SSDB(NSI),SSTC(NSI),TSTC(NSI),SSPS(NSI),TSPS(NSI)      CNYVAR     12
     9,VGOV(NSI),PDEM(NSI),PSET(NSI)                                    CNYVAR     13
      EQUIVALENCE (YVAR(1),TIN(1),PDG(1),PQG(1),EFD(1),CFD(1),EMG(1)    CNYVAR     14
     1,VSS(1),VTOS(1),VUAL(1),GSS(1),VREG(1),VREF(1),VRFIN(1)           CNYVAR     15
     2,XLDREF(1),CVP(1),BLRPR(1),PVP(1),AIV(1),FAIV(1)                  CNYVAR     16
     3,FACV(1),INTL(1),TSNTL(1),AKIV(1),DXM(1),TLM(1)                   CNYVAR     17
     4,ANGXM3(1),GSM(1),BSM(1),GSMO(1),BSMO(1),CDM(1)                   CNYVAR     18
     5,CQM(1),VC1D(1),VC1Q(1),RVREF(1),BSVC(1),BSVCO(1)                 CNYVAR     19
     6,TEB(1),VMXL(1),YIFL(1),STCR(1),SRAN(1),BDEV(1)                   CNYVAR     20
     7,BTCR(1),BASER(1),BRANO(1),BRANI(1),YSDB(1),YDEV(1)               CNYVAR     21
     8,ACCP(1),SSDB(1),SSTC(1),TSTC(1),SSPS(1),TSPS(1),VGOV(1)          CNYVAR     22
     9,PDEM(1),PSET(1))                                                 CNYVAR     23
