Subroutine NAMAR

Returns a list of elements in a group. It uses thermal solver internal group name conventions. The group name is determined with a call to the routine LONGNAME.

Calling convention:

call namar(name, namarr, numelem)
Arguments Data type Input/Output Description
name Character*7 Call The name of the group.
namarr Integer array Return An integer array that contains the list of internal labels of all elements in the group. It must be larger enough to contain the list.
numelem Integer Return The number of elements in the group.

The following example shows an alternate approach which requires that the user defined group names meet the additional restrictions imposed on internal thermal solver group names.

Example:

 integer maxgrsize
        parameter (maxgrsize=10000)
        ..
        integer aeroheat(maxgrsize)
        integer numaero
        ..
        save aeroheat, numaero
        ..
C
C   Initialization code
C
        call namar('AERO_HT',aeroheat, numaero)
        if(numaero .gt. maxgrsize) then
                print *,' Group AERO_HT contains too many elements'
                initerr = .true.
        end if
        ..
Note:
The routine should only be called once. It is therefore necessary to use the FORTRAN SAVE statement to preserve the variables between calls.