!--------------------------------------------------------------------
! Copyright © 2017 United States Government as represented by the   |
! Administrator of the National Aeronautics and Space               |
! Administration. No copyright is claimed in the United States      |
! under Title 17, U.S. Code. All Other Rights Reserved.             |
!                                                                   |
! Licensed under the Apache License, Version 2.0.                   |
!--------------------------------------------------------------------

#ifdef _UNUSED_DUMMY
#  undef _UNUSED_DUMMY
#endif
   
#define _UNUSED_DUMMY(dummy) if (.false.) print*,shape(dummy)
