LCOV - code coverage report
Current view: top level - core - coreerr.f (source / functions) Hit Total Coverage
Test: combined.info Lines: 0 10 0.0 %
Date: 2019-09-08 04:53:50 Functions: 0 1 0.0 %

          Line data    Source code
       1             : c................................................................coreerr
       2           0 :       SUBROUTINE coreerr(err,var,s,nsol,pow,qow,piw,qiw)
       3             : C   ********************************************************************
       4             : C   *                                                                  *
       5             : C   *   CALCULATE THE MISMATCH OF THE RADIAL WAVE FUNCTIONS AT THE     *
       6             : C   *   POINT  NMATCH  FOR OUT- AND INWARD INTEGRATION                 *
       7             : C   *                                                                  *
       8             : C   ********************************************************************
       9             : C
      10             : c
      11             : C     .. Scalar Arguments ..
      12             : 
      13             :       IMPLICIT NONE
      14             :       INTEGER nsol,s
      15             : C     ..
      16             : C     .. Array Arguments ..
      17             :       REAL err(4),piw(2,2),pow(2,2),qiw(2,2),qow(2,2),var(4)
      18             : C     ..
      19             : C     .. Local Scalars ..
      20             :       INTEGER t
      21             : C     ..
      22           0 :       err(1) = pow(s,s) - piw(s,s)*var(2)
      23           0 :       err(2) = qow(s,s) - qiw(s,s)*var(2)
      24             : c
      25           0 :       IF (nsol.EQ.1) RETURN
      26             : c
      27           0 :       t = 3 - s
      28             : c
      29           0 :       err(1) = err(1) + pow(s,t)*var(3) - piw(s,t)*var(2)*var(4)
      30           0 :       err(2) = err(2) + qow(s,t)*var(3) - qiw(s,t)*var(2)*var(4)
      31             :       err(3) = pow(t,s) - piw(t,s)*var(2) + pow(t,t)*var(3) -
      32           0 :      +         piw(t,t)*var(2)*var(4)
      33             :       err(4) = qow(t,s) - qiw(t,s)*var(2) + qow(t,t)*var(3) -
      34           0 :      +         qiw(t,t)*var(2)*var(4)
      35             : c
      36           0 :       RETURN
      37             :       END

Generated by: LCOV version 1.13