Instruction manual

39
ENDIF
IF(Y2LABEL) THEN
CALL TITLEAXIS(1.15D0,0.5D0,YTITLEUNIT,1.4D0,1.4D0,NXPIX/1
& ,NYPIX,TALL,2)
! YAXIS TITLE
CALL PLOTYTICK(1.0D0,Y1MIN, Y1MAX, Y1SCALE, NTICKY1,15, TALL
& ,1.4D0,1.4D0,NXPIX/1, NYPIX)
ENDIF
STATUS = SETCOLOR(7)
STATUS = RECTANGLE_W($GBORDER, 0.0D0,0.0D0,1.0D0,1.0D0)
CALL PLOTLINE(XX,YY,NUM1,LCOL)
RETURN
END SUBROUTINE NEWONEPLOT
!=========================================================
SUBROUTINE TITLEAXIS(WXP, WYP, AXTITLE, XW,YH
& ,NXPIX, NYPIX,TALL ,NAXIS)
!=========================================================
USE DFLIB
IMPLICIT NONE
REAL*8 WXP, WYP, DWXP, DWYP, XW, YH
CHARACTER*30 AXTITLE
INTEGER I, CHEI, CWID, NCBEG, NCEND, TLEN, NAXIS
INTEGER STATUS, NXPIX, NYPIX
LOGICAL TALL
TYPE (WXYCOORD) WXY
TYPE (FONTINFO) FONT
! ... set the font
STATUS = INITIALIZEFONTS()
I = SETFONT("T'COURIER NEW'H30W15")
CWID = FONT.PIXWIDTH
CHEI = FONT.PIXHEIGHT
STATUS = SETCOLOR(INT2(0))
! ... trim the string for leading blanks
NCBEG = 1
DO WHILE(AXTITLE(NCBEG:NCBEG) .EQ.'')
NCBEG = NCBEG+1
END DO
NCEND = NCBEG + LEN_TRIM(AXTITLE(NCBEG:))-1
TLEN = GETGTEXTEXTENT(AXTITLE(NCBEG:NCEND))
! ... add an offset for the text
IF(NAXIS.EQ.1) THEN
DWYP = 0.0
DWXP = -((REAL(TLEN)/2.)/REAL(NXPIX)*XW)
ELSE IF(NAXIS.EQ.2) THEN
DWYP = -((REAL(TLEN)/2.)/REAL(NYPIX)*YH)
DWXP = 0.0
ELSE
DWYP = 0.0
DWXP = -(REAL(TLEN/2.)/REAL(NXPIX)*XW)
ENDIF
CALL MOVETO_W(WXP+DWXP,WYP+DWYP,WXY)
IF(NAXIS.EQ.2) THEN
CALL SETGTEXTROTATION(900)
ELSE
CALL SETGTEXTROTATION(0)
ENDIF
CALL OUTGTEXT( AXTITLE(NCBEG:NCEND))
RETURN
END SUBROUTINE TITLEAXIS
C==========================================================
SUBROUTINE PLOTLINE(XX,YY,NUM,LCOL)
C==========================================================
USE DFLIB
IMPLICIT NONE
INTEGER I, NUM, LCOL, BGCOL