ceed-qfunction.c (cebdb6bfe1b366699897f64d5a119972ff53dbe9) ceed-qfunction.c (b8bf0bca2754e3c4d98d2d0a42f776e4e8976ea4)
1// Copyright (c) 2017-2022, Lawrence Livermore National Security, LLC and other CEED contributors.
2// All Rights Reserved. See the top-level LICENSE and NOTICE files for details.
3//
4// SPDX-License-Identifier: BSD-2-Clause
5//
6// This file is part of CEED: http://github.com/ceed
7
8#include <ceed/ceed.h>

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

138 int ierr;
139 const char *inout = in ? "Input" : "Output";
140 char *field_name;
141 ierr = CeedQFunctionFieldGetName(field, &field_name); CeedChk(ierr);
142 CeedInt size;
143 ierr = CeedQFunctionFieldGetSize(field, &size); CeedChk(ierr);
144 CeedEvalMode eval_mode;
145 ierr = CeedQFunctionFieldGetEvalMode(field, &eval_mode); CeedChk(ierr);
1// Copyright (c) 2017-2022, Lawrence Livermore National Security, LLC and other CEED contributors.
2// All Rights Reserved. See the top-level LICENSE and NOTICE files for details.
3//
4// SPDX-License-Identifier: BSD-2-Clause
5//
6// This file is part of CEED: http://github.com/ceed
7
8#include <ceed/ceed.h>

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

138 int ierr;
139 const char *inout = in ? "Input" : "Output";
140 char *field_name;
141 ierr = CeedQFunctionFieldGetName(field, &field_name); CeedChk(ierr);
142 CeedInt size;
143 ierr = CeedQFunctionFieldGetSize(field, &size); CeedChk(ierr);
144 CeedEvalMode eval_mode;
145 ierr = CeedQFunctionFieldGetEvalMode(field, &eval_mode); CeedChk(ierr);
146 fprintf(stream, " %s Field [%d]:\n"
146 fprintf(stream, " %s field %d:\n"
147 " Name: \"%s\"\n"
148 " Size: %d\n"
149 " EvalMode: \"%s\"\n",
150 inout, field_number, field_name, size, CeedEvalModes[eval_mode]);
151 return CEED_ERROR_SUCCESS;
152}
153
154/**

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

967**/
968int CeedQFunctionView(CeedQFunction qf, FILE *stream) {
969 int ierr;
970
971 fprintf(stream, "%sCeedQFunction %s\n",
972 qf->is_gallery ? "Gallery " : "User ",
973 qf->is_gallery ? qf->gallery_name : qf->kernel_name);
974
147 " Name: \"%s\"\n"
148 " Size: %d\n"
149 " EvalMode: \"%s\"\n",
150 inout, field_number, field_name, size, CeedEvalModes[eval_mode]);
151 return CEED_ERROR_SUCCESS;
152}
153
154/**

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

967**/
968int CeedQFunctionView(CeedQFunction qf, FILE *stream) {
969 int ierr;
970
971 fprintf(stream, "%sCeedQFunction %s\n",
972 qf->is_gallery ? "Gallery " : "User ",
973 qf->is_gallery ? qf->gallery_name : qf->kernel_name);
974
975 fprintf(stream, " %d Input Field%s:\n", qf->num_input_fields,
975 fprintf(stream, " %d input field%s:\n", qf->num_input_fields,
976 qf->num_input_fields>1 ? "s" : "");
977 for (CeedInt i=0; i<qf->num_input_fields; i++) {
978 ierr = CeedQFunctionFieldView(qf->input_fields[i], i, 1, stream);
979 CeedChk(ierr);
980 }
981
976 qf->num_input_fields>1 ? "s" : "");
977 for (CeedInt i=0; i<qf->num_input_fields; i++) {
978 ierr = CeedQFunctionFieldView(qf->input_fields[i], i, 1, stream);
979 CeedChk(ierr);
980 }
981
982 fprintf(stream, " %d Output Field%s:\n", qf->num_output_fields,
982 fprintf(stream, " %d output field%s:\n", qf->num_output_fields,
983 qf->num_output_fields>1 ? "s" : "");
984 for (CeedInt i=0; i<qf->num_output_fields; i++) {
985 ierr = CeedQFunctionFieldView(qf->output_fields[i], i, 0, stream);
986 CeedChk(ierr);
987 }
988 return CEED_ERROR_SUCCESS;
989}
990

--- 90 unchanged lines hidden --- 		983 qf->num_output_fields>1 ? "s" : "");
984 for (CeedInt i=0; i<qf->num_output_fields; i++) {
985 ierr = CeedQFunctionFieldView(qf->output_fields[i], i, 0, stream);
986 CeedChk(ierr);
987 }
988 return CEED_ERROR_SUCCESS;
989}
990

--- 90 unchanged lines hidden ---