Previous: matra Up: ../plot79_m.html Next: matrot

MATRF

       SUBROUTINE  MATRF (T, ERROR, DX,DY,DZ, PX,PY,PZ)
 C$    (Reflection Matrix)
 C$    Construct and  return  in T(*,*)  a  transformation  matrix
 C$    corresponding to a  reflection in  a plane  defined by  the
 C$    normal (DX,DY,DZ)  from a  point (PX,PY,PZ)  in the  plane.
 C$    The LOGICAL variable  ERROR is set  .TRUE. if (DX,DY,DZ)  =
 C$    (0,0,0), which does not define  a plane, and a unit  matrix
 C$    is then returned.  Otherwise, it is set .FALSE.
 C$    (30-JAN-82)