Files
BTA_lib/slalib/ampqk.f