SUBROUTINE XAXIS( XTIC, IXTIT, IXLEN, IXSIZ, IXFMT ) BYTE IXTIT(IXLEN) INTEGER FORM(3) COMMON /HWINDO/ SCRX,SCRY,IXORIG,IYORIG,IASCR,IBSCR,ICSCR,IDSCR COMMON /WORLD/ XMINW, XMAXW, YMINW, YMAXW COMMON /CHRSIZ/ ICHW(5), ICHH(5) C WHEN ( IXSIZ .GE. 1 .AND. IXSIZ .LE. 5 ) IXS = IXSIZ ELSE IXS = 0 IF ( XTIC .NE. 0. ) IS = IASCR IY = ICSCR - ICHH(MAX0( IXS, 1 )) * 2 LENTIC = SCRX / 4 XVAL = XMINW IFORM = IFRMT( FORM, IXFMT ) XMAX = AMAX1( XMINW, XMAXW ) XMIN = AMIN1( XMINW, XMAXW ) IW = ICHW(MAX0(IXS,1)) WHILE ( XVAL .LE. XMAX .AND. XVAL .GE. XMIN ) WHEN ( XVAL .EQ. XMINW ) CALL LABELX( XVAL, FORM, IFORM, IS, IY, IW, IXS ) FIN ELSE IS = ISCRX( XVAL ) IF( IS .NE. IBSCR ) CALL DRXTIC(IS, ICSCR, LENTIC) CALL LABELX( XVAL, FORM, IFORM, IS, IY, IW, IXS ) FIN XVAL = XVAL + XTIC FIN FIN C C CENTER HORIZONTAL TITLE AND PLOT C IF( IXS .NE. 0 ) CALL TRIMSP( IXTIT, IXLEN, IST, IEND ) IXLN = IEND + 1 - IST IXL = IXLN * ICHW(IXS) IX = (IASCR + IBSCR - IXL) / 2 IY = ICSCR - 4 * ICHH(IXS) CALL PLTSTR(IX, IY, IXTIT(IST), IXLN, 1, IXS) FIN C RETURN END