SAMPLE DRIVER PROGRAM FOR TESTING T

C  MAIN PROGRAM:  MAIN.FOR

C  PURPOSE:       SAMPLE DRIVER PROGRAM FOR TESTING THE MICROSCOPE

C                  PACKAGE:  MCRSCP.FOR

C

C                  IN THIS EXAMPLE, THE COMMANDS EXIT AND QUIT HAVE

C                  IDENTICAL EFFECTS.

C

C  DO NOT OMIT DECLARING F EXTERNAL:

C

      EXTERNAL F

      DOUBLE PRECISION F

C

      INTEGER             IWIDTH,      ILINES,      RECORD,      IPROMP

      INTEGER             GRAPHD,      HELPD,       OUTPTD,      RSTRTD

      INTEGER             IDATA,       IPLT,        INPUTD

C

C  POSSIBLY INTIALIZE DATA STRUCTURES ETC. BY CALLING APPROPRIATE

C  USER DEFINED ROUTINES:

C

C

C  DEFINE THE DEVICE NUMBERS AND OPEN THE CORRESPONDING FILES:

C  (THE OPEN STATEMENT MAY HAVE TO BE MODIFIED ON EACH PARTICULAR

C  INSTALLATION)

C  for Unix f77 -

C     open(unit=1,file='helplc',status='old')

C     rewind 1

      OPEN(UNIT=1,FILE='HELPLC',STATUS='OLD',READONLY)

C

C  SET UP APPROPRIATE FORTRAN DEVICE NUMBERS

C  THEY COULD BE PASSED ON TO THE SUBROUTINE MCRSCP AS INTEGER VALUES

C  BUT ARE DEFINED HERE AS VARIABLES FOR CLARITY.

      INPUTD = 5

      OUTPTD = 6

      GRAPHD = 6

      HELPD  = 1

      RECORD = 2

      RSTRTD = 3

C

C  SET UP THE SCREEN PARAMETERS

C

      ILINES  = 24

      IWIDTH  = 75

      IPLT    = 15

      IDATA   = 8

      IPROMP  = 2

C

C  CALL THE MICROSCOPE DRIVER ROUTINE: MCRSCP

C

      CALL MCRSCP(F,INPUTD,OUTPTD,GRAPHD,HELPD,RECORD,RSTRTD,

     *            ILINES,IWIDTH,IPLT,IDATA,IPROMP)

      STOP

      END

.