Instruction manual

40
REAL*8 XX(NUM), YY(NUM)
LOGICAL STATUS
TYPE (WXYCOORD) WXY
STATUS = SETCOLOR(LCOL)
CALL MOVETO_W(XX(1), YY(1), WXY)
DO 10 I=2,NUM
STATUS = LINETO_W(XX(I), YY(I) )
10 CONTINUE
RETURN
END SUBROUTINE PLOTLINE
C==========================================================
SUBROUTINE PLOTXTICK(LOWX, HIGHX, XSCALE, NTICK, NCOL,
& TALL, XW,YH, NXPIX,NYPIX, LOGPLOT)
C==========================================================
USE DFLIB
IMPLICIT NONE
TYPE (WXYCOORD) WXY
REAL*8 LOWX, HIGHX, XSCALE, XRANGE, XTICK, DXTICK
REAL*8 LOWY, HIGHY, YSCALE, YRANGE, YTICK, DYTICK
REAL*8 XW,YH, XLABEL
REAL*8 TICKLEN /0.025/
INTEGER I, NTICK, NCOL, NXPIX, NYPIX
LOGICAL RESULT, STATUS, TALL, LOGPLOT
! plot the xticks
STATUS = SETCOLOR(NCOL)
IF(TALL) TICKLEN = 0.015
DXTICK = 1.0D0/REAL(NTICK)
DO 10 I=0,NTICK
XTICK = REAL(I)*DXTICK
YTICK = 0.0D0
XLABEL = LOWX + XTICK*(HIGHX-LOWX)
CALL MOVETO_W(XTICK, YTICK, WXY)
RESULT = LINETO_W(XTICK, YTICK - TICKLEN)
CALL NUMAXIS(XTICK,YTICK-2.0*TICKLEN,XLABEL, XW,YH,NXPIX, NYPIX
& ,1, LOGPLOT)
!!!!! LOG PLOT ON XAXIS
XTICK = REAL(I)*DXTICK
YTICK = 1.0D0
CALL MOVETO_W(XTICK, YTICK, WXY)
RESULT = LINETO_W(XTICK, YTICK + TICKLEN)
10 CONTINUE
RETURN
END SUBROUTINE PLOTXTICK
C==========================================================
SUBROUTINE PLOTYTICK(XLOC,LOWY, HIGHY, YSCALE, NTICK, NCOL,
& TALL, XW,YH,NXPIX, NYPIX )!,Y1TICK,Y2TICK)
C==========================================================
USE DFLIB
IMPLICIT NONE
TYPE (WXYCOORD) WXY
REAL*8 LOWX, HIGHX, XSCALE, XRANGE, XTICK, DXTICK
REAL*8 LOWY, HIGHY, YSCALE, YRANGE, YTICK, DYTICK
REAL*8 TICKLEN /0.01/
REAL*8 XW,YH, YLABEL, XLOC
INTEGER I, NTICK, NCOL,NXPIX, NYPIX
LOGICAL RESULT, STATUS, TALL !, Y1TICK, Y2TICK
! plot the xticks
STATUS = SETCOLOR(NCOL)
IF(TALL) TICKLEN = 0.020
DYTICK = 1.0D0/REAL(NTICK)
DO 10 I=0,NTICK
YTICK = REAL(I)*DYTICK
XTICK = XLOC
YLABEL = LOWY + YTICK*(HIGHY-LOWY)
CALL MOVETO_W(XTICK, YTICK, WXY)
RESULT = LINETO_W(XTICK-TICKLEN, YTICK )
IF(XLOC.LT.0.5D0) THEN
CALL NUMAXIS(XTICK-0.05,YTICK,YLABEL, XW,YH,NXPIX
& , NYPIX,2, .FALSE.) !!!! NO LOG PLOT ON YAXIS