GCC Code Coverage Report

Directory: ./
File: src/sys/classes/fn/impls/rational/ftn-custom/zrationalf.c
Date: 2026-05-04 03:58:11
Exec Total Coverage
Lines: 18 30 60.0%
Functions: 2 6 33.3%
Branches: 60 120 50.0%
Line Branch Exec Source
1 /*
2 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
3 SLEPc - Scalable Library for Eigenvalue Problem Computations
4 Copyright (c) 2002-, Universitat Politecnica de Valencia, Spain
5
6 This file is part of SLEPc.
7 SLEPc is distributed under a 2-clause BSD license (see LICENSE).
8 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
9 */
10
11 #include <petsc/private/ftnimpl.h>
12 #include <slepcfn.h>
13
14 #if defined(PETSC_HAVE_FORTRAN_CAPS)
15 #define fnrationalgetnumerator0_ FNRATIONALGETNUMERATOR0
16 #define fnrationalgetnumerator1_ FNRATIONALGETNUMERATOR1
17 #define fnrationalgetdenominator0_ FNRATIONALGETDENOMINATOR0
18 #define fnrationalgetdenominator1_ FNRATIONALGETDENOMINATOR1
19 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
20 #define fnrationalgetnumerator0_ fnrationalgetnumerator0
21 #define fnrationalgetnumerator1_ fnrationalgetnumerator1
22 #define fnrationalgetdenominator0_ fnrationalgetdenominator0
23 #define fnrationalgetdenominator1_ fnrationalgetdenominator1
24 #endif
25
26 6 SLEPC_EXTERN void fnrationalgetnumerator_(FN *fn,PetscInt *np,PetscScalar *pcoeff,PetscErrorCode *ierr)
27 {
28 6 PetscScalar *ocoeff;
29 6 PetscInt n;
30
31
13/26
✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 6 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 6 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 6 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 6 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 6 times.
✗ Branch 11 not taken.
✓ Branch 12 taken 6 times.
✗ Branch 13 not taken.
✓ Branch 14 taken 6 times.
✗ Branch 15 not taken.
✓ Branch 16 taken 6 times.
✗ Branch 17 not taken.
✓ Branch 18 taken 6 times.
✗ Branch 19 not taken.
✓ Branch 20 taken 6 times.
✗ Branch 21 not taken.
✓ Branch 22 taken 6 times.
✗ Branch 23 not taken.
✗ Branch 24 not taken.
✓ Branch 25 taken 6 times.
 6 CHKFORTRANNULLINTEGER(np);
32
11/22
✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 6 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 6 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 6 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 6 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 6 times.
✗ Branch 11 not taken.
✓ Branch 12 taken 6 times.
✗ Branch 13 not taken.
✓ Branch 14 taken 6 times.
✗ Branch 15 not taken.
✓ Branch 16 taken 6 times.
✗ Branch 17 not taken.
✓ Branch 18 taken 6 times.
✗ Branch 19 not taken.
✗ Branch 20 not taken.
✓ Branch 21 taken 6 times.
 6 CHKFORTRANNULLSCALAR(pcoeff);
33
1/2
✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
 6 *ierr = FNRationalGetNumerator(*fn,&n,&ocoeff); if (*ierr) return;
34
3/6
✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 6 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 6 times.
✗ Branch 5 not taken.
 6 if (pcoeff && ocoeff) { *ierr = PetscArraycpy(pcoeff,ocoeff,n); if (*ierr) return; }
35
1/2
✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
 6 if (np) *np = n;
36
1/2
✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
 12 *ierr = PetscFree(ocoeff);
37 }
38
39 ✗ SLEPC_EXTERN void fnrationalgetnumerator0_(FN *fn,PetscInt *np,PetscScalar *qcoeff,PetscErrorCode *ierr)
40 {
41 ✗ fnrationalgetnumerator_(fn,np,qcoeff,ierr);
42 ✗ }
43
44 ✗ SLEPC_EXTERN void fnrationalgetnumerator1_(FN *fn,PetscInt *np,PetscScalar *qcoeff,PetscErrorCode *ierr)
45 {
46 ✗ fnrationalgetnumerator_(fn,np,qcoeff,ierr);
47 ✗ }
48
49 6 SLEPC_EXTERN void fnrationalgetdenominator_(FN *fn,PetscInt *nq,PetscScalar *qcoeff,PetscErrorCode *ierr)
50 {
51 6 PetscScalar *ocoeff;
52 6 PetscInt n;
53
54
13/26
✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 6 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 6 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 6 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 6 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 6 times.
✗ Branch 11 not taken.
✓ Branch 12 taken 6 times.
✗ Branch 13 not taken.
✓ Branch 14 taken 6 times.
✗ Branch 15 not taken.
✓ Branch 16 taken 6 times.
✗ Branch 17 not taken.
✓ Branch 18 taken 6 times.
✗ Branch 19 not taken.
✓ Branch 20 taken 6 times.
✗ Branch 21 not taken.
✓ Branch 22 taken 6 times.
✗ Branch 23 not taken.
✗ Branch 24 not taken.
✓ Branch 25 taken 6 times.
 6 CHKFORTRANNULLINTEGER(nq);
55
11/22
✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 6 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 6 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 6 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 6 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 6 times.
✗ Branch 11 not taken.
✓ Branch 12 taken 6 times.
✗ Branch 13 not taken.
✓ Branch 14 taken 6 times.
✗ Branch 15 not taken.
✓ Branch 16 taken 6 times.
✗ Branch 17 not taken.
✓ Branch 18 taken 6 times.
✗ Branch 19 not taken.
✗ Branch 20 not taken.
✓ Branch 21 taken 6 times.
 6 CHKFORTRANNULLSCALAR(qcoeff);
56
1/2
✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
 6 *ierr = FNRationalGetDenominator(*fn,&n,&ocoeff); if (*ierr) return;
57
3/6
✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 6 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 6 times.
✗ Branch 5 not taken.
 6 if (qcoeff && ocoeff) { *ierr = PetscArraycpy(qcoeff,ocoeff,n); if (*ierr) return; }
58
1/2
✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
 6 if (nq) *nq = n;
59
1/2
✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
 12 *ierr = PetscFree(ocoeff);
60 }
61
62 ✗ SLEPC_EXTERN void fnrationalgetdenominator0_(FN *fn,PetscInt *nq,PetscScalar *qcoeff,PetscErrorCode *ierr)
63 {
64 ✗ fnrationalgetdenominator_(fn,nq,qcoeff,ierr);
65 ✗ }
66
67 ✗ SLEPC_EXTERN void fnrationalgetdenominator1_(FN *fn,PetscInt *nq,PetscScalar *qcoeff,PetscErrorCode *ierr)
68 {
69 ✗ fnrationalgetdenominator_(fn,nq,qcoeff,ierr);
70 ✗ }
71