Instruction manual

ManualsBrandsCampbell ManualsComputer equipmentPC208

DO 10 I=1,NLINE

READ(NUNIT,99) LINE

IF(OP) WRITE( *,99) LINE

10 CONTINUE

99 FORMAT(A75)

RETURN

END SUBROUTINE INLINE

!==========================================================

SUBROUTINE NEWONEPLOT(X1,Y1,NUM1,XTITLE, XUNIT, YTITLE, YUNIT

& ,GX1MIN, GX1MAX, GY1MIN, GY1MAX, Y1LABEL, Y2LABEL ,LCOL)

!==========================================================

USE DFLIB

IMPLICIT NONE

TYPE (WINDOWCONFIG) WINC

TYPE (QWINFO) QW

INTEGER NUM1, NTICKX1, NTICKY1

INTEGER I, J,NXPIX, NYPIX, NC1, NC2

INTEGER IX,IY, ix4,iy4, LCOL

INTEGER STATUS

REAL*8 X1(NUM1), Y1(NUM1)

REAL*8 XX(NUM1), YY(NUM1)

REAL*8 X1MIN, X1MAX, X1RANGE, Y1MIN, Y1MAX, Y1RANGE

REAL*8 GX1MIN, GX1MAX, GY1MIN, GY1MAX

REAL*8 X1SCALE, DTICKX1, DUMMYSCALE

REAL*8 Y1SCALE, DTICKY1

REAL*8 XP,YP, NEWX1MAX

CHARACTER*40 XTITLE, XUNIT, NEWXUNIT, XTITLEUNIT

CHARACTER*40 YTITLE, YUNIT, NEWYUNIT, YTITLEUNIT, GTITLE

LOGICAL INVERT, LOGPLOT, SCALE, TALL, Y1LABEL, Y2LABEL

COMMON WINC

COMMON QW

NXPIX = WINC.NUMXPIXELS !-20

NYPIX = WINC.NUMYPIXELS !-100

X1MIN = GX1MIN

X1MAX = GX1MAX

Y1MIN = GY1MIN

Y1MAX = GY1MAX

DO 10 I=1,NUM1

XX(I) = (X1(I)-X1MIN)/(X1MAX-X1MIN)

YY(I) = (Y1(I)-Y1MIN)/(Y1MAX-Y1MIN)

10 CONTINUE

CALL AXISSET(X1MIN, X1MAX, X1SCALE, NTICKX1, DTICKX1) ! SOMETHING WRONG HERE

CALL AXISSET(Y1MIN, Y1MAX, Y1SCALE, NTICKY1, DTICKY1)

! X1RANGE = (X1MAX-X1MIN)*X1SCALE

! Y1RANGE = (Y1MAX-Y1MIN)*Y1SCALE

CALL NCSTRING(XTITLE,NC1)

CALL NCSTRING( XUNIT,NC2)

XTITLEUNIT = XTITLE(1:NC1)//XUNIT(1:NC2)

if(x1scale.gt.1.0) xtitleunit = xtitle(1:11)//']'

CALL NCSTRING(YTITLE,NC1)

CALL NCSTRING( YUNIT,NC2)

YTITLEUNIT = YTITLE(1:NC1)//YUNIT(1:NC2)

CALL SETVIEWPORT(0,0,NXPIX/1.0, NYPIX)

! FOR GRAPH1

STATUS = SETWINDOW(.TRUE.,-0.25D0,-0.50D0,1.25D0,1.15D0)

CALL TITLEAXIS(0.5D0,-0.15D0,XTITLEUNIT,1.4D0,1.4D0,NXPIX/1

& ,NYPIX,TALL,1)

! XAXIS TITLE

CALL PLOTXTICK(X1MIN, X1MAX, X1SCALE, NTICKX1,15, TALL

& ,1.4D0,1.4D0,NXPIX/1, NYPIX,.FALSE.)

IF(Y1LABEL) THEN

CALL TITLEAXIS(-0.20D0,0.5D0,YTITLEUNIT,1.4D0,1.4D0,NXPIX/1

& ,NYPIX,TALL,2)

! YAXIS TITLE

CALL PLOTYTICK(0.0D0,Y1MIN, Y1MAX, Y1SCALE, NTICKY1,15, TALL

& ,1.4D0,1.4D0,NXPIX/1, NYPIX)