src/fclaw2d_map.c
/* Use an existing Fortran mapc2m routine.
 * The answers to the queries are expected in user_int[0] through [4].
 * The pointer to the Fortran mapping function is stored in user_data.
 */
Use an existing Fortran mapc2m routine.
The answers to the queries are expected in user_int[0] through [4].
The pointer to the Fortran mapping function is stored in user_data.
Use an existing Fortran mapc2m routine . The answers to the queries are expected in user_int [ 0 ] through [ 4 ] . The pointer to the Fortran mapping function is stored in user_data .
static int
fclaw2d_map_query_fortran (fclaw2d_map_context_t * cont, int query_identifier)
{
    return 0 <= query_identifier && query_identifier <
        FCLAW2D_MAP_QUERY_LAST ? cont->user_int[query_identifier] : 0;
}
static int fclaw2d_map_query_fortran ( fclaw2d_map_context_t * cont , int query_identifier ) { return 0 <= query_identifier && query_identifier < FCLAW2D_MAP_QUERY_LAST ? cont -> user_int [ query_identifier ] : 0 ; }
Use an existing Fortran mapc2m routine.
Use an existing Fortran mapc2m routine .