[donev@pc346g-05 solutions]$ f90-vast worksheet8.f90 -o worksheet8.x $DISLINvf90 $ADQDvf90
 Pacific-Sierra Research vf90 Personal   V3.4N5 19:40:16  12/ 7/00   f90 to f77  
    module  DB
    module  B
    program    b_ring                          
[donev@pc346g-05 solutions]$ worksheet8.x
 Enter the values of x and z:
.3,.6
 Bx=  0.822381368 with error status 0
 Bz=  3.88233627 with error status 0

 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 <<                END OF DISLIN / VERSION  7.3                  <<
 <<  Date    : 07.12.2000  Time    : 19:40:26  Pageformat: DA4L  <<
 <<  Vectors : 6507        Warnings: 0         Fileformat:  PNG  <<
 <<  Metafile: ring.png                                          <<
 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

[donev@pc346g-05 solutions]$ f90-vast worksheet8.alternative.f90 -o worksheet8.alternative.x
 Pacific-Sierra Research vf90 Personal   V3.4N5 19:53:51  12/ 7/00   f90 to f77  
    module  PRECISION
    module  TRAPZD
    module  FUNCTION
    program    pi                              
 Warning, line 107: 
    I/O keyword could not be translated into FORTRAN 77. (ACTION)
 Warning, line 107: Specifier removed, but may not yield same results. (ACTION)
[donev@pc346g-05 solutions]$ worksheet8.alternative.x
 How many intervals to use?
150
[donev@pc346g-05 solutions]$ 
[donev@pc346g-05 solutions]$ more Pi.dat
 The integral value is:   3.14158511
 True value of Pi is:   3.14159274
[donev@pc346g-05 solutions]$