releasedExamples/AMRINS/projection/CCProjector.cpp
// --------------------------------------------------------------
// note that this function assumes that all BC's on Pi have been set
note that this function assumes that all BC's on Pi have been set
note that this function assumes that all BC ' s on Pi have been set
void CCProjector::gradPi(LevelData<FArrayBox>& a_gradPi, int a_dir) const
{
  DataIterator dit = a_gradPi.dataIterator();
  for (dit.reset(); dit.ok(); ++dit)
    {
      FORT_GRADCC(CHF_FRA1(a_gradPi[dit],0),
                  CHF_CONST_FRA1(m_Pi[dit],0),
                  CHF_BOX(getBoxes()[dit]),
                  CHF_CONST_REAL(m_dx),
                  CHF_INT(a_dir));
    }
}
void CCProjector :: gradPi ( LevelData < FArrayBox > & a_gradPi , int a_dir ) const { DataIterator dit = a_gradPi . dataIterator ( ) ; for ( dit . reset ( ) ; dit . ok ( ) ; ++ dit ) { FORT_GRADCC ( CHF_FRA1 ( a_gradPi [ dit ] , 0 ) , CHF_CONST_FRA1 ( m_Pi [ dit ] , 0 ) , CHF_BOX ( getBoxes ( ) [ dit ] ) , CHF_CONST_REAL ( m_dx ) , CHF_INT ( a_dir ) ) ; } }
note that this function assumes that all BC's on Pi have been set
note that this function assumes that all BC ' s on Pi have been set
// call FORTRAN subroutine directly...