Update aeroset.f