| 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 <slepceps.h> | ||
| 13 | |||
| 14 | #if defined(PETSC_HAVE_FORTRAN_CAPS) | ||
| 15 | #define epskrylovschurgetsubintervals_ EPSKRYLOVSCHURGETSUBINTERVALS | ||
| 16 | #define epskrylovschurgetinertias_ EPSKRYLOVSCHURGETINERTIAS | ||
| 17 | #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) | ||
| 18 | #define epskrylovschurgetsubintervals_ epskrylovschurgetsubintervals | ||
| 19 | #define epskrylovschurgetinertias_ epskrylovschurgetinertias | ||
| 20 | #endif | ||
| 21 | |||
| 22 | 12 | SLEPC_EXTERN void epskrylovschurgetsubintervals_(EPS *eps,PetscReal *subint,PetscErrorCode *ierr) | |
| 23 | { | ||
| 24 | 12 | PetscReal *osubint; | |
| 25 | 12 | PetscInt npart; | |
| 26 | |||
| 27 |
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.
|
12 | CHKFORTRANNULLREAL(subint); |
| 28 |
1/2✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
|
12 | *ierr = EPSKrylovSchurGetSubintervals(*eps,&osubint); if (*ierr) return; |
| 29 |
1/2✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
|
12 | *ierr = EPSKrylovSchurGetPartitions(*eps,&npart); if (*ierr) return; |
| 30 |
1/2✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
|
12 | *ierr = PetscArraycpy(subint,osubint,npart+1); if (*ierr) return; |
| 31 |
1/2✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
|
24 | *ierr = PetscFree(osubint); |
| 32 | } | ||
| 33 | |||
| 34 | 24 | SLEPC_EXTERN void epskrylovschurgetinertias_(EPS *eps,PetscInt *nshift,PetscReal *shifts,PetscInt *inertias,PetscErrorCode *ierr) | |
| 35 | { | ||
| 36 | 24 | PetscReal *oshifts; | |
| 37 | 24 | PetscInt *oinertias; | |
| 38 | 24 | PetscInt n; | |
| 39 | |||
| 40 |
12/22✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 6 times.
✓ Branch 3 taken 6 times.
✓ 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.
|
24 | CHKFORTRANNULLREAL(shifts); |
| 41 |
14/26✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 6 times.
✓ Branch 3 taken 6 times.
✓ 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.
|
24 | CHKFORTRANNULLINTEGER(inertias); |
| 42 |
1/2✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
|
24 | *ierr = EPSKrylovSchurGetInertias(*eps,&n,&oshifts,&oinertias); if (*ierr) return; |
| 43 |
3/4✓ Branch 0 taken 6 times.
✓ Branch 1 taken 6 times.
✓ Branch 2 taken 6 times.
✗ Branch 3 not taken.
|
24 | if (shifts) { *ierr = PetscArraycpy(shifts,oshifts,n); if (*ierr) return; } |
| 44 |
3/4✓ Branch 0 taken 6 times.
✓ Branch 1 taken 6 times.
✓ Branch 2 taken 6 times.
✗ Branch 3 not taken.
|
24 | if (inertias) { *ierr = PetscArraycpy(inertias,oinertias,n); if (*ierr) return; } |
| 45 | 24 | *nshift = n; | |
| 46 |
2/4✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 6 times.
✗ Branch 3 not taken.
|
24 | *ierr = PetscFree(oshifts);if (*ierr) return; |
| 47 |
1/2✓ Branch 0 taken 6 times.
✗ Branch 1 not taken.
|
48 | *ierr = PetscFree(oinertias); |
| 48 | } | ||
| 49 |