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=*                                                                    *
C=* This file is part of:   SPIDER - Modular Image Processing System.  *
C=* SPIDER System Authors:  Joachim Frank & ArDean Leith               *
C=* Copyright 1985-2010  Health Research Inc.,                         *
C=* Riverview Center, 150 Broadway, Suite 560, Menands, NY 12204.      *
C=* Email: spider@wadsworth.org                                        *
C=*                                                                    *
C=* SPIDER 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=* SPIDER 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=* You should have received a copy of the GNU General Public License  *
C=* along with this program. If not, see <http://www.gnu.org/licenses> *
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