/*@@
  @header   DZDG_declare.h
  @date     Jun 98
  @author   Gabrielle Allen
  @desc
  Declarations for macro @seefile DZDG_guts.h to compute first 
  derivatives of the conformal metric with respect to z
  @enddesc
@@*/

#ifndef DZDK_DECLARE
#define DZDK_DECLARE

#ifdef FCODE

/* Input variables */
#undef  DZDK_KXX_KP 
#define DZDK_KXX_KP hxx(i,j,k+1)
#undef  DZDK_KXX_KM
#define DZDK_KXX_KM hxx(i,j,k-1)
#undef  DZDK_KXY_KP 
#define DZDK_KXY_KP hxy(i,j,k+1)
#undef  DZDK_KXY_KM 
#define DZDK_KXY_KM hxy(i,j,k-1)
#undef  DZDK_KXZ_KP 
#define DZDK_KXZ_KP hxz(i,j,k+1)
#undef  DZDK_KXZ_KM
#define DZDK_KXZ_KM hxz(i,j,k-1)
#undef  DZDK_KYY_KP 
#define DZDK_KYY_KP hyy(i,j,k+1)
#undef  DZDK_KYY_KM 
#define DZDK_KYY_KM hyy(i,j,k-1)
#undef  DZDK_KYZ_KP 
#define DZDK_KYZ_KP hyz(i,j,k+1)
#undef  DZDK_KYZ_KM 
#define DZDK_KYZ_KM hyz(i,j,k-1)
#undef  DZDK_KZZ_KP 
#define DZDK_KZZ_KP hzz(i,j,k+1)
#undef  DZDK_KZZ_KM
#define DZDK_KZZ_KM hzz(i,j,k-1)

/* Output variables */ 
#undef  DZDK_DZDKXX
#define DZDK_DZDKXX dzdk_dzdkxx 
#undef  DZDK_DZDKXY
#define DZDK_DZDKXY dzdk_dzdkxy
#undef  DZDK_DZDKXZ
#define DZDK_DZDKXZ dzdk_dzdkxz
#undef  DZDK_DZDKYY
#define DZDK_DZDKYY dzdk_dzdkyy
#undef  DZDK_DZDKYZ
#define DZDK_DZDKYZ dzdk_dzdkyz
#undef  DZDK_DZDKZZ
#define DZDK_DZDKZZ dzdk_dzdkzz

/* Internal variables */
#undef  DZDK_DZ
#define DZDK_DZ    dz
#undef  DZDK_OO2DZ   
#define DZDK_OO2DZ dzdk_oo2dz

/* Declare internal variables */
      REAL DZDK_OO2DZ

/* Declare output variables */
      REAL DZDK_DZDKXX
      REAL DZDK_DZDKXY
      REAL DZDK_DZDKXZ
      REAL DZDK_DZDKYY
      REAL DZDK_DZDKYZ
      REAL DZDK_DZDKZZ

#endif


#ifdef CCODE

/* Input variables */
#undef  DZDK_KXX_KP 
#define DZDK_KXX_KP hxx[ dk+ijk]
#undef  DZDK_KXX_KM
#define DZDK_KXX_KM hxx[-dk+ijk]
#undef  DZDK_KXY_KP 
#define DZDK_KXY_KP hxy[ dk+ijk]
#undef  DZDK_KXY_KM 
#define DZDK_KXY_KM hxy[-dk+ijk]
#undef  DZDK_KXZ_KP 
#define DZDK_KXZ_KP hxz[ dk+ijk]
#undef  DZDK_KXZ_KM
#define DZDK_KXZ_KM hxz[-dk+ijk]
#undef  DZDK_KYY_KP 
#define DZDK_KYY_KP hyy[ dk+ijk]
#undef  DZDK_KYY_KM 
#define DZDK_KYY_KM hyy[-dk+ijk]
#undef  DZDK_KYZ_KP 
#define DZDK_KYZ_KP hyz[ dk+ijk]
#undef  DZDK_KYZ_KM 
#define DZDK_KYZ_KM hyz[-dk+ijk]
#undef  DZDK_KZZ_KP 
#define DZDK_KZZ_KP hzz[ dk+ijk]
#undef  DZDK_KZZ_KM
#define DZDK_KZZ_KM hzz[-dk+ijk]

/* Output variables */ 
#undef  DZDK_DZDKXX
#define DZDK_DZDKXX dzdk_dzdkxx 
#undef  DZDK_DZDKXY
#define DZDK_DZDKXY dzdk_dzdkxy
#undef  DZDK_DZDKXZ
#define DZDK_DZDKXZ dzdk_dzdkxz
#undef  DZDK_DZDKYY
#define DZDK_DZDKYY dzdk_dzdkyy
#undef  DZDK_DZDKYZ
#define DZDK_DZDKYZ dzdk_dzdkyz
#undef  DZDK_DZDKZZ
#define DZDK_DZDKZZ dzdk_dzdkzz

/* Internal variables */
#undef  DZDK_OO2DZ   
#define DZDK_OO2DZ dzdk_oo2dz

/* Declare internal variables */
double DZDK_OO2DZ;

/* Declare output variables */
double DZDK_DZDKXX;
double DZDK_DZDKXY;
double DZDK_DZDKXZ;
double DZDK_DZDKYY;
double DZDK_DZDKYZ;
double DZDK_DZDKZZ;

#endif

#endif