C-----------------------------------------------------------------------
C  Parameters for LSTSQ, FOURR & COFOUR, DATRD2, TABLES and SOLVER
C-----------------------------------------------------------------------       
      CHARACTER MNCODE*6
      PARAMETER (MNCODE = 'PCMSDS')