John,

Try this-

T(PARA)=TOL/PARLEL,0.0010,FA(LN0)
TEXT/OUTFIL,'LN1 PARRALEL TO LN0'
OUTPUT/FA(LN1),TA(PARA)

The problem is that for this to work properly the lines must lie on the same plane and they must have end points. Other wise they are infinite and will go on forever, eventually meeting at a single point and forming an angle.

So you may want to construct 2 new lines by projecting them onto a plane and then checking the parallel of the constructed lines.


Bob Connors
Lawrence Berkeley National Lab