MODULO intrinsic function
Standard: F77 F90 F95 F2003 F2008 Example program
＜Syntax＞
MODULO ( A, P )
A : Integer or Real;
P : Same type and kind as A, conformable with A, not equal to zero;
the NAG Fortran Compiler also permits P to have a different kind (this is non-standard);
Result : Same type as A, with kind the same as the kind of A+P.
＜Semantics＞
The result is the remainder for A divided by P, with the same sign as P; for Real type it is mathematically equal to A − FLOOR(A÷P)×P, and for Integer type it is the unique integer R such that A = Q×P + R, where Q is an integer, |R|<P, and R has the same sign as P.
Like many intrinsic functions, this is elemental; if either (or both) of A and P is an array, the result will be an array with that shape, with the value being computed elementwise.