C                                           *--> FROM SCOMMON.SWRK2X
C  PPINIT WORK ARRAY COMMON BLOCK
C      COMMON /SWRK2X/ LSWRK2,SWRK2(65000)
      COMMON /SWRK2X/ LSWRK2,SWRK2(100000)
C