*
* $Id$
*
* $Log$
* Revision 1.1  2000/06/19 20:00:36  eugenio
* Initial revision
*
* Revision 1.1.1.1  1994/10/08  02:21:31  zfiles
* first version of qqlib in CVS
*
*
#include "sys/CLEO_machine.h"
#include "pilot.h"
*CMZ :  1.04/00 16/12/93  16.32.34  by  Lynn Garren
*CMZ :  1.01/00 31/10/90  22.52.49  by  Paul Avery
*CMZ :          29/10/90  10.16.03  by  Paul Avery
*>> Author :
      INTEGER FUNCTION QQRINP(NAME)

#if defined(CLEO_TYPECHEK)
      IMPLICIT NONE
#endif

C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
C  Returns the particle number corresponding to the particle name NAME
C
C  FILE        character variable (read)
C              Name of particle
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

#include "seq/clinc/qqpars.inc"
#include "seq/clinc/qqprop.inc"

C     Calling arguments
      CHARACTER*(*) NAME
*
C     Local variables
      INTEGER I
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

C     Loop over particle list until we find the particle
      DO 100 I=NPMNQQ,NPMXQQ
        IF(NAME.EQ.PNAME(I) .AND. PNAME(I).NE.' ') THEN
          QQRINP = I
          GOTO 1000
        ENDIF
100   CONTINUE
      QQRINP = -100

C     Only exit
1000  RETURN
      END