Create ca_pack.f