src/snark/emap_sscal.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/emap_sscal.cpp $
   5  $LastChangedRevision: 85 $
   6  $Date: 2014-07-02 16:07:08 -0400 (Wed, 02 Jul 2014) $
   7  $Author: agulati $
   8  ***********************************************************
   9  */
  10
  11 #include <cstdio>
  12
  13 #include "blkdta.h"
  14
  15 #include "emap.h"
  16
  17 void emap_class::sscal(INTEGER size, REAL factor, REAL* dest, INTEGER spac)
  18 {
  19         INTEGER j;
  20
  21         for (j = 0; j < size; j += spac)
  22         {
  23                 dest[j] *= factor;
  24         }
  25         return;
  26 }