%N sph2lmn %F $MIR/src/subs/ephem.for
%D Convert from spherical coordinates to direction cosines.
%P rjs
%: utilities
%B
        subroutine sph2lmn(ra,dec,lmn)

        implicit none
        double precision ra,dec,lmn(3)

  Convert spherical coordinates (e.g. ra,dec or long,lat) into 
  direction cosines.

  Input:
    ra,dec     Angles in radians.
  Output:
    lmn        Direction cosines.
