[donev@pc346g-02 solutions]$ f90-vast -c worksheet3.f90
 Pacific-Sierra Research vf90 Personal   V3.4N5 14:56:08  12/ 7/00   f90 to f77  
    module  PRECISION
    module  ERF_SERIES
[donev@pc346g-02 solutions]$ f90-vast -c worksheet3.alternative.f90
 Pacific-Sierra Research vf90 Personal   V3.4N5 14:56:17  12/ 7/00   f90 to f77  
    module  ERF_PRECISE
[donev@pc346g-02 solutions]$ f90-vast worksheet3.main.f90 -o worksheet3.complex.x erf_precise.o worksheet3.o
 Pacific-Sierra Research vf90 Personal   V3.4N5 14:56:35  12/ 7/00   f90 to f77  
    program    erf_calculator                  
[donev@pc346g-02 solutions]$ worksheet3.real.x
Enter the value of x and epsilon ('S' to stop): 1.6,1E-6
Series calculation: Erf (.160000002384186E+01) = .976347982883453E+00
Precise result:     Erf (.160000002384186E+01) = .976348400115967E+00
 Error is:   4.17232513E-07
Enter the value of x and epsilon ('S' to stop): S
[donev@pc346g-02 solutions]$ worksheet3.complex.x
Enter the value of x and epsilon ('S' to stop): (1.6,.7),1E-6
Series calculation: Erf ((    0.160000002384186E+01,    0.699999988079071E+00)) = (    0.103103291988373E+01,    0.197955071926117E-01)
Precise result:     Erf ((    0.160000002384186E+01,    0.699999988079071E+00)) = (    0.103103220462799E+01,    0.197954941540956E-01)
 Error is:   7.1537454E-07
Enter the value of x and epsilon ('S' to stop): S
[donev@pc346g-02 solutions]$