C     /==========================================================\
C     | SUBROUTINEs  adexch_xy_rs adexch_xyz_rs                  |
C     |              adexch_xy_rl adexch_xyz_rl                  |
C     |              adexch_xz_rs adexch_yz_rs                   |
C     |              adexch_xz_rl adexch_yz_rl                   |
C     | o adjoint routines to exchange routines                  |
C     |==========================================================|
C     | These routines essentially are calling the original      |
C     | routines in reverse mode.                                |
C     | These are regular adjoint routines with no innermost     |
C     | dimension added.                                         |
C     | Calls to these routines will be generated automatically  |
C     | by TAMC if correct flow directives are given             |
C     |   tamc -reverse ....                                     |
C     |                                                          |
C     | written and tested by Ralf Giering, Jan. 14th 1999       |
C     | added new S/R's for _xz_ , _yz_ heimbach@mit.edu May-01  |
C     \==========================================================/

#include "CPP_EEOPTIONS.h"

      SUBROUTINE DUMMY_EXCH_AD

      RETURN
      END