Lines Matching full:if
38 #if __GNUC__ >= 8
56 …if (Splice(stringname, _len) > 1023) *err = CeedError(NULL, 1, "Fortran string length too long %zd…
66 if (Ceed_count == Ceed_count_max) { in fCeedInit()
74 if (*err == 0) { in fCeedInit()
96 if (*ceed == FORTRAN_NULL) return; in fCeedDestroy()
99 if (*err == 0) { in fCeedDestroy()
102 if (Ceed_n == 0) { in fCeedDestroy()
120 if (CeedVector_count == CeedVector_count_max) { in fCeedVectorCreate()
128 if (*err == 0) { in fCeedVectorCreate()
206 if (*vec == FORTRAN_NULL) return; in fCeedVectorDestroy()
209 if (*err == 0) { in fCeedVectorDestroy()
212 if (CeedVector_n == 0) { in fCeedVectorDestroy()
231 if (CeedElemRestriction_count == CeedElemRestriction_count_max) { in fCeedElemRestrictionCreate()
242 if (*err == 0) { in fCeedElemRestrictionCreate()
251 if (CeedElemRestriction_count == CeedElemRestriction_count_max) { in fCeedElemRestrictionCreateOriented()
263 if (*err == 0) { in fCeedElemRestrictionCreateOriented()
273 if (CeedElemRestriction_count == CeedElemRestriction_count_max) { in fCeedElemRestrictionCreateCurlOriented()
285 if (*err == 0) { in fCeedElemRestrictionCreateCurlOriented()
294 if (CeedElemRestriction_count == CeedElemRestriction_count_max) { in fCeedElemRestrictionCreateStrided()
303 if (*err == 0) { in fCeedElemRestrictionCreateStrided()
312 if (CeedElemRestriction_count == CeedElemRestriction_count_max) { in fCeedElemRestrictionCreateBlocked()
323 if (*err == 0) { in fCeedElemRestrictionCreateBlocked()
333 if (CeedElemRestriction_count == CeedElemRestriction_count_max) { in fCeedElemRestrictionCreateBlockedOriented()
345 if (*err == 0) { in fCeedElemRestrictionCreateBlockedOriented()
356 if (CeedElemRestriction_count == CeedElemRestriction_count_max) { in fCeedElemRestrictionCreateBlockedCurlOriented()
368 if (*err == 0) { in fCeedElemRestrictionCreateBlockedCurlOriented()
377 if (CeedElemRestriction_count == CeedElemRestriction_count_max) { in fCeedElemRestrictionCreateBlockedStrided()
385 if (*err == 0) { in fCeedElemRestrictionCreateBlockedStrided()
399 // Check if input is CEED_REQUEST_ORDERED(-2) or CEED_REQUEST_IMMEDIATE(-1) in fCeedElemRestrictionApply()
400 if (*rqst == FORTRAN_REQUEST_IMMEDIATE || *rqst == FORTRAN_REQUEST_ORDERED) createRequest = 0; in fCeedElemRestrictionApply()
402 if (createRequest && CeedRequest_count == CeedRequest_count_max) { in fCeedElemRestrictionApply()
408 if (*rqst == FORTRAN_REQUEST_IMMEDIATE) rqst_ = CEED_REQUEST_IMMEDIATE; in fCeedElemRestrictionApply()
409 else if (*rqst == FORTRAN_REQUEST_ORDERED) rqst_ = CEED_REQUEST_ORDERED; in fCeedElemRestrictionApply()
415 if (*err == 0 && createRequest) { in fCeedElemRestrictionApply()
424 // Check if input is CEED_REQUEST_ORDERED(-2) or CEED_REQUEST_IMMEDIATE(-1) in fCeedElemRestrictionApplyBlock()
425 if (*rqst == FORTRAN_REQUEST_IMMEDIATE || *rqst == FORTRAN_REQUEST_ORDERED) createRequest = 0; in fCeedElemRestrictionApplyBlock()
427 if (createRequest && CeedRequest_count == CeedRequest_count_max) { in fCeedElemRestrictionApplyBlock()
433 if (*rqst == FORTRAN_REQUEST_IMMEDIATE) rqst_ = CEED_REQUEST_IMMEDIATE; in fCeedElemRestrictionApplyBlock()
434 else if (*rqst == FORTRAN_REQUEST_ORDERED) rqst_ = CEED_REQUEST_ORDERED; in fCeedElemRestrictionApplyBlock()
440 if (*err == 0 && createRequest) { in fCeedElemRestrictionApplyBlock()
471 if (*err == 0) { in fCeedRequestWait()
473 if (CeedRequest_n == 0) { in fCeedRequestWait()
483 if (*elem == FORTRAN_NULL) return; in fCeedElemRestrictionDestroy()
486 if (*err == 0) { in fCeedElemRestrictionDestroy()
489 if (CeedElemRestriction_n == 0) { in fCeedElemRestrictionDestroy()
507 if (CeedBasis_count == CeedBasis_count_max) { in fCeedBasisCreateTensorH1Lagrange()
514 if (*err == 0) { in fCeedBasisCreateTensorH1Lagrange()
524 if (CeedBasis_count == CeedBasis_count_max) { in fCeedBasisCreateTensorH1()
532 if (*err == 0) { in fCeedBasisCreateTensorH1()
541 if (CeedBasis_count == CeedBasis_count_max) { in fCeedBasisCreateH1()
549 if (*err == 0) { in fCeedBasisCreateH1()
558 if (CeedBasis_count == CeedBasis_count_max) { in fCeedBasisCreateHdiv()
566 if (*err == 0) { in fCeedBasisCreateHdiv()
575 if (CeedBasis_count == CeedBasis_count_max) { in fCeedBasisCreateHcurl()
583 if (*err == 0) { in fCeedBasisCreateHcurl()
638 if (*basis == FORTRAN_NULL) return; in fCeedBasisDestroy()
641 if (*err == 0) { in fCeedBasisDestroy()
644 if (CeedBasis_n == 0) { in fCeedBasisDestroy()
672 if (CeedQFunctionContext_count == CeedQFunctionContext_count_max) { in fCeedQFunctionContextCreate()
680 if (*err) return; in fCeedQFunctionContextCreate()
715 if (*ctx == FORTRAN_NULL) return; in fCeedQFunctionContextDestroy()
718 if (*err == 0) { in fCeedQFunctionContextDestroy()
721 if (CeedQFunctionContext_n == 0) { in fCeedQFunctionContextDestroy()
746 if (inner_ctx) { in CeedQFunctionFortranStub()
754 if (inner_ctx) { in CeedQFunctionFortranStub()
772 if (CeedQFunction_count == CeedQFunction_count_max) { in fCeedQFunctionCreateInterior()
780 if (*err == 0) { in fCeedQFunctionCreateInterior()
787 if (*err) return; in fCeedQFunctionCreateInterior()
792 if (*err) return; in fCeedQFunctionCreateInterior()
794 if (*err) return; in fCeedQFunctionCreateInterior()
796 if (*err) return; in fCeedQFunctionCreateInterior()
798 if (*err) return; in fCeedQFunctionCreateInterior()
806 if (CeedQFunction_count == CeedQFunction_count_max) { in fCeedQFunctionCreateInteriorByName()
814 if (*err == 0) { in fCeedQFunctionCreateInteriorByName()
822 if (CeedQFunction_count == CeedQFunction_count_max) { in fCeedQFunctionCreateIdentity()
830 if (*err == 0) { in fCeedQFunctionCreateIdentity()
861 if (*err) return; in fCeedQFunctionSetContext()
864 if (*err) return; in fCeedQFunctionSetContext()
867 if (*err) return; in fCeedQFunctionSetContext()
891 if (*err) return; in fCeedQFunctionApply()
910 if (*err) return; in fCeedQFunctionApply()
928 if (*err) return; in fCeedQFunctionApply()
931 if (*err) return; in fCeedQFunctionApply()
937 if (*qf == FORTRAN_NULL) return; in fCeedQFunctionDestroy()
940 if (*err == 0) { in fCeedQFunctionDestroy()
943 if (CeedQFunction_n == 0) { in fCeedQFunctionDestroy()
961 if (CeedOperator_count == CeedOperator_count_max) { in fCeedOperatorCreate()
969 if (*dqf != FORTRAN_QFUNCTION_NONE) dqf_ = CeedQFunction_dict[*dqf]; in fCeedOperatorCreate()
970 if (*dqfT != FORTRAN_QFUNCTION_NONE) dqfT_ = CeedQFunction_dict[*dqfT]; in fCeedOperatorCreate()
973 if (*err) return; in fCeedOperatorCreate()
980 if (CeedOperator_count == CeedOperator_count_max) { in fCeedOperatorCreateComposite()
988 if (*err) return; in fCeedOperatorCreateComposite()
1002 if (*r == FORTRAN_NULL) { in fCeedOperatorSetField()
1004 } else if (*r == FORTRAN_ELEMRESTRICTION_NONE) { in fCeedOperatorSetField()
1010 if (*b == FORTRAN_NULL) { in fCeedOperatorSetField()
1012 } else if (*b == FORTRAN_BASIS_NONE) { in fCeedOperatorSetField()
1017 if (*v == FORTRAN_NULL) { in fCeedOperatorSetField()
1019 } else if (*v == FORTRAN_VECTOR_ACTIVE) { in fCeedOperatorSetField()
1021 } else if (*v == FORTRAN_VECTOR_NONE) { in fCeedOperatorSetField()
1056 if (CeedVector_count == CeedVector_count_max) { in fCeedOperatorLinearAssembleQFunction()
1063 if (CeedElemRestriction_count == CeedElemRestriction_count_max) { in fCeedOperatorLinearAssembleQFunction()
1070 // Check if input is CEED_REQUEST_ORDERED(-2) or CEED_REQUEST_IMMEDIATE(-1) in fCeedOperatorLinearAssembleQFunction()
1071 if (*rqst == -1 || *rqst == -2) { in fCeedOperatorLinearAssembleQFunction()
1075 if (createRequest && CeedRequest_count == CeedRequest_count_max) { in fCeedOperatorLinearAssembleQFunction()
1081 if (*rqst == -1) rqst_ = CEED_REQUEST_IMMEDIATE; in fCeedOperatorLinearAssembleQFunction()
1082 else if (*rqst == -2) rqst_ = CEED_REQUEST_ORDERED; in fCeedOperatorLinearAssembleQFunction()
1086 if (*err) return; in fCeedOperatorLinearAssembleQFunction()
1087 if (createRequest) { in fCeedOperatorLinearAssembleQFunction()
1092 if (*err == 0) { in fCeedOperatorLinearAssembleQFunction()
1103 // Check if input is CEED_REQUEST_ORDERED(-2) or CEED_REQUEST_IMMEDIATE(-1) in fCeedOperatorLinearAssembleDiagonal()
1104 if (*rqst == -1 || *rqst == -2) { in fCeedOperatorLinearAssembleDiagonal()
1108 if (createRequest && CeedRequest_count == CeedRequest_count_max) { in fCeedOperatorLinearAssembleDiagonal()
1114 if (*rqst == -1) rqst_ = CEED_REQUEST_IMMEDIATE; in fCeedOperatorLinearAssembleDiagonal()
1115 else if (*rqst == -2) rqst_ = CEED_REQUEST_ORDERED; in fCeedOperatorLinearAssembleDiagonal()
1119 if (*err) return; in fCeedOperatorLinearAssembleDiagonal()
1120 if (createRequest) { in fCeedOperatorLinearAssembleDiagonal()
1136 if (*err) return; in fCeedOperatorMultigridLevelCreate()
1160 if (*err) return; in fCeedOperatorMultigridLevelCreateTensorH1()
1184 if (*err) return; in fCeedOperatorMultigridLevelCreateH1()
1208 if (CeedOperator_count == CeedOperator_count_max) { in fCeedOperatorCreateFDMElementInverse()
1215 // Check if input is CEED_REQUEST_ORDERED(-2) or CEED_REQUEST_IMMEDIATE(-1) in fCeedOperatorCreateFDMElementInverse()
1216 if (*rqst == -1 || *rqst == -2) { in fCeedOperatorCreateFDMElementInverse()
1220 if (createRequest && CeedRequest_count == CeedRequest_count_max) { in fCeedOperatorCreateFDMElementInverse()
1226 if (*rqst == -1) rqst_ = CEED_REQUEST_IMMEDIATE; in fCeedOperatorCreateFDMElementInverse()
1227 else if (*rqst == -2) rqst_ = CEED_REQUEST_ORDERED; in fCeedOperatorCreateFDMElementInverse()
1231 if (*err) return; in fCeedOperatorCreateFDMElementInverse()
1232 if (createRequest) { in fCeedOperatorCreateFDMElementInverse()
1237 if (*err == 0) { in fCeedOperatorCreateFDMElementInverse()
1249 // Check if input is CEED_REQUEST_ORDERED(-2) or CEED_REQUEST_IMMEDIATE(-1) in fCeedOperatorApply()
1250 if (*rqst == -1 || *rqst == -2) { in fCeedOperatorApply()
1254 if (createRequest && CeedRequest_count == CeedRequest_count_max) { in fCeedOperatorApply()
1260 if (*rqst == -1) rqst_ = CEED_REQUEST_IMMEDIATE; in fCeedOperatorApply()
1261 else if (*rqst == -2) rqst_ = CEED_REQUEST_ORDERED; in fCeedOperatorApply()
1265 if (*err) return; in fCeedOperatorApply()
1266 if (createRequest) { in fCeedOperatorApply()
1278 // Check if input is CEED_REQUEST_ORDERED(-2) or CEED_REQUEST_IMMEDIATE(-1) in fCeedOperatorApplyAdd()
1279 if (*rqst == -1 || *rqst == -2) { in fCeedOperatorApplyAdd()
1283 if (createRequest && CeedRequest_count == CeedRequest_count_max) { in fCeedOperatorApplyAdd()
1289 if (*rqst == -1) rqst_ = CEED_REQUEST_IMMEDIATE; in fCeedOperatorApplyAdd()
1290 else if (*rqst == -2) rqst_ = CEED_REQUEST_ORDERED; in fCeedOperatorApplyAdd()
1294 if (*err) return; in fCeedOperatorApplyAdd()
1295 if (createRequest) { in fCeedOperatorApplyAdd()
1311 if (*op == FORTRAN_NULL) return; in fCeedOperatorDestroy()
1313 if (*err == 0) { in fCeedOperatorDestroy()
1316 if (CeedOperator_n == 0) { in fCeedOperatorDestroy()