# Schedule definitions for thorn IDSWTE
# $Header$

if (CCTK_EQUALS(initial_data, "charge-TATelliptic")) {
  
  SCHEDULE IDSWTE_uniform_charge AT initial
  {
    LANG: C
    STORAGE: residuals
    STORAGE: level1 level2 level3
  } "Calculate uniform charge initial data, solved with TATelliptic"

}



if (CCTK_EQUALS(initial_data, "charge-exact")) {
  
  SCHEDULE IDSWTE_uniform_charge_exact AT initial
  {
    LANG: Fortran
  } "Calculate uniform charge initial data, exact solution"

}