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

          Line data    Source code
       1             : c.........................................................inconi
       2           0 :       SUBROUTINE inconi(l,xmj,e,csq,rr,xx1,xx2)
       3             : c initial point for income regular solution of dirac eq.
       4             : c order kap1=-L-1, kap2=L
       5             : c
       6             : C----->infinity point solutions construction
       7             : C     .. Scalar Arguments ..
       8             : 
       9             :       IMPLICIT NONE
      10             :       REAL csq,e,rr,xmj
      11             :       INTEGER l
      12             : C     ..
      13             : C     .. Array Arguments ..
      14             :       REAL xx1(4),xx2(4)
      15             : C     ..
      16             : C     .. Local Scalars ..
      17             :       REAL beta,bova
      18             : C     ..
      19             : C     .. Intrinsic Functions ..
      20             :       INTRINSIC abs,exp,sqrt
      21             : C     ..
      22           0 :       beta = sqrt(-e-e*e/csq)
      23           0 :       bova = -beta/ (1.+e/csq)
      24           0 :       IF (abs(xmj).LT.l) THEN
      25           0 :          xx1(1) = exp(-beta*rr)
      26           0 :          xx1(2) = bova*xx1(1)
      27           0 :          xx1(3) = 0.
      28           0 :          xx1(4) = 0.
      29             : c
      30           0 :          xx2(1) = 0.
      31           0 :          xx2(2) = 0.
      32           0 :          xx2(3) = exp(-beta*rr)
      33           0 :          xx2(4) = bova*xx2(3)
      34             :       ELSE
      35             : c      XX1(1) =1.D-05
      36           0 :          xx1(1) = exp(-beta*rr)
      37           0 :          xx1(2) = bova*xx1(1)
      38             : c not needed
      39           0 :          xx1(3) = 0.0
      40           0 :          xx1(4) = 0.0
      41           0 :          xx2(1) = 0.0
      42           0 :          xx2(2) = 0.0
      43           0 :          xx2(3) = 0.0
      44           0 :          xx2(4) = 0.0
      45             :       END IF
      46           0 :       RETURN
      47             :       END

Generated by: LCOV version 1.13