c
c------------------------------------------------------------------
c Begin file /home/sting/foster/plt/setag.f
c------------------------------------------------------------------
c
      subroutine setag
c
c Set up some default parameters in Autograph:
c
      CHARSZ = 0.020
      CHSZNEG = -CHARSZ
      EXPSZ = 0.019
      CALL AGSETI('WINDOWING.',1)
C
C TOP LABEL
      CALL AGSETC ('LABEL/NAME.','T')
      CALL AGSETI ('LINE/NUMBER.', 100)
      CALL AGSETF ('LINE/CHARACTER.', CHARSZ)
      CALL AGSETI ('LINE/MAX.',56)
C
C LEFT AXIS AND LABEL
      CALL AGSETC ('LABEL/NAME.','L')
      CALL AGSETI ('LINE/NUMBER.', 100)
      CALL AGSETF ('LINE/CHARACTER.', CHARSZ)
      CALL AGSETF ('AXIS/LEFT/NUMERIC/WIDTH/MANTISSA.', CHARSZ)
      CALL AGSETF ('AXIS/LEFT/NUMERIC/WIDTH/EXPONENT.', EXPSZ)
      CALL AGSETF ('AXIS/LEFT/NUMERIC/OFFSET.', CHARSZ)
C
C BOTTOM AXIS
      CALL AGSETC ('LABEL/NAME.', 'B')
      CALL AGSETI ('LINE/NUMBER.', -100)
      CALL AGSETF ('LINE/CHARACTER.', CHARSZ)
      CALL AGSETF ('AXIS/BOTTOM/NUMERIC/WIDTH/MANTISSA.', CHARSZ)
      CALL AGSETF ('AXIS/BOTTOM/NUMERIC/WIDTH/EXPONENT.', EXPSZ)
      CALL AGSETF ('AXIS/BOTTOM/NUMERIC/OFFSET.', CHARSZ)
      CALL AGSETI('DASH/LENGTH.',40)
      CALL AGSETF('DASH/CHARACTER.',.016)
c
      return
      end