C++************************************************************ 10/11/79
C
C READRQ.F        FCHAR                            AUG 1989 ARDEAN LEITH
C                 USED ERRT                        SEP 1997 ARDEAN LEITH
C                 HANDLES 20 REGISTERS             JUL 1999  ARDEAN LEITH
C                 USED REG_                        AUG 2000 ARDEAN LEITH
C                 ADDED PROMPT                     SEP 2000 ARDEAN LEITH
C                 SIMPLIFED WITH SETSYMPAR IN RDPR APR 2001 ARDEAN LEITH
C                 NATIVE [] VARIABLES              NOV 2005 ARDEAN LEITH
C                 GLOBAL [] VARIABLES              DEC 2005 ARDEAN LEITH
C                 MAXNSEL TO 24                    JAN 2006 ARDEAN LEITH
C                 'RR S'                           APR 2006 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 READRQ
C
C PURPOSE:  SUBROUTINE TO READ VALUES INTO REGISTERS
C
C PARAMETERS:   
C
C--*********************************************************************

      SUBROUTINE READRQ()

      INCLUDE 'CMBLOCK.INC'
      INCLUDE 'CMLIMIT.INC' 

      CHARACTER (LEN=160)    :: RESPONSE, GLOBALREG,GLOBALX,CVALUE
      CHARACTER (LEN=160)    :: LOCALREG,LOCALX
      CHARACTER (LEN=1)      :: NULL,CDUM

C     DANGER MAXNSEL IS ALSO SET IN reg_set.f and spider.f(NPARG)!! 
      INTEGER, PARAMETER         :: MAXNSEL = 24  ! REGISTER LIST 
      REAL,   DIMENSION(MAXNSEL) :: VALUES 

      NULL = CHAR(0)


C     SETTING A  REGISTER VARIABLE(S) FROM OPERATION LINE

C     COPY VALUES TO LOCAL REGISTER(S)

C     COUNT NUMBER OF REGISTERS USED IN NSEL ARRAY
      CALL REG_GET_USED(NSEL_USED)
      IF (NSEL_USED .LE. 0) THEN
         CALL ERRT(101,'NO REGISTERS GIVEN ON OPERATION LINE',IDUM)
         RETURN 
      ENDIF

C     INPUT REGISTER CONTENTS
      NEED = NSEL_USED
      IF (FCHAR(1:4) .EQ. 'RR S') NEED = MAXNSEL
      IT   = MAXNSEL
      IF (NEED .GT. IT) THEN
         CALL ERRT(102,'TOO MANY REGISTERS ON OPERATION LINE',NEED)
         RETURN 
      ENDIF

C     CAN FILL OR READ GLOBAL ALSO
      ILEVEL = 0
      IF (FCHAR(1:4) .EQ. 'RR C') ILEVEL = 1

      CALL RDPRA('VALUE(S)',NEED,ILEVEL,.FALSE.,VALUES,NGOT,IRTFLG)
      IF (IRTFLG .NE. 0) RETURN

c     write(6,*) ' nsel_used:',nsel_used
c     write(6,*) ' igot:',igot
c     write(6,*) ' values(1):',values(1)

      IF (FCHAR(1:4) .NE. 'RR S') THEN
C        COPY VALUES TO OP. LINE REGISTER(S)
         CALL REG_SET_NSELA(NGOT,VALUES,.FALSE.,IRTFLG)

      ELSE
C        COPY DESIRED VALUE(S) TO OP. LINE REGISTER(S)
         IVAL = 1
         CALL RDPRI1S(IVAL,NOT_USED,'POSITION WITHIN LIST',IRTFLG)
         IF (IRTFLG .NE. 0) RETURN

            
C        COPY VALUES TO OP. LINE REGISTER(S)
         DO I =IVAL,IVAL+NSEL_USED-1
           IF (I .LE. NGOT) THEN
              IV = I-IVAL+1
              CALL REG_SET_NSEL(IV,1,VALUES(I),
     &                          FDUM,FDUM,FDUM,FDUM,IRTFLG)
              WRITE(NOUT,*) ' REGISTER SET TO: ',VALUES(I)
           ELSE
             CALL ERRT(102,' POSITION NOT AVAILABLE IN LIST',I)
             RETURN
           ENDIF
         ENDDO
      ENDIF

      RETURN
      END