include file: LWNTRANS 8
      INTEGER NTRANS, NDIATR                                               LWNTRANS.2      
      PARAMETER (NDIATR=0)                                                 LWNTRANS.3      
      PARAMETER (NTRANS=NBANDS+NDIATR)                                     LWNTRANS.4      
C Number of transmissivities to be calculated - one for each band is       LWNTRANS.5      
C needed to construct the actual fluxes, but we also allow for NDIATR      LWNTRANS.6      
C for diagnostic uses, such as possible "narrow-band" flux diagnostics.    LWNTRANS.7