Update allocate.f95