public static function Pom00($xp, $yp, $sp, array &$rpom) {
    /* Construct the matrix. */
    IAU::Ir($rpom);
    IAU::Rz($sp, $rpom);
    IAU::Ry(-$xp, $rpom);
    IAU::Rx(-$yp, $rpom);

    return;
  }