Remove or relocate some functions from matdes.
[scilab.git] / scilab / modules / graphics / src / c / BasicAlgos.c
1 /*------------------------------------------------------------------------*/
2 /* file: BasicAlgos.c                                                     */
3 /* Copyright INRIA 2006                                                   */
4 /* Authors : Fabrice Leray, Jean-Baptiste Silvy                           */
5 /* desc : Several basic algorithm which can be used in several places in  */
6 /*        the code.                                                       */
7 /*------------------------------------------------------------------------*/
8
9 #include "BasicAlgos.h"
10
11 /*------------------------------------------------------------------------*/
12 double sciFindStPosMin( double x[], int n )
13 {
14   double min ;
15   int i ;
16
17   if ( n <= 0 )
18   {
19     return -1.0 ;
20   }
21
22   min = x[0] ;
23
24   for ( i = 1 ; i < n ; i++ )
25   {
26     if ( x[i] > 0.0 && x[i] < min )
27     {
28       min = x[i] ;
29     }
30   }
31
32   /* if we have found at least one positive value in x, min strictly positive */
33   return min ;
34 }
35 /*------------------------------------------------------------------------*/
36 int C2F(entier2d)( integer * n, double * dx,integer * s )
37 {
38   integer ix;
39   for (ix = *n -1 ; ix >= 0; --ix) { dx[ix] = (double) s[ix]; }
40   return 0;
41 }  
42 /*------------------------------------------------------------------------*/