Logo Search packages:      
Sourcecode: fastlink version File versions  Download package

looldnuclear.c

/* This file contains some old nuclear family update
   routines for the LODSCORE program */


#include "commondefs.h"
#include "lodefs.h"

Local Void getapprox(LINK)
struct LOC_seg *LINK;
{
  long first;
  double maxval;
  thisarray *WITH;

  maxval = (*LINK->p)->gen->genarray[0];
  WITH = (*LINK->p)->gen;
  for (first = 0; first < fgeno; first++) {
    if (WITH->genarray[first] > maxval)
      maxval = WITH->genarray[first];
  }
  WITH = (*LINK->p)->gen;
  for (first = 0; first < fgeno; first++) {
    approxarray[LINK->LINK->thisped - 1][first] =
      WITH->genarray[first] > (maxval *epsilon);
  }
  if (lasttime)
    return;
  WITH = (*LINK->p)->gen;
  for (first = 0; first < fgeno; first++) {
    if (!(approxarray[LINK->LINK->thisped - 1][first]))
      WITH->genarray[first] = 0.0;
  }
}  /*getapprox*/


#include "comnuclear.c"

Generated by  Doxygen 1.6.0   Back to index