c
c end member number and names for the 4 groups
c   Input : species name
c   Output: end member names if match is found
c           the function returns the end member number
c                                -1 if no match
c
      FUNCTION MBEDGR(DNAM,NAEM)
      CHARACTER*9 GRNAM(4),DNAM
      CHARACTER*4 NAEM(6)
      CHARACTER*4 GRPOL(6,4)
      DATA GRNAM/'GARN','FELD','PYRO','OLIV'/
      DATA GRPOL/'<UV>','<AD>','<GR>','<PY>','<SP>','<AL>'
     &,'<AB>','<OR>','<AN>',' ',' ',' '
     &,'<WO>','<EN>','<FS>',' ',' ',' '
     &,'<MO>','<FO>','<FA>','<LI>','<TE>',' '/
C
      MBEDGR=-1
      DO 1 I=1,4
      IF(DNAM(1:4).EQ.GRNAM(I)) GO TO 2
1     CONTINUE
      MBEDGR=0
      RETURN
2     IG=I
      DO 3 I=1,6
      IF(GRPOL(I,IG).EQ.' ') GO TO 4
      NAEM(I)=GRPOL(I,IG)
3     CONTINUE
      I=7
4     MBEDGR=I-1
      RETURN
      END