[CONTACT]

[ABOUT]

[POLICY]

SAMPLE DRIVER PROGRAM FOR TESTING T

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

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

.


AD:

NEW PAGES:

[ODDNUGGET]

[GOPHER]