c
c------------------------------------------------------------------
c Begin file /home/sting/foster/timegcm/cpsetup.f
c------------------------------------------------------------------
c
      subroutine cpsetup(cpspval)
c
c Set various processor and conpack defaults
c
      data chsize/.013/
c
c cpcit = conpack contour interval table
      dimension cpcit(10),icplit(10) 
      data cpcit /1.0, 1.5, 2.0, 2.5, 3.0, 4.0, 5.0, 6.0, 7.0, 7.5/
      data icplit/  2,   4,   3,   4,   3,   3,   4,   3,   3,   4/
c
c All plotting characters to be 'high quality':
c
      call pcseti('QU - quality flag',0)
c
c Tell conpack values for which it is allowed to make multiples
c from for contour intervals:
c
      do 50 i=1,10
        call cpseti('PAI -- parameter array index',i)
        call cpsetr('CIT -- contour interval table',cpcit(i))
        call cpseti('LIT -- label interval table',icplit(i))
 50   continue
c
c Set special value for conpack:
c
      call cpsetr('SPV -- special value',cpspval)
c
c Turn on text extent computation, allowing calculation
c of distance to top of string, bottom of string, etc:
c
      call pcseti('TE - text extent computation flag',1)
c
c Contour line labels are positioned at regular intervals 
c along the line:
c (This also makes conpack draw the labels, not dashchar,
c  so parameters like LLS are enabled)
c Note that changing LLP from 1 to 3 triples the time
c   required to produce a plot)
c
      call cpseti('LLP -- line label positioning',3)
c
c Line labels are to be written in the local direction of the 
c contour line:
c
      call cpseti('LLO -- line label orientation',1)
c
c Contour line labels drawn by CPLBDR are not boxed (b/w):
c
      call cpseti('LLB -- line label box flag',0)
c
c Do not use high/low label in conpack:
c
      call cpsetc('HLT - high/low label test',' ')
c
c ILX and ILY will be x and y coords of the info label 
c position (set from the individual plotting routines). 
c This call says that ILX and ILY will specify
c the center of the bottom of the label box:
c
      call cpseti('ILP - informational label positioning flag',-3)
c
c Specify text of the info label:
c
      call cpsetc('ILT - info label text',
     +  'MINIMUM $ZMN$, MAXIMUM $ZMX$, CONTOUR INTERVAL $CIU$')
c
c Set character size for contour line labels:
c
      call cpsetr('LLS - line label size',chsize)
c
      return
      end