#if ! defined (DIR_Y) && ! defined (DIR_T) 
! in order to reduce compiler warnings only define i_times() if needed

#ifdef I_TIMES_MACRO

#ifndef i_times
# define  i_times(c) cmplx(-aimag(c), real(c), kind = RKIND)
#endif

#else

! if not outmoded, define a statement function:
  
  COMPLEX :: i_times, c_
  i_times(c_) = cmplx(-aimag(c_), real(c_), kind = RKIND)
#endif

#endif
