[CONTACT]

[ABOUT]

[POLICY]

CONTAINS THE SCROLLING VERSION OF T

Found at: ftp.icm.edu.pl:70/packages/netlib/microscope/scroll.f

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

.


AD:

NEW PAGES:

[ODDNUGGET]

[GOPHER]