LCOV - code coverage report
Current view: top level - optional - stpot1.f (source / functions) Hit Total Coverage
Test: combined.info Lines: 11 13 84.6 %
Date: 2019-09-08 04:53:50 Functions: 1 1 100.0 %

          Line data    Source code
       1             :       MODULE m_stpot1
       2             :       CONTAINS
       3          40 :       SUBROUTINE stpot1(
       4          40 :      >                  msh,n,z,rad,
       5          40 :      <                  vr1)
       6             : c     **********************************************************
       7             : c     create a starting potential
       8             : c     **********************************************************
       9             : 
      10             :       IMPLICIT NONE
      11             : C     ..
      12             :       INTEGER,INTENT (IN) :: n,msh
      13             :       REAL,INTENT (IN)    :: z,rad(msh)
      14             :       REAL,INTENT (OUT)   :: vr1(msh)
      15             : C     ..
      16             : C     .. Local Scalars ..
      17             :       INTEGER i,i1
      18             :       REAL    d1,h1
      19             : C     ..
      20          40 :       IF (z.LT.1.0) THEN
      21           0 :         DO i = 1,n
      22           0 :            vr1(i) = 1.e-3
      23             :         ENDDO
      24             :         RETURN
      25             :       ENDIF
      26             : C
      27          40 :       d1 = 0.9e0
      28          40 :       h1 = d1* (z-1)**0.4e0
      29          40 :       i1 = 0.75e0*n
      30       32358 :       DO i = 1,n
      31       32358 :          vr1(i) = -1.0
      32             :       ENDDO
      33       48504 :       DO i = 1,i1
      34          40 :          vr1(i) = vr1(i)* ((z-1)/ (h1* (exp(rad(i)/d1)-1)+1)+1)
      35             :       ENDDO
      36             :       RETURN
      37             :       END SUBROUTINE
      38             :       END

Generated by: LCOV version 1.13