URL https://opencores.org/ocsvn/1664/1664/trunk

Subversion Repositories 1664

[/] [1664/] [trunk/] [c/] [lista/] [fl2_frato__cadena.c] - Blame information for rev 2

Line No.	Rev	Author	Line
1	2	mrdmkg	`#include "tipodef.h"`
2
3			`fl2 fl2_frato__cadena(n1 *cadena, nN cuantia)`
4			`{`
5			`fl2 fl=0.0;`
6			`nN i;`
7
8			`if (cuantia>0)`
9			`{`
10
11			`for(i=0;i<cuantia;i++){fl=(fl*10.0)+(fl2)(cadena[i]&0x0f);}`
12			`for(i=0;i<cuantia;i++){fl*=0.1; }`
13			`}`
14
15			`return fl;`
16			`}`