C                  INTERNATIONAL AVS CENTER
C        (This disclaimer must remain at the top of all files)
C
C WARRANTY DISCLAIMER
C
C This module and the files associated with it are distributed free of charge.
C It is placed in the public domain and permission is granted for anyone to use,
C duplicate, modify, and redistribute it unless otherwise noted.  Some modules
C may be copyrighted.  You agree to abide by the conditions also included in
C the AVS Licensing Agreement, version 1.0, located in the main module
C directory located at the International AVS Center ftp site and to include
C the AVS Licensing Agreement when you distribute any files downloaded from
C that site.
C
C The International AVS Center, MCNC, the AVS Consortium and the individual
C submitting the module and files associated with said module provide absolutely
C NO WARRANTY OF ANY KIND with respect to this software.  The entire risk as to
C the quality and performance of this software is with the user.  IN NO EVENT
C WILL The International AVS Center, MCNC, the AVS Consortium and the individual
C submitting the module and files associated with said module BE LIABLE TO
C ANYONE FOR ANY DAMAGES ARISING FROM THE USE OF THIS SOFTWARE, INCLUDING,
C WITHOUT LIMITATION, DAMAGES RESULTING FROM LOST DATA OR LOST PROFITS, OR ANY
C SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES.
C
C This AVS module and associated files are public domain software unless
C otherwise noted.  Permission is hereby granted to do whatever you like with
C it, subject to the conditions that may exist in copyrighted materials. Should
C you wish to make a contribution toward the improvement, modification, or
C general performance of this module, please send us your comments:  why you
C liked or disliked it, how you use it, and most important, how it helps your
C work. We will receive your comments at avs@ncsc.org.
C
C Please send AVS module bug reports to avs@ncsc.org.
C
C	"@(#)elem_ig.f	1.1 Stardent 90/03/23"
C			Copyright (c) 1989 by
C			Stardent Computer Inc.
C			All Rights Reserved
C	
C	
      logical function elem_in_group (group_flag, group_list,
     &  material_code)

      include 'read_dyna3d.h'

      integer group_flag, group_list(max_groups), material_code


      integer i, num_groups, sg, eg, code

c     **************
c     ***  body  ***
c     **************

      if (group_flag .and. (group_list(1) .gt. 0)) then
        num_groups = group_list(1)
     
        i = 2
        do while (i .le. num_groups + 1)
          sg = group_list(i)

          if (sg .lt. 0) then
            sg = -sg
            i = i + 1
            eg = group_list(i)
          else
            eg = sg            
          end if

          if ((material_code .ge. sg) .and. (material_code .le.
     &          eg)) then
            elem_in_group = .false.
            i = num_groups + 2 
          else
            elem_in_group = .true.
          end if 

          i = i + 1
        end do
      else
        elem_in_group = .true.
      end if

      return
      end