C
C     include file CWDMID.INC
C
      INTEGER    MXWDID
      PARAMETER (MXWDID=5)
C
      COMMON/CWDMID/WIDCNT,WIDFUN,WIDBSE
      INTEGER       WIDCNT,WIDFUN(MXWDID),WIDBSE(MXWDID)
C
      COMMON/CWDMIC/WIDNAM
      CHARACTER*4   WIDNAM(MXWDID)
C
      SAVE /CWDMIC/,/CWDMID/
C
