Fortran Wiki
fraction (Rev #1, changes)

Skip the Navigation Links | Home Page | All Pages | Recently Revised | Authors | Feeds | Export |

Showing changes from revision #0 to #1: (追記) Added (追記ここまで) | (削除) Removed (削除ここまで) | (削除) Chan (削除ここまで)(追記) ged (追記ここまで)

Description

fraction(x) returns the fractional part of the model representation of x.

Standard

Fortran 95 and later

Class

Elemental function

Syntax

y = fraction(x)

Arguments

• x - The type of the argument shall be a real.

Return value

The return value is of the same type and kind as the argument. The fractional part of the model representation of x is returned; it is x * radix(x)**(-exponent(x)).

Example

program test_fraction
 real :: x
 x = 178.1387e-4
 print *, fraction(x), x * radix(x)**(-exponent(x))
end program test_fraction

Revision from April 24, 2009 16:07:36 by Jason Blevins

Forward in time (to current) | See current | History | Rollback | View: Source | Linked from: Intrinsic procedures