LCOV - code coverage report
Current view: top level - eps/impls/davidson - dvdtestconv.c (source / functions) Hit Total Coverage
Test: coverage.info Lines: 10 10 100.0 %
Date: 2019-07-19 01:26:51 Functions: 2 2 100.0 %

          Line data    Source code
       1             : /*
       2             :    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
       3             :    SLEPc - Scalable Library for Eigenvalue Problem Computations
       4             :    Copyright (c) 2002-2019, 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             :    SLEPc eigensolver: "davidson"
      12             : 
      13             :    Step: test for convergence
      14             : */
      15             : 
      16             : #include "davidson.h"
      17             : 
      18       11090 : static PetscBool dvd_testconv_slepc_0(dvdDashboard *d,PetscScalar eigvr,PetscScalar eigvi,PetscReal r,PetscReal *err)
      19             : {
      20             :   PetscErrorCode ierr;
      21             : 
      22       11090 :   PetscFunctionBegin;
      23       11090 :   ierr = (*d->eps->converged)(d->eps,eigvr,eigvi,r,err,d->eps->convergedctx);CHKERRABORT(PetscObjectComm((PetscObject)d->eps),ierr);
      24       11090 :   PetscFunctionReturn(PetscNot(*err>=d->eps->tol));
      25             : }
      26             : 
      27         270 : PetscErrorCode dvd_testconv_slepc(dvdDashboard *d, dvdBlackboard *b)
      28             : {
      29             :   PetscErrorCode ierr;
      30             : 
      31         270 :   PetscFunctionBegin;
      32             :   /* Setup the step */
      33         270 :   if (b->state >= DVD_STATE_CONF) {
      34          90 :     ierr = PetscFree(d->testConv_data);CHKERRQ(ierr);
      35          90 :     d->testConv = dvd_testconv_slepc_0;
      36             :   }
      37         270 :   PetscFunctionReturn(0);
      38             : }
      39             : 

Generated by: LCOV version 1.13