zeus_python_old/bcdflt.c at master · Higginbottom/zeus_python_old · GitHub

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
#include "zeus2d.def"
#ifdef UNICOS
/**********************************************************************/
BCDFLT(in,x,ioff,n)
int *in;
float *x;
int *ioff,*n;
/*
  Convert a character string into a floating point number.
----------------------------------------------------------------------*/
{
  char buf[80],*p,*q;
  int i;
  double atof();

  strncpy(buf,(char *)in + *ioff,*n);
  *x = atof(buf);
}
#else
/**********************************************************************/
bcdflt_(in,x,ioff,n)
int *in;
float *x;
int *ioff,*n;
/*
  Convert a character string into a floating point number.
----------------------------------------------------------------------*/
{
  char buf[80],*p,*q;
  int i;
  double atof();

  strncpy(buf,(char *)in + *ioff,*n);
  *x = atof(buf);
}
#endif