GCC Code Coverage Report
Directory: ./ Exec Total Coverage
File: misc/ismin.F Lines: 0 6 0.0 %
Date: 2023-06-30 12:56:34 Branches: 0 4 0.0 %

Line Branch Exec Source 
1
 

    
!

    


    

    
2

    
    

    
! $Header$

    


    

    
3

    
    

    
!

    


    

    
4

    
    

    
      FUNCTION ismin(n,sx,incx)

    


    

    
5

    
    

    
c

    


    

    
6

    
    

    
      IMPLICIT NONE

    


    

    
7

    
    

    
c

    


    

    
8

    
    

    
      integer n,i,incx,ismin,ix

    


    

    
9

    
    

    
      real sx((n-1)*incx+1),sxmin

    


    

    
10

    
    

    
c

    


    

    
11

    
    

    
      ix=1

    


    

    
12

    
    

    
      ismin=1

    


    

    
13

    
    

    
      sxmin=sx(1)

    


    

    
14

    
    

    
      DO i=1,n-1

    


    

    
15

    
    

    
         ix=ix+incx

    


    

    
16

    
    

    
         if(sx(ix).lt.sxmin) then

    


    

    
17

    
    

    
             sxmin=sx(ix)

    


    

    
18

    
    

    
             ismin=i+1

    


    

    
19

    
    

    
         endif

    


    

    
20

    
    

    
      ENDDO

    


    

    
21

    
    

    
c

    


    

    
22

    
    

    
      return

    


    

    
23

    
    

    
      end

    


    

    
24

    
    

    
C

    


  

  


  

    

    
Generated by: GCOVR (Version 4.2)