         }
         return;
     }
-
 
 
     /* ------------------------ Transverse Propagation : X-faces ---------------------- */

                }
            } 

            rpn2(1, meqn, mwaves, maux, qd, qr, auxd, auxr, wave, s, bmdq, bpdq);

            /* Set value at bottom interface of cell I */


            if (ix < mx + 1 && iy < my + 1)   /* Is this needed? */
            {
                for(mw = 0; mw < mwaves; mw++)
                {
                    /* X-faces */
