// ***********************************************************************
// * FILE HEADER:                                                        *
// ***********************************************************************
// * Filename:  sort.inc                                                 *
// * Owner:     Martin Francis                                           *
// * Created:   01/01/2003 (MF)                                          *
// * Revised:                                                            *
// ***********************************************************************
// Functions for sorting


// ************************************
// * sortBy_call()                    *
// ************************************
function sortBy_call(a,b) {
  if (a[0] < b[0]) return -1 ; if (a[0] > b[0]) return 1  ; return 0;
}



// ************************************
// * sortBy_dx()                      *
// ************************************
function sortBy_dx(a,b) {
  var anew=eval(a[12][1]); bnew = eval(b[12][1]);
  if (anew < bnew) return -1 ; if (anew > bnew) return 1  ; return 0;
}


// ************************************
// * sortBy_fcc()                     *
// ************************************
function sortBy_fcc(a,b) {
  var anew=eval(a[7]); bnew = eval(b[7]);
  if (anew < bnew) return -1 ; if (anew > bnew) return 1  ; return 0;
}



// ************************************
// * sortBy_fre()                     *
// ************************************
function sortBy_fre(a,b) {
  if (a[1] < b[1]) return -1 ; if (a[1] > b[1]) return 1  ; return 0;
}