This is an example about the high precision in Fortran, at first we see a normal Program:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
program hello implicit none real :: div real :: i Print *,"write your number:" read *, i i= div(i) print *,"your result:",i end program Hello real function div( a ) implicit none real :: a div = a/3 end function div |

our Result looks like this:

1 2 3 |
write your number: 4 your result: 1.33333337 |

Now we use selected_real_kind(32) to get an higher precision data type:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
program hello implicit none real(kind=selected_real_kind(32)):: div real(kind=selected_real_kind(32)) :: i Print *,"write your number:" read *, i i= div(i) print *,"your result:",i end program Hello real(kind=selected_real_kind(32)) function div( a ) implicit none real(kind=selected_real_kind(32)) :: a div = a/3 end function div |

Now we get this result:

1 2 3 |
write your number: 4 your result: 1.33333333333333333333333333333333327 |

looks much better than the first.

Fantastic beat ! I would like to apprentice even as you amend

your site, how can i subscribe for a blog website?

The account aided me a acceptable deal. I have

been a little bit familiar of this your broadcast offered shiny transparent idea

Hello There. I discovered your blog using msn. This is a very well

written article. I’ll make sure to bookmark it and return to learn more of your helpful info.

Thank you for the post. I will certainly return.

Good post. I learn something totally new and challenging on blogs I stumbleupon everyday.

It will always be interesting to read through content from other writers and practice something

from other web sites.

I needed to thank you for this very good read!!

I definitely loved every bit of it. I have got you book-marked to

check out new things you postâ€¦