      COMMON/BLK1N/WTSHN(JP,JY,JX),ZPOOLP(JP,JY,JX),WTLFN(JP,JY,JX)
     2,WTSHEN(JP,JY,JX),WTSTKN(JP,JY,JX),WTRSVN(JP,JY,JX)
     3,WTHSKN(JP,JY,JX),WTEARN(JP,JY,JX),WTGRNN(JP,JY,JX)
     4,WTSHTN(JC,JP,JY,JX),WTLFBN(JC,JP,JY,JX),WTSHBN(JC,JP,JY,JX)
     5,WTSTBN(JC,JP,JY,JX),WTRSBN(JC,JP,JY,JX),WTHSBN(JC,JP,JY,JX)
     6,WTEABN(JC,JP,JY,JX),WTGRBN(JC,JP,JY,JX),ZPOOL(JC,JP,JY,JX)
     7,WGLFN(0:25,JC,JP,JY,JX),WGSHN(0:25,JC,JP,JY,JX)
     8,WGNODN(0:25,JC,JP,JY,JX),WGLFLN(JZ,0:25,JC,JP,JY,JX)
     9,ZPOOLR(2,JZ,JP,JY,JX),CZPOLR(2,JZ,JP,JY,JX),ZPOOLN(JZ,JP,JY,JX)
     1,ZSNC(4,0:1,0:JZ,JP,JY,JX),CFOPN(0:5,4,JP,JY,JX),WTRTN(JP,JY,JX)
     2,WTRT1N(2,JZ,JC,JP,JY,JX),WTRT2N(2,JZ,JC,JP,JY,JX),WTNDN(JP,JY,JX)
     3,WTNDLN(JZ,JP,JY,JX),CZPOLP(JP,JY,JX),CZPOLB(JC,JP,JY,JX)
     4,RTWT1N(2,JC,JP,JY,JX),WTSTDN(4,JP,JY,JX)
     5,WTSTGN(JP,JY,JX),ZPOLNB(JC,JP,JY,JX),ZPOLNP(JP,JY,JX)
     6,WTNDBN(JC,JP,JY,JX)
