c     include 'qset.h'

C  REMEMBER to change the open in rdqset.f!!!

C  Parameters needed for:  fitall.f, cuset.f, ccuset.f, conduct.f,
C    matsolv.f, qset.f, and rdqset.f.  Others are: conrec.f, drline.f,
C    pltamie.f, and some of amiepolar.f

C qset244.30  (MMX+4=MXNMX!! must revise!)
Cmsread -f tr $locl /EMERY/AMIE/QSETZ.244TR30   (Old 169 coefs, not 244)
Cmsread -f tr $locl /EMERY/AMIE/QSETZ.244TR30.REV
C  The following dimensions are for 244 basis funcs, down to 40 deg:
C  Parameters for 244 coefs, basis funcs to 40 mlat.  DLAT=90/54=1.67,
C     min_wavel=360/12 = 30 deg  so  DLON ~ 30/3 = 10 deg or LONMX=36.
      PARAMETER (ITHMX=54,LONMX=36)
      PARAMETER (MMX=12,NQ=260,NQS=130,MXNMX=16,MCOEF=244,NCOEF=490)
      PARAMETER (MROW=60,KMX=120,ITHTRNS=30)