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