C++*********************************************************************
C
C    LISTITR.F                FILENAMES DEC 88 ARDEAN LEITH
C                             RENAMED FROM OPNPICP, SEP 96 ARDEAN LEITH
C                             USED REG_,            AUG 00 ARDEAN LEITH
C                             REG(',I5,')           NOV 05 ARDEAN LEITH
C                             GET_NAME              MAR 06 ARDEAN LEITH
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    LISTITR(FILNAM,LUN,NSAM,NROW,NSLICE)
C
C    PURPOSE:   TO PLACE SPIECIFED IMAGE LOCATIONS IN SPECIFIED
C               REGISTERS
C
C    PARAMETERS:
C         FILNAM     FILE NAME 
C         LUN        LOGICAL UNIT NUMBER OF FILE
C         NSAM,NROW  IMAGE DIMENSIONS
C         NSLICE     IMAGE DIMENSION
C
C    DESCRIPTION:  
C
C23456789012345678901234567890123456789012345678901234567890123456789012
C--*********************************************************************

	SUBROUTINE LISTITR(FILNAM,LUN,NSAM,NROW,NSLICE)

	PARAMETER (NBUF=100)
                             
	INCLUDE 'CMBLOCK.INC' 
	INCLUDE 'CMLIMIT.INC'
 
        COMMON /IOBUF/ BUF(NBUFSIZ)

        COMMON  /COMMUN/ PROMPT
	COMMON   ISAM(NBUF),IROW(NBUF),ILIST(NBUF),VALUES(NBUF)

        CHARACTER *(*) FILNAM
        CHARACTER *29  PROMPT
        CHARACTER *80  NAME
        CHARACTER *1   NULL

        NULL = CHAR(0)

        CALL REG_GET_USED(NREG)
        
C                 123456789012345678901234567890
        PROMPT = 'ENTER X-COORDINATES (MAX 20)'
        NUM = MIN(20,NREG)
        CALL RDPRAI(ISAM,NBUF,NUM,1,NSAM,PROMPT,NULL,IRTFLG)

        PROMPT = 'ENTER Y-COORDINATES (MAX 20)'
        CALL RDPRAI(IROW,NBUF,NUM,1,NROW,PROMPT,NULL,IRTFLG)

        ITREC = NROW * NSLICE

        DO K =1,NUM
            IF (IROW(K) .GT .ITREC .OR. ISAM(K) .GT. NSAM) THEN
C              POINT OUTSIDE OF IMAGE 
               CALL ERRT(7,'LISTITR',NE)
               RETURN
            ENDIF
            CALL REDLIN(LUN,BUF,NSAM,IROW(K))
            VALUES(K) = BUF(ISAM(K))
        ENDDO

        CALL REG_SET_NSELA(NUM,VALUES,.FALSE.,IRTFLG)

        NLET = INDEX(FILNAM,NULL) - 1
        WRITE(NDAT,91) FILNAM(1:NLET)
91      FORMAT('  FILE: ',A)

        CALL REG_GET_SELS(ILIST,100,NGOT,IRTFLG)

        DO K = 1,NGOT
           CALL REG_GET_NAME(ILIST(K),NAME,LEN_NAME,IRTFLG)

           WRITE(NDAT,90)ISAM(K),IROW(K),NAME(1:LEN_NAME),VALUES(K)
 90        FORMAT('  X = ',I4,'  Y = ',I4,'  ',A,' = ',G12.4)
        ENDDO

        RETURN
	END