src/snark/quad_semi.cpp

   1 /*
   2  ***********************************************************
   3  $SNARK_Header: S N A R K  1 4 - A PICTURE RECONSTRUCTION PROGRAM $
   4  $HeadURL: svn://dig.cs.gc.cuny.edu/snark/trunk/src/snark/quad_semi.cpp $
   5  $LastChangedRevision: 89 $
   6  $Date: 2014-07-02 17:24:53 -0400 (Wed, 02 Jul 2014) $
   7  $Author: agulati $
   8  ***********************************************************
   9
  10  THIS SUBROUTINE RETURNS DELTA FOR RICHARDSON METHOD
  11  OR
  12  DELTA AND GMA FOR THE SEMI ITERATIVE METHOD
  13  */
  14
  15 #include <cstdio>
  16 #include <cmath>
  17
  18 #include "blkdta.h"
  19 #include "consts.h"
  20 #include "uiod.h"
  21
  22 #include "quad.h"
  23
  24 void quad_class::semi(REAL* delta, REAL* gma, BOOLEAN* alg)
  25 {
  26
  27         INTEGER j;
  28         INTEGER k;
  29
  30         j = (iterx - 1) % period;  //corr!!! hstau
  31         k = order[j];
  32         *delta = del[k];
  33         return;
  34 }