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).
CALLS TO: NONE
Goto User's Manual
See also the quick reference for the user's guide.
Goto Examples page
Goto Download Page
Return to ASAP Homepage
Last modified on: 3 Nov 2007