Subroutine ADDCOND

Adds conductances to the model. You call this routine once when KODE = 5.

Calling convention:

call addcond(icondno, nc, condval)
Arguments Data type Input/Output Description
icondno Integer(4,*) array Both Conductance descriptions.
  • icondno(1,i) is the conductance number of the i'th conductance, addcond defines these values when called.
  • icondno(2,i) is the external element number of the i'th conductance.
  • icondno(3,i) is the external element number of the i'th conductance.
  • condno(4,I) is the type of the i'th conductance.
nc Integer Return The number of conductances in icondno.
condval Real array Call The conductance in array icondno. It has the same units as argument r.

You can deactivate conductances any time during the run by setting their value to some arbitrarily low value such as 1.E-36.

Example:

 integer addmax
        parameter (addmax=10000)
        ..
        integer addcnd(4,addmax), condptr
        real addcndval(addmax)
        save 
        ..
C
C   Initialization code
C
C
C   Create additional conductances
C
        if(numtoadd .gt. addmax)then
                print *,'FATAL - Too many mid to bottom conductances'
                stop
        endif
        if(kode .eq. 5) then
                do 620 condptr=1, numtoadd
                        addcnd(1,condptr) = condptr
                        addcnd(2,condptr) = sequence(j)
                        addcnd(3,condptr) = sequence(j+1)
                        addcnd(4,condptr) = 0
                        addcndval(condptr) = value
620     continue
C
C
C
                call addcond(addcnd, condptr, addcndval)
        endif
..