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

          Line data    Source code
       1             :       MODULE m_fitchk
       2             :       CONTAINS
       3          26 :       SUBROUTINE fitchk(f1,f2,av,rms,dmx)
       4             : !     ************************************************
       5             : !     compare functions f1 and f2
       6             : !     ************************************************
       7             :       IMPLICIT NONE
       8             :       REAL,INTENT(OUT):: av,dmx,rms
       9             :       REAL,INTENT(IN):: f1(:),f2(:)
      10             : !     .. Local Scalars ..
      11             :       REAL d
      12             :       INTEGER i
      13             : 
      14          26 :       av = 0.
      15          26 :       rms = 0.
      16          26 :       dmx = 0.
      17        9126 :       DO  i = 1,SIZE(f1)
      18        9100 :          av = av + f1(i)
      19        9100 :          d = (f1(i)-f2(i))**2
      20        9100 :          dmx = MAX(d,dmx)
      21        9126 :          rms = rms + d
      22             :       ENDDO
      23          26 :       av = av/size(f1)
      24          26 :       IF (abs(av).LT.1.e-30) THEN
      25           0 :          rms = 0.
      26           0 :          dmx = 0.
      27           0 :          RETURN
      28             :       END IF
      29          26 :       rms = sqrt(rms/size(f1))/av*100.
      30          26 :       dmx = sqrt(dmx)/av*100.
      31             :       END SUBROUTINE 
      32             :       END

Generated by: LCOV version 1.13