Source Code Description: Subroutine SORT

SORT

PURPOSE: to define the set of dipole modes.

METHOD: In the DO LOOP ending at statement 3, the set of dipoles is defined by filling the vectors I1(I) and I3(I) (the endpoints of dipole I); I2(I) (the terminal point of dipole I); and the vectors JA(I) and JB(I) (the monopoles comprising dipole I) with the node numbers and segment numbers, respectively. The DO LOOP ending at staement 8 determines MD(J,K) (the list of dipoles sharing segment J) and ND(K) (the number of dipoles sharing segment J).

CALLED BY:

• MAIN

CALLS TO: NONE