<Example Program>

Program erfc_example
    Real :: x(6) = [ 0.5,1.0,2.0,3.0,4.0,5.0 ]
    Print 1, x
    Print 2, Erfc(x)
1   Format(999F9.6)
2   Format(999(1X,ES11.5))
End Program

Execution Results

    0.500000    1.000000    2.000000    3.000000    4.000000    5.000000
 4.79500E-01 1.57299E-01 4.67774E-03 2.20905E-05 1.54173E-08 1.53746E-12