Source Code Description: Subroutine RITE

RITE

PURPOSE: to generate a list of branch currents from the input loop currents.

METHOD: The generation of branch currents is accomplished in the DO LOOP ending at statement 2. The branch currents are stored in CJ(I) by the latter part of the DO LOOP ending at statement 3. If the branch currents are requested for output (IWR positive), the DO LOOP ending at statement 5 accomplishes this.

CALLED BY:

• GANT1
• GFFLD

CALLS TO: NONE