＜SIGN Example Program＞

Program sign_example
  Real :: a(4) = [ -1.0, -0.0, +0.0, +1.0 ]
  Print 1, 'A', a
  Print 1, 'SIGN(A,-1)', Sign(a, -1.0)
  Print 1, 'SIGN(A,-0)', Sign(a, -0.0)
  Print 1, 'SIGN(A,+0)', Sign(a, +0.0)
  Print 1, 'SIGN(A,+1)', Sign(a, +1.0)
1 Format(1X,A10,' = ',SP,4F8.3)
End Program

---

■ Execution Results

          A =   -1.000  -0.000  +0.000  +1.000
 SIGN(A,-1) =   -1.000  -0.000  -0.000  -1.000
 SIGN(A,-0) =   -1.000  -0.000  -0.000  -1.000
 SIGN(A,+0) =   +1.000  +0.000  +0.000  +1.000
 SIGN(A,+1) =   +1.000  +0.000  +0.000  +1.000