[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]$