＜MOD Example Program＞

Program mod_example
  Integer :: a(10) = [ (i-5,i=1,10) ]
  Print 1, a
  Print 1, a / 3
  Print 1, Mod(a,3)
1 Format(10I6)
End Program

---

■ Execution Results

    -4    -3    -2    -1     0     1     2     3     4     5
    -1    -1     0     0     0     0     0     1     1     1
    -1     0    -2    -1     0     1     2     0     1     2