#f90 -fast -o d3 accdisk.f
gfortran -o disk2 accdisk.f