<Example Program>

Program erfc_scaled_example
    Real :: x(6) = [ 0.5,1.0,2.0,33.0,444.0,5555.0 ]
    Print 1, x
    Print 2, Erfc_scaled(x)
1   Format(999F9.6)
2   Format(999(1X,ES11.5))
End Program

Execution Results

    0.500000    1.000000    2.000000   33.000000  444.000000 5555.000000
 6.15690E-01 4.27584E-01 2.55396E-01 1.70888E-02 1.27069E-03 1.01564E-04