include file: SWLKUPPA 7
      INTEGER NLKUPS          ! DIMENSION OF LOOK-UP TABLES                SWLKUPPA.2      
      PARAMETER (NLKUPS=50)                                                SWLKUPPA.3