GCC Code Coverage Report
Directory: ./ Exec Total Coverage
File: misc/minmax.F Lines: 7 7 100.0 %
Date: 2023-06-30 12:56:34 Branches: 2 2 100.0 %

Line Branch Exec Source 
1
 

    
!

    


    

    
2

    
    

    
! $Header$

    


    

    
3

    
    

    
!

    


    

    
4

    
    
10949

    
       SUBROUTINE minmax(imax, xi, zmin, zmax )

    


    

    
5

    
    

    
c

    


    

    
6

    
    

    
c      P. Le Van

    


    

    
7

    
    

    

    


    

    
8

    
    

    
       INTEGER imax

    


    

    
9

    
    

    
       REAL    xi(imax)

    


    

    
10

    
    

    
       REAL    zmin,zmax

    


    

    
11

    
    

    
       INTEGER i

    


    

    
12

    
    

    

    


    

    
13

    
    
10949

    
       zmin = xi(1)

    


    

    
14

    
    
10949

    
       zmax = xi(1)

    


    

    
15

    
    

    

    


    

    
16

    ✓✓
    
11201091

    
       DO i = 2, imax

    


    

    
17

    
    
11190142

    
         zmin = MIN( zmin,xi(i) )

    


    

    
18

    
    
11201091

    
         zmax = MAX( zmax,xi(i) )

    


    

    
19

    
    

    
       ENDDO

    


    

    
20

    
    

    

    


    

    
21

    
    
10949

    
       RETURN

    


    

    
22

    
    

    
       END

    


    

    
23

    
    

    

    


  

  


  

    

    
Generated by: GCOVR (Version 4.2)