/[escript]/trunk/finley/src/Util.c
ViewVC logotype

Diff of /trunk/finley/src/Util.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 123 by jgs, Fri Jul 8 04:08:13 2005 UTC revision 147 by jgs, Fri Aug 12 01:45:47 2005 UTC
# Line 21  Line 21 
21    
22  /**************************************************************/  /**************************************************************/
23    
24    /*   returns true if any of the values in the short array values is not equalt to Zero */
25    
26    bool_t Finley_Util_anyNonZeroDouble(dim_t N, double* values) {
27       dim_t q;
28       for (q=0;q<N;++q) if (ABS(values[q])>0) return TRUE;
29       return FALSE;
30    }
31    /**************************************************************/
32    
33  /*   gathers double values out from in by index: */  /*   gathers double values out from in by index: */
34    
35  /*        out(1:numData,1:len)=in(1:numData,index(1:len)) */  /*        out(1:numData,1:len)=in(1:numData,index(1:len)) */
# Line 465  void Finley_copyDouble(dim_t n,double* s Line 474  void Finley_copyDouble(dim_t n,double* s
474    
475  /*  /*
476   * $Log$   * $Log$
477     * Revision 1.8  2005/08/12 01:45:43  jgs
478     * erge of development branch dev-02 back to main trunk on 2005-08-12
479     *
480     * Revision 1.7.2.1  2005/08/04 22:41:11  gross
481     * some extra routines for finley that might speed-up RHS assembling in some cases (not actived right now)
482     *
483   * Revision 1.7  2005/07/08 04:07:59  jgs   * Revision 1.7  2005/07/08 04:07:59  jgs
484   * Merge of development branch back to main trunk on 2005-07-08   * Merge of development branch back to main trunk on 2005-07-08
485   *   *

Legend:
Removed from v.123  
changed lines
  Added in v.147

  ViewVC Help
Powered by ViewVC 1.1.26