Fortran Wiki
mod (changes)

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

Description

mod(a,p) computes the remainder of the division of a by p(削除) . It is calculated as (削除ここまで)(削除) a - (int(a/p) * p) (削除ここまで).

Standard

FORTRAN 77 and later

Class

Elemental function

Syntax

result = mod(a, p)

Arguments

• a - Shall be a scalar of type integer or real(追記) . (追記ここまで)
• p - Shall be a scalar of the same type(追記) and (追記ここまで)(追記) kind (追記ここまで) asa and not equal to(削除) zero (削除ここまで)(追記) zero. (追記ここまで)

Return value

The(削除) kind (削除ここまで)(削除) of (削除ここまで)(削除) the (削除ここまで) return value is the result of(削除) cross-promoting (削除ここまで)(削除) the (削除ここまで)(削除) kinds (削除ここまで)(削除) of (削除ここまで)(削除) the (削除ここまで)(削除) arguments. (削除ここまで)(追記) a - (int(a/p) * p) (追記ここまで)(追記) . The type and kind of the return value is the same as that of the arguments. The returned value has the same sign as (追記ここまで)(追記) a (追記ここまで)(追記) and a magnitude less than the magnitude of (追記ここまで)(追記) p (追記ここまで)(追記) . (追記ここまで)

Example

program test_mod
 print *, mod(17,3)(削除) 
 (削除ここまで)(追記) ! yields 2 (追記ここまで)(追記) 
 (追記ここまで)print *, mod(17.5,5.5)(削除) 
 (削除ここまで)(追記) ! yields 1.0 (追記ここまで)(追記) 
 (追記ここまで)print *, mod(17.5d0,5.5)(削除) 
 (削除ここまで)(追記) ! yields 1.0d0 (追記ここまで)(追記) 
 (追記ここまで)print *, mod(17.5,5.5d0)(削除) 
 (削除ここまで)(削除) 
 (削除ここまで)(追記) ! yields 1.0d0 (追記ここまで)(追記) 
 (追記ここまで)print *, mod(-17,3)(削除) 
 (削除ここまで)(追記) ! yields -2 (追記ここまで)(追記) 
 (追記ここまで)print *, mod(-17.5,5.5)(削除) 
 (削除ここまで)(追記) ! yields -1.0 (追記ここまで)(追記) 
 (追記ここまで)print *, mod(-17.5d0,5.5)(削除) 
 (削除ここまで)(追記) ! yields -1.0d0 (追記ここまで)(追記) 
 (追記ここまで)print *, mod(-17.5,5.5d0)(削除) 
 (削除ここまで)(削除) 
 (削除ここまで)(追記) ! yields -1.0d0 (追記ここまで)(追記) 
 (追記ここまで)print *, mod(17,-3)(削除) 
 (削除ここまで)(追記) ! yields 2 (追記ここまで)(追記) 
 (追記ここまで)print *, mod(17.5,-5.5)(削除) 
 (削除ここまで)(追記) ! yields 1.0 (追記ここまで)(追記) 
 (追記ここまで)print *, mod(17.5d0,-5.5)(削除) 
 (削除ここまで)(追記) ! yields 1.0d0 (追記ここまで)(追記) 
 (追記ここまで)print *, mod(17.5,-5.5d0)(追記)  (追記ここまで)(追記) ! yields 1.0d0 (追記ここまで)
end program test_mod