C FILE: SCROLL
C PURPOSE: CONTAINS THE SCROLLING VERSION OF THE GRAPHICAL ROUTINES
C FOR THE MICRO PACKAGE.
C
C THE ROUTINES IN THIS FILE ALLOW THE USE OF MICROSCOPE WITHOUT ANY
C INSTALLATION DEPENDENT ROUTINES. HOWEVER, THE USE OF THE FILE
C SCREEN INSTEAD OF THIS ONE, AUGMENTED BY FOUR INSTALLATION PROVIDED
C SCREEN EDITING ROUTINES IS RECOMMENDED
C
C WRITTEN BY: BILL HARRIS
C DATE: 7/27/83
C
SUBROUTINE SGRAPH(GRAPHD,NCALLS,LGO)
C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C
C ROUTINE: SGRAPH
C PURPOSE: TO PLOT THE DATA. THIS ROUTINE IS KEPT IN A FILE SEPARATE
C FROM THE MAIN PACKAGE SO THAT IT MAY BE MODIFIED BY THE
C USER FOR HIS/HER PARTICULAR GRAPHICS DEVICE.
C
C NOTE: THIS IS THE SIMPLEST VERSION USING SCROLLING.
C
LOGICAL LGO
INTEGER GRAPHD, NCALLS
INTEGER OUTPUT, LINES, WIDTH, ILP
INTEGER IDSPLA, IPRMPT
LOGICAL LSCRN
COMMON / SCREEN / OUTPUT, LINES, WIDTH, ILP
COMMON / SCREEN / IDSPLA, IPRMPT, LSCRN
INTEGER IPLOT, ISCRN1, ISCRN2
REAL SCALE
COMMON / PLTCOM / SCALE(7), IPLOT(135,7),ISCRN1(135,57)
COMMON / PLTCOM / ISCRN2(135,57)
C
C WRITE THE ISCRN2() ARRAY ONTO THE GRAPHICS DEVICE
C
DO 100 I = 1,ILP
WRITE (GRAPHD,10000) (ISCRN2(J,I),J=1,WIDTH)
100 CONTINUE
MODE = 1
CALL SDDATA(GRAPHD,MODE,NCALLS,LGO)
DO 200 I = 1,ILP
DO 200 J = 1,WIDTH
ISCRN1(J,I) = ISCRN2(J,I)
200 CONTINUE
RETURN
C
C FORMAT STATEMENT
C
END
SUBROUTINE CLSCRN(DEVICE,I,J)
C
C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C
C ROUTINE: CLSCRN
C PURPOSE: DUMMY ROUTINE
C
INTEGER DEVICE, I, J
RETURN
END
SUBROUTINE PCURSR(DEVICE,I,J)
C
C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C
C ROUTINE: PCURSR
C PURPOSE: DUMMY ROUTINE
C
INTEGER DEVICE, I, J
RETURN
END
SUBROUTINE PLCHRS(DEVICE,I,J,N,CHARS)
C
C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C
C ROUTINE: PLCHRS
C PURPOSE: DUMMY ROUTINE
C
INTEGER DEVICE, I, J, N, CHARS(135)
RETURN
END
SUBROUTINE BLSCRN(I)
C DUMMY ROUTINE
INTEGER I
RETURN
END
.
