Subroutine TCNAME

Generates a list of conductances that directly join the elements in two groups, or join one group to the rest of the model.

Calling convention:

call tcname(name1, nama2, icondno, nc)
Arguments Data type Input/Output Description
name1 Character*7 Call The name of the first group.
name2 Character*7 Call The name of the second group. The string '*' means all elements except those in the first group.
icondno Integer(4,*) array Return Conductance descriptions.
  • icondno(1,i) is the conductance number of the i'th conductance.
  • icondno(2,i) is the internal element number of the conductance associated with the group name1.
  • icondno(3,i) is the internal element number of the conductance associated with the group name2.
  • icondno(4,i) is the type of the i'th conductance.
nc Integer Return Number of conductances in icondno.

Example:

 integer condmax
        parameter (condmax=10000)
        ..
        integer mid2top(4,condmax), mid2bot(4,condmax)
        integer topcond, botcond 
        save 
        ..
C
C   Initialization code
C
C
C   Get a list of all the conductances from mid to top
C   and from mid to bottom
C
        call tcname('TPS_TOP','TPS_MID', mid2top, topcond)
        if( topcond .gt. condmax)then
                print *,'FATAL - Too many mid to top conductances'
                stop
        endif
C
        call tcname('TPS_BOT','TPS_MID', mid2bot, botcond)
        if( botcond .gt. condmax)then
                print *,'FATAL - Too many mid to bottom conductances'
                stop
        endif 
        ..
Note:
The routine is called only once. Use the FORTRAN SAVE statement to preserve the variables between calls.