[donev@pc346g-02 solutions]$ f90-vast worksheet2.real.f90 -o worksheet2.real.x
Pacific-Sierra Research vf90 Personal V3.4N5 14:53:34 12/ 7/00 f90 to f77
program erf_series
[donev@pc346g-02 solutions]$ f90-vast worksheet2.complex.f90 -o worksheet2.complex.x
Pacific-Sierra Research vf90 Personal V3.4N5 14:53:47 12/ 7/00 f90 to f77
program erf_series
[donev@pc346g-02 solutions]$ ./worksheet2.real.x
Enter the value of x and epsilon ('S' to stop): 1.6,1E-6
Convergence was achieved with 14 terms in the sum
Erf ( 1.6) = 0.976348064
Enter the value of x and epsilon ('S' to stop): S
[donev@pc346g-02 solutions]$ ./worksheet2.complex.x
Enter the value of x and epsilon ('S' to stop): (1.6,.7),1E-6
Convergence was achieved with 15 terms in the sum
Erf ( (1.6,0.7)) = (1.03103298,0.0197955762)
Enter the value of x and epsilon ('S' to stop): S
[donev@pc346g-02 solutions]$