/[ascend]/trunk/solvers/lsode/linpack/d1mach.c
ViewVC logotype

Diff of /trunk/solvers/lsode/linpack/d1mach.c

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

trunk/linpack/d1mach.c revision 1508 by aw0a, Fri Oct 29 20:54:12 2004 UTC trunk/solvers/lsode/linpack/d1mach.c revision 1509 by jpye, Wed Jun 27 13:08:47 2007 UTC
# Line 76  C  NONE Line 76  C  NONE
76   * this point,``Frankly, my dears, we don't give a damn.''   * this point,``Frankly, my dears, we don't give a damn.''
77   */   */
78    
79  double d1mach(int *i) {  double d1mach_(int *i) {
80    switch (*i) {    switch (*i) {
81    case 1:    case 1:
82      return DBL_MIN;      return DBL_MIN;
# Line 94  double d1mach(int *i) { Line 94  double d1mach(int *i) {
94    }    }
95  }  }
96    
97  double d1mach_(int *i) {  double d1mach(int *i) {
98    return d1mach(i);    return d1mach_(i);
99  }  }
100    
101  double D1MACH(int *i) {  double D1MACH(int *i) {
102    return d1mach(i);    return d1mach_(i);
103  }  }
104    
105    

Legend:
Removed from v.1508  
changed lines
  Added in v.1509

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22