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

          Line data    Source code
       1             :       MODULE m_crtail
       2             : c
       3             : c initial point for income regular solution of dirac eq.
       4             : c order kap1=-L-1, kap2=L
       5             : c
       6             :       CONTAINS
       7           0 :       SUBROUTINE crtail(
       8           0 :      >                  mrad,e,rc,nsol,nzero,csq,
       9           0 :      X                  gc,fc)
      10             : 
      11             :       IMPLICIT NONE
      12             : C     ..
      13             : C     .. Scalar Arguments ..
      14             :       INTEGER, INTENT (IN) :: mrad,nsol,nzero
      15             :       REAL   , INTENT (IN) :: e,csq 
      16             : C     ..
      17             : C     .. Array Arguments ..
      18             :       REAL   , INTENT (IN) :: rc(mrad)
      19             :       REAL   , INTENT (INOUT) :: fc(2,2,mrad),gc(2,2,mrad)
      20             : C     ..
      21             : C     .. Local Scalars ..
      22             :       REAL beta,rr
      23             :       INTEGER i,ir,j
      24             : C     ..
      25             : C     .. Intrinsic Functions ..
      26             :       INTRINSIC exp,sqrt
      27             : c
      28             : C----->infinity point solutions construction
      29             : c
      30           0 :       beta = sqrt(-e-e*e/csq)
      31           0 :       DO j = 1,nsol
      32           0 :          DO i = 1,nsol
      33           0 :             DO ir = nzero + 1,mrad
      34           0 :                rr = rc(ir) - rc(nzero)
      35           0 :                gc(i,j,ir) = gc(i,j,nzero)*exp(-beta*rr)
      36           0 :                fc(i,j,ir) = fc(i,j,nzero)*exp(-beta*rr)
      37             :             END DO
      38             :          END DO
      39             :       END DO
      40             : 
      41           0 :       END SUBROUTINE crtail
      42             :       END MODULE m_crtail

Generated by: LCOV version 1.13