      SUBROUTINE SETAXS (ICURS, IPLTP1, ISYOPT, ISECY, SYMN, SYMX,
     .                   XLO, YLO)
      IMPLICIT NONE
C
C ***      SET AXIS TYPES
C
      CHARACTER*(*) ICURS
      INTEGER IPLTP1, ISYOPT
      LOGICAL ISECY
      REAL SYMN, SYMX, XLO, YLO
C
      INCLUDE MATLAB$KOM:IOP.KOM
      INCLUDE MATLAB$KOM:MATPLT.KOM
C
      INTEGER IANS
C
C
180   CONTINUE
      CALL CHKEND
      CALL DSSTRN (' PLEASE CHOOSE THE TYPE OF PLOT AXES', 1)
      CALL DSSTRN (' [1] LIN-LIN PLOT', 1)
      CALL DSSTRN (' [2] LOG-LIN PLOT', 1)
      CALL DSSTRN (' [3] LIN-LOG PLOT', 1)
      CALL DSSTRN (' [4] LOG-LOG PLOT', 1)
      CALL DSSTRN (' [5] USE SECOND Y-AXIS', 1)
      CALL DSSTRN (' [6] RETURN TO PREVIOUS MENU', 1)
      CALL DSCURS (ICURS)
      CALL VALGET (0, IANS, 'I')
      GO TO (210, 220, 230, 240, 250, 999), IANS
      CALL MENUER (6)
      GO TO 180
C
210   CONTINUE
      IPLTP1 = 0
      GO TO 180
C
220   CONTINUE
      IF (XLO.LT.0) THEN
        CALL DSERR ('ERROR. X-AXIS LIST HAS VALUES LESS THAN 0.')
        CALL DSERR ('THIS IS INCOMPATIBLE WITH A LOG X AXIS')
        GO TO 180
      ENDIF
      IPLTP1 = 1
      GO TO 180
C
230   CONTINUE
      IF (YLO.LT.0) THEN
        CALL DSERR ('ERROR. Y-AXIS LIST HAS VALUES LESS THAN 0.')
        CALL DSERR ('THIS IS INCOMPATIBLE WITH A LOG Y AXIS')
        GO TO 180
      ENDIF
      IPLTP1 = 2
      GO TO 180
C
240   CONTINUE
      IF (XLO.LT.0) THEN
        CALL DSERR ('ERROR. X-AXIS LIST HAS VALUES LESS THAN 0.')
        CALL DSERR ('THIS IS INCOMPATIBLE WITH A LOG X AXIS')
        GO TO 180
      ENDIF
      IF (YLO.LT.0) THEN
        CALL DSERR ('ERROR. Y-AXIS LIST HAS VALUES LESS THAN 0.')
        CALL DSERR ('THIS IS INCOMPATIBLE WITH A LOG Y AXIS')
        GO TO 180
      ENDIF
      IPLTP1 = 3
      GO TO 180
C
250   CONTINUE
      ISECY = .TRUE.
252   CONTINUE
      CALL CHKEND
      CALL DSSTRN (' PLEASE CHOOSE SECOND Y-AXIS OPTIONS:', 1)
      CALL DSSTRN (' [1] LINEAR SCALE', 1)
      CALL DSSTRN (' [2] LOG SCALE', 1)
      CALL DSSTRN (' [3] CHOOSE SECOND AXIS LIMITS', 1)
      CALL DSSTRN (' [4] DELETE SECOND Y AXIS', 1)
      CALL DSSTRN (' [5] RETURN TO AXIS SELECTION MENU', 1)
      CALL DSCURS (ICURS)
      CALL VALGET (0, IANS, 'I')
      GO TO (260, 270, 290, 280, 180), IANS
      CALL MENUER (5)
C
260   CONTINUE
      ISYOPT = 0
      GO TO 252
C
270   CONTINUE
      ISYOPT = 2
      GO TO 252
C
280   CONTINUE
      ISECY = .FALSE.
      GO TO 252
C
290   CONTINUE
      CALL DSSTRN (
     .    ' ENTER THE MINIMUM SCALE VALUE OF THE SECOND Y AXIS', 1)
      CALL DSCURS (ICURS)
      CALL VALGET (SYMN, 0, 'F')
      CALL DSSTRN (
     .    ' ENTER THE MAXIMUM SCALE VALUE OF THE SECOND Y AXIS', 1)
      CALL DSCURS (ICURS)
      CALL VALGET (SYMX, 0, 'F')
      GO TO 252
C
999   CONTINUE
      RETURN
      END
