＜ANINT Example Program＞

Program anint_example
  Call test( [ 10.49,10.50,10.51 ] )
Contains
  Subroutine test(a)
    Real,Intent(In) :: a(:)
    Print 1,a,Anint(a)
 1  Format(3F8.2,/,3F8.2)
    Print 1,-a,Anint(-a)
  End Subroutine
End Program

---

■ Execution Results

   10.49   10.50   10.51
   10.00   11.00   11.00
  -10.49  -10.50  -10.51
  -10.00  -11.00  -11.00