2.3-1/macros/CFiles/sci2ccode/ConvertPrecision.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

/*
**  -*- C -*-
**
** ConvertPrecision.c
** Made by  Raffaele Nutricato <raffaele.nutricato@tiscali.it>
**
** Copyright Raffaele Nutricato 2008
*/


double s0doubled0(float in)
{
   double out;
   out = (double) in;
   return (out);
}

void s2doubled2(float* in, int* inSize, double* out)
{
   int i;
   for (i=0; i<inSize[0]*inSize[1]; i++)
   {
      out[i] = (double) in[i];
   }
}

float d0floats0(double in)
{
   float out;
   out = (float) in;
   return (out);
}

void d2floats2(double* in, int* inSize, float* out)
{
   int i;
   for (i=0; i<inSize[0]*inSize[1]; i++)
   {
      out[i] = (float) in[i];
   }
}