# Schedule definitions for thorn DistortedBHIVP
# $Header$

if (CCTK_Equals(initial_data,"distortedbh"))
{ 
  STORAGE: sph_to_car_coord, sph_to_car_psi 

  schedule DistortedBHIVP_ParamCheck at PARAMCHECK
  {
    LANG: C
  } "Check Parameters"

  schedule DistortedBHIVP IN ADMBase_InitialData
  {
    LANG: Fortran
  } "Construct DistortedBHIVP"
}