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
.