C file psgraph3.for
C ----------------------------------------------------------------------!-------
C 27 June 2004 - Added types for arguments
C 26 June 2004 - do-nothing version to suppress screen plotting
C ----------------------------------------------------------------------!-------
C includes GET_VIDEO_MODE, PLOT_PTS_VT, SETVIDEO_DFT, CLR_SCREEN, LABEL_AXES_VT,
C SUBHEAD_VT, PAUSEIT, RAYTXT_OUT_VT  
C ----------------------------------------------------------------------!-------
C       INCLUDE 'FGRAPH.FI'
C ----------------------------------------------------------------------!-------
      Subroutine GET_VIDEO_MODE (numtextrows)

      INTEGER*2 numtextrows
      return
C ----------------------------------------------------------------------!-------
      end Subroutine GET_VIDEO_MODE 
C ----------------------------------------------------------------------!-------
C ----------------------------------------------------------------------!-------
      Subroutine PLOT_PTS_VT (xmin,xmax,ymin,ymax, x, y,
     &                        xreal, yreal, numpts,
     &			      marker, rayflag, conflag,
     &			      numxticks, numyticks, num_pt_plots,
     &                        slomofact, eigflag)
C ----------------------------------------------------------------------!-------

      INTEGER marker,
     &	      numpts,
     &	      maxpts,
     &	      numtextrow,
     &	      numtextcol

      PARAMETER (maxpts = 4000)

      REAL
     &          xreal(0:1000), yreal(0:1000),    !  Profile Plots
     &          pixlpercol,
     &          pixlperrow,
     &          slomofact

      INTEGER*2
     &          x(0:maxpts),
     &          y(0:maxpts),
     &          intx(0:maxpts),
     &		inty(0:maxpts),
     &          xmin_p, xmax_p, ymin_p, ymax_p

      LOGICAL  rayflag,
     &         conflag,
     &         eigflag

      RETURN
C ----------------------------------------------------------------------!-------
      END Subroutine PLOT_PTS_VT 
C ----------------------------------------------------------------------!-------
C ----------------------------------------------------------------------!-------
      Subroutine SETVIDEO_DFT
C ----------------------------------------------------------------------!-------

      RETURN
C ----------------------------------------------------------------------!-------
      END Subroutine SETVIDEO_DFT
C ----------------------------------------------------------------------!-------
C ----------------------------------------------------------------------!-------
      Subroutine CLR_SCREEN
C ----------------------------------------------------------------------!-------

      RETURN
C ----------------------------------------------------------------------!-------
      END Subroutine CLR_SCREEN
C ----------------------------------------------------------------------!-------
C ----------------------------------------------------------------------!-------
      Subroutine LABEL_AXES_VT (newtitle, newhoriz_label,
     &                          newvert_label, numtextrows)
C ----------------------------------------------------------------------!-------

      INTEGER*2 numtextrows

      CHARACTER*(*) newtitle,
     &		   newhoriz_label,
     &		   newvert_label

      RETURN
C ----------------------------------------------------------------------!-------
      END Subroutine LABEL_AXES_VT 
C ----------------------------------------------------------------------!-------
C ----------------------------------------------------------------------!-------
      Subroutine SUBHEAD_VT (subtext, lentxt, marker)
C ----------------------------------------------------------------------!-------

      CHARACTER *(*)
     &             subtext

      INTEGER lentxt,
     &        marker

      RETURN
C ----------------------------------------------------------------------!-------
      END Subroutine SUBHEAD_VT 
C ----------------------------------------------------------------------!-------
C ----------------------------------------------------------------------!-------
      Subroutine PAUSEIT
C ----------------------------------------------------------------------!-------

      RETURN
C ----------------------------------------------------------------------!-------
      END Subroutine PAUSEIT
C ----------------------------------------------------------------------!-------
C ----------------------------------------------------------------------!-------

      Subroutine RAYTXT_OUT_VT (xmin,xmax,ymin,ymax,ior,nchar,raytxt,
     &		                xtxt, ytxt)
C ----------------------------------------------------------------------!-------

      INTEGER ior ! 27 June 2004

      INTEGER*2 irow,icol

      REAL xmin,xmax,ymin,ymax, xtxt, ytxt
      CHARACTER*(*) raytxt

      RETURN
C ----------------------------------------------------------------------!-------
      END Subroutine RAYTXT_OUT_VT 
C ----------------------------------------------------------------------!-------
