#include "elastro.h"


double makeAbsoluteDouble( double val ) {
	double d;
	char *p;

	sprintf(&il_tmptext[0],"%f",val);

	p = strchr(il_tmptext,'.');
	if(p != NULL){
		p[0] = 0;
	}
	p = strchr(il_tmptext,',');
	if(p != NULL){
		p[0] = 0;
	}

	d = strtod((const char *)&il_tmptext[0],NULL);

	return(d);
}


double makeAbsoluteModf( double val ) {
	double d;
	modf(val, &d);
	return(d);
}


double makeRestModf( double val ) {
	double d;
	return( modf(val, &d) );
}