C******************** START FILE GSCSPC.FOR ; GROUP GSCALE ******************
C-------------
C  GSCSPC
C   NON-INTERACTIVE SPECIFICATION OF SCALING DEFAULTS[
C
C  IAX=1:  X-AXIS SCALING;  IAX=2:  Y-AXIS SCALING
C   ISEL:  1,2,3,4, OR 5 TO SELECT OPTION AS IN SUBROUTINE GSCDEF
C    IF ISEL=3, ZARG1 AND ZARG2 ARE THE LOWER AND UPPER FIXED LIMITS
C    IF ISEL=4 OR 5, ZARG1 IS THE MULTIPLIER
C   FOR OTHER VALUES OF ISEL ZARG1 AND ZARG2 ARE IGNNORED
C
      SUBROUTINE GSCSPC(IAX,ISEL,ZARG1,ZARG2)
C
      INCLUDE 'GSCALE_BLK'
C
      IF(IGSINI.EQ.0) CALL GSCINI
C
      GO TO (100,200) IAX
C  X AXIS
 100  CONTINUE
      NOPTX=ISEL
      GO TO (500,500,110,120,120) ISEL
C
 110  CONTINUE
      XMIN00=ZARG1
      XMAX00=ZARG2
      GO TO 500
C
 120  CONTINUE
      XRAT00=ZARG1
      GO TO 500
C  Y AXIS
 200  CONTINUE
      NOPTY=ISEL
      GO TO (500,500,210,220,220) ISEL
C
 210  CONTINUE
      YMIN00=ZARG1
      YMAX00=ZARG2
      GO TO 500
C
 220  CONTINUE
      YRAT00=ZARG1
      GO TO 500
C----
C EXIT
 500  CONTINUE
      RETURN
      END
C******************** END FILE GSCSPC.FOR ; GROUP GSCALE ******************
