int const ncomp, int const ratioX, int const ratioY, int const ratioZ,

                       /*int const ncomp, int const ratioX, int const ratioY, int const ratioZ,*/

  int const srcoff[3] = {0,0,0};

  int const srcoff[3] = {ORDER/2+1, ORDER/2+1, ORDER/2+1};

  int const dstoff[3] = {0,0,0};

  int const dstoff[3] = {fblo[0] - flo[0], fblo[1] - flo[1], fblo[2] - flo[2]};

#if 0
  for(size_t k = 0 ; k < regkext ; k++)
  for(size_t j = 0 ; j < regjext ; j++)
  for(size_t i = 0 ; i < regiext ; i++)
    dst[DSTIND3(i+dstioff, j+dstjoff, k+dstkoff)] = src[SRCIND3(i/2+srcioff, j/2, k/2)];
  return;
#endif

  b.grow(ORDER/2);

  b.grow(ORDER/2+1);

  b.grow(ORDER/2);

  b.grow(ORDER/2+1);

    CCTK_REAL* fdat        = fine.dataPtr(fine_comp);
    const CCTK_REAL* cdat  = crse.dataPtr(crse_comp);
    const int* flo    = fine.loVect();
    const int* fhi    = fine.hiVect();
    const int* fblo   = target_fine_region.loVect();
    const int* fbhi   = target_fine_region.hiVect();
    const int* clo    = crse.loVect();
    const int* chi    = crse.hiVect();
    //const int* cblo   = crse_bx.loVect();
    //const int* cbhi   = crse_bx.hiVect();
    Vector<int> bc     = GetBCArray(bcr);
    const int* ratioV = ratio.getVect();

    for (int var = 0 ; var < ncomp ; ++var) {
      CCTK_REAL* fdat        = fine.dataPtr(fine_comp + var);
      const CCTK_REAL* cdat  = crse.dataPtr(crse_comp + var);
      const int* flo    = fine.loVect();
      const int* fhi    = fine.hiVect();
      const int* fblo   = target_fine_region.loVect();
      const int* fbhi   = target_fine_region.hiVect();
      const int* clo    = crse.loVect();
      const int* chi    = crse.hiVect();
      //const int* cblo   = crse_bx.loVect();
      //const int* cbhi   = crse_bx.hiVect();
      //Vector<int> bc     = GetBCArray(bcr);
      //const int* ratioV = ratio.getVect();

    CarpetLib::prolongate_3d_rf2<CCTK_REAL, ORDER>(fdat,flo,fhi,
                   fblo, fbhi,
                   ncomp,ratioV[0],ratioV[1],ratioV[2],
                   cdat,clo,chi//,
                   //cblo, cbhi,
                   /*fslo,fshi,
                   bc.dataPtr(), 
                   fvc[0].dataPtr(),fvc[1].dataPtr(),fvc[2].dataPtr(),
                   cvc[0].dataPtr(),cvc[1].dataPtr(),cvc[2].dataPtr(),
                   actual_comp,actual_state*/);

      CarpetLib::prolongate_3d_rf2<CCTK_REAL, ORDER>(fdat,flo,fhi,
                     fblo, fbhi,
                     /*ncomp,ratioV[0],ratioV[1],ratioV[2],*/
                     cdat,clo,chi//,
                     //cblo, cbhi,
                     /*fslo,fshi,
                     bc.dataPtr(), 
                     fvc[0].dataPtr(),fvc[1].dataPtr(),fvc[2].dataPtr(),
                     cvc[0].dataPtr(),cvc[1].dataPtr(),cvc[2].dataPtr(),
                     actual_comp,actual_state*/);
    }