C     array sizes
      INTEGER   TSMAX
      PARAMETER (TSMAX = 22)