      COMMON/PRDWVF/NWF_PER_SUBSPC(MXPNGAS),
     &      MULT_FOR_SUBSPCWF(MXP_NWF_SUBSPC_PRDWF,MXPNGAS),
     &      ISUBSPCWF_OCC(MXP_NOBSBSPC_PRDWF,MXP_NWF_SUBSPC_PRDWF,
     &                    MXPNGAS),INTRA_EXC_PRWF,
     &      NEXC_PAS, MXLENPAT
