      COMMON/BLK15A/QR(2,2,JV,JH),HQR(2,2,JV,JH),QS(2,JV,JH),QW(2,JV,JH)
     2,QI(2,JV,JH),HQS(2,JV,JH),FLW(3,JD,JV,JH)
     2,FLWH(3,JD,JV,JH),HFLW(3,JD,JV,JH),XCOFLS(3,0:JD,JV,JH)
     3,XCHFLS(3,0:JD,JV,JH),XOXFLS(3,0:JD,JV,JH),XNGFLS(3,0:JD,JV,JH)
     4,XN2FLS(3,0:JD,JV,JH),XHGFLS(3,0:JD,JV,JH),XN4FLW(3,0:JD,JV,JH)
     5,XN3FLW(3,0:JD,JV,JH),XNOFLW(3,0:JD,JV,JH),XH2PFS(3,0:JD,JV,JH)
     6,XNXFLS(3,0:JD,JV,JH),XN4FLB(3,JD,JV,JH),XN3FLB(3,JD,JV,JH)
     7,XNOFLB(3,JD,JV,JH),XH2BFB(3,JD,JV,JH),XNXFLB(3,JD,JV,JH)
     8,XOCFLS(0:4,3,0:JD,JV,JH),XONFLS(0:4,3,0:JD,JV,JH)
     9,XCHFLG(3,0:JD,JV,JH),XOAFLS(0:4,3,0:JD,JV,JH)
     1,XCOFLG(3,JD,JV,JH),XOPFLS(0:4,3,0:JD,JV,JH)
     2,XOXFLG(3,JD,JV,JH),XNGFLG(3,JD,JV,JH),XHGFLG(3,JD,JV,JH)
     3,XN2FLG(3,JD,JV,JH),XN3FLG(3,JD,JV,JH),XCOQRS(2,2,JV,JH)
     4,XCHQRS(2,2,JV,JH),XOXQRS(2,2,JV,JH),XNGQRS(2,2,JV,JH)
     R,XN2QRS(2,2,JV,JH),XHGQRS(2,2,JV,JH),XN4QRW(2,2,JV,JH)
     6,XN3QRW(2,2,JV,JH),XNOQRW(2,2,JV,JH),XNXQRS(2,2,JV,JH)
     7,XP4QRW(2,2,JV,JH),XP1QRW(2,2,JV,JH),XCOQSS(2,JV,JH)
     3,XCHQSS(2,JV,JH),XOXQSS(2,JV,JH),XNGQSS(2,JV,JH)
     4,XN2QSS(2,JV,JH),XN4QSS(2,JV,JH),XN3QSS(2,JV,JH)
     5,XNOQSS(2,JV,JH),XP4QSS(2,JV,JH),XP1QSS(2,JV,JH)
     6,XOCQRS(0:4,2,2,JV,JH),XONQRS(0:4,2,2,JV,JH) 
     7,XOPQRS(0:4,2,2,JV,JH),XOAQRS(0:4,2,2,JV,JH) 
     8,FLQRQ(JY,JX),FLQRI(JY,JX),FLQGQ(JY,JX),FLQGI(JY,JX)
     9,XH1PFS(3,0:JD,JV,JH),XH1BFB(3,0:JD,JV,JH)
     1,FLWNU(JY,JX),FLWXNU(JY,JX),FLWHNU(JY,JX),HFLWNU(JY,JX)

