

























      INTEGER      MAXWFL, MAXLOP
      PARAMETER    (MAXWFL = 20)
      PARAMETER    (MAXLOP = 350)

      INTEGER      USESER, NUMSFL, ALLPNT
      LOGICAL      ALLUSE, DORND1, DORND2, DOCLNA
      CHARACTER*80 FILMCSIS(MAXWFL)
      CHARACTER*2  PHYEXT2

      COMMON      /WSER01/
     +             USESER, NUMSFL

      COMMON      /WSER02/
     +             FILMCSIS, PHYEXT2

      COMMON      /WSER03/
     +             ALLPNT

      COMMON      /WSER03/
     +             ALLUSE, DORND1, DORND2, DOCLNA
