!   TITLE:  max_enty_dim.mac (MANAGEMENT)
!
!
!
!   This sub-macro is used to retrieve the maximum value, within a selected
!   set, of the dimension of a specified entity:
!
!           ENTITY      DIMENSION
!          --------    -----------
!           line         length
!           area         area
!           volume       volume
!
!   Input data necessary to run this macro:
!
!       A selected set of specified entities
!
!       entity = 'l' for line entities
!                'a' for area entities
!                'v' for volume entities
!
!
! MAX_ENTY_DIM, entity
!
!
*get,prkey_,active,0,prkey
/nopr
!
entity=arg1
!
*if,entity,eq,'l',then          ! assignment of entity variable, 'ev'
    ev='line'
*elseif,entity,eq,'a',then
    ev='area'
    asum
*elseif,entity,eq,'v',then
    ev='volu'
    vsum
*else
    ev='z'
*endif
!
*if,ev,ne,'z',then              ! If ev is assigned 'z', then abort
    !
    *get,emax,ev,,num,max       ! retrieve MIN and MAX entity numbers
    *get,emin,ev,,num,min
    !
    *get,ecount,ev,,count       ! number of specified entities in the
    !                           ! selected entity set
    *do,jkl_,1,ecount,1
        *if,jkl_,eq,1,then
            e%jkl_%=emin
        *else
            jj_=jkl_-1
            *get,xx,ev,e%jj_%,nxth
            e%jkl_%=xx
        *endif
    *enddo
*endif
!
*do,ii_,1,ecount,1
    !
    *if,entity,eq,'l',then
        *get,ec%ii_%,line,e%ii_%,leng
    *elseif,entity,eq,'a',then
        *get,ec%ii_%,area,e%ii_%,area
    *elseif,entity,eq,'v',then
        *get,ec%ii_%,volu,e%ii_%,volu
    *endif
*enddo
!
*do,ii_,1,ecount,1
    !
    *if,ii_,eq,1,then
        xx=ec1
        yy=e1
    *else
        *if,xx,gt,ec%ii_%,then
            xx=xx
            yy=yy
        *else
            xx=ec%ii_%
            yy=e%ii_%
        *endif
    *endif
*enddo
!
*if,entity,eq,'l',then
    max_leng=xx
    max_lnum=yy
*elseif,entity,eq,'a',then
    max_area=xx
    max_anum=yy
*elseif,entity,eq,'v',then
    max_vol=xx
    max_vnum=yy
*endif
!
*do,ijk_,1,ecount,1
    *set,e%ijk_%,
    *set,ec%ijk_%
    *set,xx,
    *set,yy,
    *set,ev,
    *set,entity,
    *set,emax,
    *set,emin,
*enddo
!
*set,ijk_,
*set,ii_,
*set,jj_,
*set,jkl_,

*if,prkey_,eq,1,then
    /go
*endif