src/fclaw2d_map.c
/* This function can be called from Fortran inside of ClawPatch. */
This function can be called from Fortran inside of ClawPatch.
This function can be called from Fortran inside of ClawPatch .
void
FCLAW2D_MAP_C2M_BASIS (fclaw2d_map_context_t ** pcont,
                       const double *xc, const double *yc,
                       double *t, double *tinv, double *tderivs,
                       int *flag)
{
    fclaw2d_map_context_t *cont = *pcont;
    FCLAW_ASSERT(cont->basis != NULL);
    cont->basis (cont, *xc, *yc, t, tinv, tderivs, *flag);
}
void FCLAW2D_MAP_C2M_BASIS ( fclaw2d_map_context_t * * pcont , const double * xc , const double * yc , double * t , double * tinv , double * tderivs , int * flag ) { fclaw2d_map_context_t * cont = * pcont ; FCLAW_ASSERT ( cont -> basis != NULL ) ; cont -> basis ( cont , * xc , * yc , t , tinv , tderivs , * flag ) ; }
This function can be called from Fortran inside of ClawPatch.
This function can be called from Fortran inside of ClawPatch .