Name

---

      PLANE_INT

Purpose

---

      Compute the intersection line of two planes.

Category

---

Calling Sequence

---

      plane_int, a1, a2, a3, b1, b2, b3, p, u, flag

Inputs

---

      a1, a2, a3 = 3 pts in plane A (a1=(xa,ya,za),...). in.
      b1, b2, b3 = 3 pts in plane B (b1=(xb,yb,zb),...). in.

Keyword Parameters

---

Outputs

---

      p = a point on intersection line (Px,Py,Pz). out.
      u = Unit vector along intersection line (Ux,Uy,Uz). out.
      flag = intersect flag. 0: none, 1: intersection.

Common Blocks

---

Notes

---

Modification History

---

      R. Sterner. 25 Oct, 1988.
      Johns Hopkins University Applied Physics Laboratory.
      R. Sterner, 1996 Dec 10 --- Fixed a mistake found by
      David S. Foster, UCSD.
  Copyright (C) 1988, Johns Hopkins University/Applied Physics Laboratory
  This software may be used, copied, or redistributed as long as it is not
  sold and this copyright notice is reproduced on each copy made. This
  routine is provided as is without any express or implied warranties
  whatsoever. Other limitations apply as described in the file disclaimer.txt.