Actual source code: ex20f90.F90