ceed-qfunction.c (65275b311197718dd752815c20a8419b4b3914df) ceed-qfunction.c (fd364f385fcf8d7fc7b4a70eff195ce997d4a2a4)
1// Copyright (c) 2017, Lawrence Livermore National Security, LLC. Produced at
2// the Lawrence Livermore National Laboratory. LLNL-CODE-734707. All Rights
3// reserved. See files LICENSE and NOTICE for details.
4//
5// This file is part of CEED, a collection of benchmarks, miniapps, software
6// libraries and APIs for efficient high-order finite element and spectral
7// element discretizations for exascale applications. For more information and
8// source code availability see http://github.com/ceed.

--- 278 unchanged lines hidden (view full) ---

287
288 return 0;
289}
290
291/**
292 @brief Determine if Fortran interface was used
293
294 @param qf CeedQFunction
1// Copyright (c) 2017, Lawrence Livermore National Security, LLC. Produced at
2// the Lawrence Livermore National Laboratory. LLNL-CODE-734707. All Rights
3// reserved. See files LICENSE and NOTICE for details.
4//
5// This file is part of CEED, a collection of benchmarks, miniapps, software
6// libraries and APIs for efficient high-order finite element and spectral
7// element discretizations for exascale applications. For more information and
8// source code availability see http://github.com/ceed.

--- 278 unchanged lines hidden (view full) ---

287
288 return 0;
289}
290
291/**
292 @brief Determine if Fortran interface was used
293
294 @param qf CeedQFunction
295 @param[out] fortranstatus Variable to store Fortran status
295 @param[out] isfortran Variable to store Fortran status
296
297 @return An error code: 0 - success, otherwise - failure
298
299 @ref Backend
300**/
301
296
297 @return An error code: 0 - success, otherwise - failure
298
299 @ref Backend
300**/
301
302int CeedQFunctionGetFortranStatus(CeedQFunction qf, bool *fortranstatus) {
303 *fortranstatus = qf->fortranstatus;
302int CeedQFunctionIsFortran(CeedQFunction qf, bool *isfortran) {
303 *isfortran = qf->fortranstatus;
304 return 0;
305}
306
307/**
308 @brief Determine if QFunction is identity
309
310 @param qf CeedQFunction
304 return 0;
305}
306
307/**
308 @brief Determine if QFunction is identity
309
310 @param qf CeedQFunction
311 @param[out] identity Variable to store identity status
311 @param[out] isidentity Variable to store identity status
312
313 @return An error code: 0 - success, otherwise - failure
314
315 @ref Backend
316**/
317
312
313 @return An error code: 0 - success, otherwise - failure
314
315 @ref Backend
316**/
317
318int CeedQFunctionGetIdentityStatus(CeedQFunction qf, bool *identity) {
319 *identity = qf->identity;
318int CeedQFunctionIsIdentity(CeedQFunction qf, bool *isidentity) {
319 *isidentity = qf->identity;
320 return 0;
321}
322
323/**
324 @brief Get backend data of a CeedQFunction
325
326 @param qf CeedQFunction
327 @param[out] data Variable to store data

--- 432 unchanged lines hidden --- 		320 return 0;
321}
322
323/**
324 @brief Get backend data of a CeedQFunction
325
326 @param qf CeedQFunction
327 @param[out] data Variable to store data

--- 432 unchanged lines hidden ---