Código fuente de la función Atof

La función especificada es la siguiente: l

Doble precisión myatof(char *s)

{ double fh=1, n=0, t = 10;

mientras ((* s lt; 0 ' | | * s gt9 ') amp; amp*s!='.' amp amp*s!= '-' amp; amp*s!= ' ')s; p>

if(*s=='-')

{ FH =-1

s

}

<; p> else if(* s = = ' ')s;

mientras(* s gt; = ' 0 ' amp amp* s lt='9')

{ n = n * 10 * s-' 0 '; }

if(*s== ' . ')

{ s ;

mientras( * s gt;= ' 0 ' amp amp* s lt='9')

{ n = n (* s-' 0 ')/t * = s ;}

}

Devolver FH * n;

}