as09-1.f90 initial attempt