Révision 9 src/blas/HPL_idamax.c

HPL_idamax.c (revision 9)
159 159 
   if( N > 0 ) imax = F77idamax( &F77N, X, &F77incx ) - 1;
160 160 
   return( imax );
161 161 
#endif
162 

  		





  
  163
  
    
#ifdef HPL_CALL_CUBLAS


  		





  
  164
  
    
#define CUBLASN                 N


  		





  
  165
  
    
#define CUBLASincx              INCX


  		





  
  166
  
    
   int                       imax = 0;


  		





  
  167
  
    

  		





  
  168
  
    
   if( N > 0 ) imax = CUBLAS_IDAMAX( &CUBLASN, X, &CUBLASincx ) - 1;


  		





  
  169
  
    
   return( imax );


  		





  
  170
  
    
#endif


  		





  162
  171
  
    
/*


  		





  163
  172
  
    
 * End of HPL_idamax


  		





  164
  173
  
    
 */


  		












Formats disponibles :
  Unified diff