Commite9a1a0d

Michael Meskes

committed

Made ecpglib write double with a precision of 15 digits.

Patch by Akira Kurosawa <kurosawa-akira@mxc.nes.nec.co.jp>.

1 parente2bf629 commite9a1a0dCopy full SHA for e9a1a0d

File tree

-4

lines changed

-4

lines changed

Lines changed: 4 additions & 4 deletions

Original file line number	Diff line number	Diff line change
`@@ -672,12 +672,12 @@ ECPGstore_input(const int lineno, const bool force_indicator, const struct varia`
`672`	`672`	`strcpy(mallocedval,"array [");`
`673`	`673`
`674`	`674`	`for (element=0;element<asize;element++)`
`675`		`-sprintf(mallocedval+strlen(mallocedval),"%.14g,", ((float*)var->value)[element]);`
	`675`	`+sprintf(mallocedval+strlen(mallocedval),"%.15g,", ((float*)var->value)[element]);`
`676`	`676`
`677`	`677`	`strcpy(mallocedval+strlen(mallocedval)-1,"]");`
`678`	`678`	`}`
`679`	`679`	`else`
`680`		`-sprintf(mallocedval,"%.14g",((float)var->value));`
	`680`	`+sprintf(mallocedval,"%.15g",((float)var->value));`
`681`	`681`
`682`	`682`	`*tobeinserted_p=mallocedval;`
`683`	`683`	`*malloced_p= true;`
`@@ -692,12 +692,12 @@ ECPGstore_input(const int lineno, const bool force_indicator, const struct varia`
`692`	`692`	`strcpy(mallocedval,"array [");`
`693`	`693`
`694`	`694`	`for (element=0;element<asize;element++)`
`695`		`-sprintf(mallocedval+strlen(mallocedval),"%.14g,", ((double*)var->value)[element]);`
	`695`	`+sprintf(mallocedval+strlen(mallocedval),"%.15g,", ((double*)var->value)[element]);`
`696`	`696`
`697`	`697`	`strcpy(mallocedval+strlen(mallocedval)-1,"]");`
`698`	`698`	`}`
`699`	`699`	`else`
`700`		`-sprintf(mallocedval,"%.14g",((double)var->value));`
	`700`	`+sprintf(mallocedval,"%.15g",((double)var->value));`
`701`	`701`
`702`	`702`	`*tobeinserted_p=mallocedval;`
`703`	`703`	`*malloced_p= true;`

Comments

(0)