<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