LCOV - code coverage report
Current view: top level - core - felim.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             :       MODULE m_felim
       2             : c.........................................................felim
       3             : c energy limits setup and checking
       4             : c
       5             :       CONTAINS
       6           0 :       SUBROUTINE felim(
       7           0 :      >                 mrad,lll,zz,nqn,vv,rc,
       8             :      <                 elim)
       9             : C     -----------------
      10             : C--->  FIND  E-LIMIT
      11             : C     -----------------
      12             : 
      13             :       IMPLICIT NONE
      14             : C     ..
      15             : C     .. Scalar Arguments ..
      16             :       INTEGER, INTENT (IN) :: mrad,lll,nqn
      17             :       REAL   , INTENT (IN) :: zz
      18             :       REAL   , INTENT (OUT):: elim
      19             : C     ..
      20             : C     .. Array Arguments ..
      21             :       REAL   , INTENT (IN) :: rc(mrad),vv(mrad)
      22             : C     ..
      23             : C     .. Local Scalars ..
      24             :       REAL val
      25             :       INTEGER n
      26             : C     ..
      27           0 :       IF (lll.EQ.0) THEN
      28           0 :          elim = -2.0*zz*zz/ (1.50*nqn*nqn)
      29             :       ELSE
      30           0 :          elim = vv(1) + lll/rc(1)**2
      31           0 :          DO 10 n = 2,mrad
      32           0 :             val = vv(n) + lll/rc(n)**2
      33           0 :             IF (val.LE.elim) elim = val
      34           0 :    10    CONTINUE
      35             :       END IF
      36           0 :       END SUBROUTINE felim
      37             :       END MODULE m_felim

Generated by: LCOV version 1.13