C++*****************************************************************1/17/81
C
C GRAPHP.F
C
C **********************************************************************
C=* FROM: SPIDER - MODULAR IMAGE PROCESSING SYSTEM.   AUTHOR: J.FRANK  *
C=* Copyright (C) 1985-2005  Health Research Inc.                      *
C=*                                                                    *
C=* HEALTH RESEARCH INCORPORATED (HRI),                                *   
C=* ONE UNIVERSITY PLACE, RENSSELAER, NY 12144-3455.                   *
C=*                                                                    *
C=* Email:  spider@wadsworth.org                                       *
C=*                                                                    *
C=* This program is free software; you can redistribute it and/or      *
C=* modify it under the terms of the GNU General Public License as     *
C=* published by the Free Software Foundation; either version 2 of the *
C=* License, or (at your option) any later version.                    *
C=*                                                                    *
C=* This program is distributed in the hope that it will be useful,    *
C=* but WITHOUT ANY WARRANTY; without even the implied warranty of     *
C=* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU  *
C=* General Public License for more details.                           *
C=*                                                                    *
C=* You should have received a copy of the GNU General Public License  *
C=* along with this program; if not, write to the                      *
C=* Free Software Foundation, Inc.,                                    *
C=* 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.      *
C=*                                                                    *
C **********************************************************************
C
C  GRAPHP(LUN1,NSAM,NROW)
C
C  PURPOSE:    TO PRINT/TYPE SINGLE IMAGE ROW
C
C **********************************************************************

	SUBROUTINE GRAPHP(LUN1,NSAM,NROW)

	INCLUDE 'CMBLOCK.INC' 

	COMMON BUF(1)

        NSAV = NDAT
	IF (FCHAR(4:4) .EQ. 'T') THEN
	   NDEV = NOUT
C          (IDEV = 0) IS TERMINAL &  (IDEV = 1) IS LINE PRINTER FORMAT.  
  	   IDEV = 0
        ELSE
           NDEV = NDAT
           IDEV = 1
        ENDIF

C       IMAG INDICATES THE YSIZE SCALING FACTOR TO BE USED.
5	CALL RDPRMI(NLINE,IMAG,NOT_USED,
     &           'ROW TO BE DISPLAYED, SCALE FACTOR')

	IF (NLINE .LE. 0 .OR. NLINE .GT. NROW) THEN
C          COMPLETION, RESTORE THE LUN OF THE PRINTER OUTPUT.
 	   IF (FCHAR(4:4) .EQ. 'T') NDAT = NSAV
	   RETURN
        ENDIF

        IF (IMAG .LE. 0) IMAG = 1

C       READ THE LINE
	CALL REDLIN(LUN1,BUF,NSAM,NLINE)

C       PLOT THE LINE
        NLINES = 1
        FMAG   = IMAG
        CALL GRAPHS(NDEV,BUF,NSAM,NLINES,IDEV,FMAG,IRTFLG)
	GOTO 5

	END