In article <1671c76b-275e-492c-b283-9690dbcec242@k30g2000hse.googlegroups.com>, Doug <jagmad@riseup.net> writes: All pub car parks should be closed down and road parking not allowed. Pubs should be returned to local use where customers are within walking distance or can get there by PT....

... less decimal places. : What i do is an internal write with a format Fx.x like : "write(char,form) number" : Normally it works fine but my Fortran rounds the last 5 down. : Example: 1.555 is rounded by format F4.2 to 1....? The roundoff error is the same, whether rounded up or down. I know that there is an oldfashioned convention to do it ...

...decimal places. : What i do is an internal write with a format Fx.x like : "write(char,form) number" : Normally it works fine but my Fortran rounds the last 5 down. : Example: 1.555 is rounded by format F4.2 to 1.... The roundoff error is the same, whether rounded up or down. I know that there is an oldfashioned convention to do it ...

... decimal places. : What i do is an internal write with a format Fx.x like : "write(char,form) number" : Normally it works fine but my Fortran rounds the last 5 down. : Example: 1.555 is rounded by format F4.2 to 1.55...> The roundoff error is the same, whether rounded up or down. I know that there is an oldfashioned convention to do it ...

... less decimal places. : What i do is an internal write with a format Fx.x like : "write(char,form) number" : Normally it works fine but my Fortran rounds the last 5 down. : Example: 1.555 is rounded by format F4.2 to 1.55 ...? The roundoff error is the same, whether rounded up or down. I know that there is an oldfashioned convention to do it the...

...it works fine but my Fortran rounds the last 5 down. : Example: 1.555 is rounded by format F4.2 to... roundoff error is the same, whether rounded up or down. Perhaps in some other cases, but in this particular ... identifies this as having anything to do with internal writes in particular. Is he claiming that internal writes are different from external ones? If so, that would indeed be strange....

... with less decimal places. : What i do is an internal write with a format Fx.x like : "write(char,form) number" : Normally it works fine but my Fortran rounds the last 5 down. : Example: 1.555 is rounded by format F4.2 to 1.55 ... problem? The roundoff error is the same, whether rounded up or down. I know that there is an oldfashioned convention to do it the...

... with less decimal places. -|> -|What i do is an internal write with a format Fx.x like -|> -|"write(char,form) number" -|> -| -|> -|Normally it works fine but my Fortran rounds the last 5 down. -|> -|Example: 1.555 is rounded by format F4.2 to 1.55...-| Michel: Excellent idea. implicit none Real :: x x=1.555 write(*,"(1x,f4.2,2x,f4.2)") x, 1.E-3*NINT...

... number with less decimal places. -|What i do is an internal write with a format Fx.x like -|"write(char,form) number" -| -|Normally it works fine but my Fortran rounds the last 5 down. -|Example: 1.555 is rounded by format F4.2 to 1.55 not...not use the NINT intrinsic ? Real :: x x=1.555 write(*,"(1x,f4.2,2x,f4.2)") x, 1.E-3*Round(x...

...a real number with less decimal places. -|What i do is an internal write with a format Fx.x like -|"write(char,form) number" -| -|Normally it works fine but my Fortran rounds the last 5 down. -|Example: 1.555 is rounded by format F4.2 to 1.55 not to...r=floor(x+0.5) end function round Real :: x x=1.555 write(*,"(1x,f4.2,2x,f4.2)") x, 1.E-3*Round(x*1...